unit test.psp ;
USES 
lowx,PSP_WCtest2;
const

NO_DOODLE=2;

type

myrec = record
  x:integer;
end;

type
{Events: TEST1}
 TOnData = procedure(username:String;var allow:boolean) of object;


{Component Definition: TEST1}
TEST1 = class(TPSPObject)
private
  fx : integer;
  fOnData : TOnData ;
  fT2 : TEST2;
public
 constructor create(Aowner:TComponent);override;
 destructor destroy;override;
 procedure Execute;
   function FIREME (username:String):Boolean;

published
 property x : integer read fx write fx;
 property T2 : TEST2 read fT2 write fT2;
 property OnData : TOnData read fOnData write fOnData ;
end;

{Events: _PSPMain}


{Component Definition: _PSPMain}
_PSPMain = class(TPSPObject)
private
public
 constructor create(Aowner:TComponent);override;
 destructor destroy;override;
 procedure Execute;

published
end;


implementation
{Component Implementation: TEST1}
function TEST1.FIREME (username:String):Boolean;
var
    test_method_var:integer; 
begin
 Outputstream.write('so');
 Outputstream.write('me content');
some code

end;

 constructor TEST1.create(Aowner:TComponent);
begin
inherited create(aowner);

{CREATE WEBCOMPONENT: T2}fT2 := TEST2.create(nil);
fT2.SetOutputStream (Self.OutputStream) ;
fT2.SetServer (Self.Server) ;
fT2.Start ;
end;
 destructor TEST1.destroy;
begin
fT2.Pause;
fT2.Stop;
fT2.free;
end;
 procedure TEST1.Execute;
begin
 Outputstream.write('test');
This is a test
fT2.execute;
 Outputstream.write('more content on the e');
 Outputstream.write('nd');
more code on the end
end;

{Component Implementation: _PSPMain}
 constructor _PSPMain.create(Aowner:TComponent);
begin
inherited create(aowner);
end;
 destructor _PSPMain.destroy;
begin
end;
 procedure _PSPMain.Execute;
begin
 Outputstream.write('main content!!!');
end;


end.
