Hallo,
ich hatte vorhin gefragt wie ich eine TList fülle und jetzt habe ich schon wieder ein Problem das dann auch einzusetzen.

Ich müsste alle 30 Sekunden diese Liste aktualisieren, nun dachte ich mir nehme ich mal ein Timer, aber das ist nicht so einfach wie ich dachte.

Ich habe es erst so versucht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TSQL.reloadaccs(o: Tobject);
var ex: boolean;
    q: string;
    I:Integer;
    Account : TAccounts;
begin
SQL.ListAccounts:= TList.Create;
if assigned(SQL.FResult) then begin
    if SQL.FMysql.Status<>MYSQL_STATUS_READY then
      WriteLog('Ein Ergebnis wurde unvollständig gelesen!', true);
      FreeAndNil(SQL.FResult);
  end;
  q:='select * from user;';
  SQL.FResult := SQL.FMysql.query(q, true, ex);
  if ex then
  begin
    SQL.ListAccounts.Clear;
    SQL.FResult.First;
   for I := 0 to SQL.FResult.RowsCount - 1 do
   begin
    Account:= TAccounts.Create;
    Account.ID := strtoint(SQL.Fresult.FieldValuebyname('id'));
    SQL.ListAccounts.Add(Account);
   SQL.FResult.Next;
   end;
  end;
end;
...
  SQL.Timer:= TTimer.Create(nil);
  SQL.Timer.Interval:=30000;
  SQL.Timer.OnTimer := SQL.reloadaccs;
  SQL.Timer.Enabled:=true;

die Funktion reloadaccs wird aber garnicht ausgeührt, danach habe ich in der DP folgendes gefunden:

zusammenfalten · markieren

Delphi-Quellcode:

Type
    ToTimerHandler = class(Tobject)
        constructor create (nMs: integer);
        private
        FoT: Ttimer;
        procedure timerCall(o: Tobject);
        end;

Procedure ToTimerHandler.timerCall(o: Tobject);
Begin
    FoT.Enabled := True;
    writeln;
    writeln;
    write ('Test......');
    qDone := False;
End;

...
begin
ToTimerHandler.create(30000);
end.

Da wird der Code aber nur ausgeführt wenn ich das so habe:

markieren

Delphi-Quellcode:

...
begin
ToTimerHandler.create(30000);
while true do
begin
Application.Processmessage;
end;
end.

Dadurch wird aber der Rest des Programms nicht mehr weiter ausgefüht.
Wie könnte ich jetzt einfach einen Timer benutzen, der den Rest des Programms nicht blockiert?

Wenn der Timer-Event startet, könntest du einen Thread abfeuern, der die Arbeit in einem Kindprozess erledigt.

Zu Threads gibt es bei Delphi im Demo-Verzeichnis ein kleines Beispiel.

Zitat:

nonVCL Timer

Und TStringlist, TTimer etc. gehören IMHO zur VCL.

Zitat von spaxxn:

Wenn der Timer-Event startet, könntest du einen Thread abfeuern, der die Arbeit in einem Kindprozess erledigt.

Zu Threads gibt es bei Delphi im Demo-Verzeichnis ein kleines Beispiel.

Ist wohl die beste Möglichkeit.

Zitat von turboPASCAL:

Zitat:

nonVCL Timer

Und TStringlist, TTimer etc. gehören IMHO zur VCL.

Application.Processmessage; Damit ist dann 95% der VCL eingebunden

Ich sehe nicht wo das etwa smit nonVCL zu tun hat. Es wird ja anscheinend ein Timer der SQL-Komponente benutzt.

Kann mir bitte einer Code für einen Timer in der Console geben?
Ich versuche es jetzt schon seid tagen und komme einfach nicht weiter.

Das was du benutzt ist doch kein nonVCL! Du hast doch ne Komponente benutzt! Wenn du nur auf API-Funktionen zurückgreifen möchtest, dann schau dir die API-Tutorials von Luckie an! Die sollten dir dort weiter helfen..

Hier das Dokument von Ihm:

API-Tutorials

Und hier noch Sampels und andere Bsp.:

Samples

nö funktioniert damit auch nicht.
Gib mir doch bitte einfach den richtigen Code um einen Timer in einem Konsolenprogramm zu verwenden.
Das was bei Luckie dabei ist, erzeugt ja ein Fenster und das ist ja wieder was ganz anderes.

In einer DLL habe ich das mal so realisiert:
.
http://msdn.microsoft.com/en-us/library/ms644906.aspx
.

markieren

Delphi-Quellcode:

procedure TimerProc(Wnd:HWnd;Msg,TimerID,dwTime:DWORD);stdcall;
Begin
//das, was regelmäßig geschehen soll
end;


SetTimer(0,0,1000,@TimerProc) //1000 msec