Results 1 to 2 of 2

Thread: TTimer and getPage :(

  1. #1
    Join Date
    Oct 2011
    Posts
    422
    Mentioned
    15 Post(s)
    Quoted
    116 Post(s)

    Default TTimer and getPage :(

    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.

  2. #2
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    TTimer components are broken in Simba.
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •