Simba Code:program New;
{$DEFINE SRL5}
{$i srl/srl.simba}
var
Timer1: TTimer;
Procedure hi(Sender: TObject);
begin
writeln('getpage');
GetPage('http://website.com');
end;
Procedure CreateTimer;
Begin
Timer1 := TTimer.Create(nil);
Timer1.Interval := 2000;
Timer1.Enabled := True;
Timer1.OnTimer := @hi;
End;
Procedure DeleteTimer;
Begin
Timer1.Enabled := False;
Timer1.Free;
End;
Procedure ScriptTerminate;
Var
V: TVariantArray;
Begin
SetLength(V, 0);
ThreadSafeCall('DeleteTimer', V);
AddOnTerminate('DeleteTimer');
End;
procedure cleanup;
begin
writeln('Cleanup');
ScriptTerminate;
end;
Var
V: TVariantArray;
t: integer;
begin
ClearDebug;
SetupSRL;
SetLength(V, 0);
ThreadSafeCall('CreateTimer', V);
AddOnTerminate('cleanup');
t := getsystemtime;
Repeat
Wait(100);
writeln('Time elapse: ' + inttostr(getsystemtime - t));
Until getsystemtime - t > 8000;
end.
This is the output, it seems getPage kills the all the processes o.O
Executing : CreateTimer
formWriteln: Time elapse: 94
formWriteln: Time elapse: 203
formWriteln: Time elapse: 312
formWriteln: Time elapse: 421
formWriteln: Time elapse: 530
formWriteln: Time elapse: 640
formWriteln: Time elapse: 764
formWriteln: Time elapse: 874
formWriteln: Time elapse: 983
formWriteln: Time elapse: 1092
formWriteln: Time elapse: 1201
formWriteln: Time elapse: 1326
formWriteln: Time elapse: 1435
formWriteln: Time elapse: 1544
formWriteln: Time elapse: 1654
formWriteln: Time elapse: 1778
formWriteln: Time elapse: 1888
formWriteln: Time elapse: 1997
getpage
formWriteln: Cleanup
Executing : DeleteTimer
formWriteln: Successfully executed.



Reply With Quote

