![]() |
Problem mit einer Schleife
Hallo, ich will ein programm schreiben was solange eine OneTime schleife durchläuft bis der Computer online ist! Was ja auch kein Problem darstellt, aber wenn der Computer online ist soll das Ereignis der Onetime Schleife nur einmal ausgeführt werden und wenn der Computer wieder offline geht und dann wieder online soll das Ereignis wieder stattfinden aber immer nur einmal. Bis jetzt ist mir nur eingefallen integer werte zu setzen bei on und offline aber sobald die schleife wieder neu ausgeführt wird ist der wert den ich z.b bei online angebe wieder gelöscht Wisst ihr vielleicht was bin für jeden Tip dankbar:
|
Re: Problem mit einer Schleife
Hi und willkommen in der Delphi-Praxis :mrgreen:
Nun zu deiner Frage: Du solltest aus Performancegründen lieber einen TTimer nehmen und keine Schleife. Dein Programm muss annehmen, dass der Ausganszustand "offline" ist. Im OnTimer Ereignis des Timers kannst du dann überprüfen lassen, ob der Computer gerade online ist oder nicht. Mich würde allerdings interessieren, wie du das genau machen willst, denn es gibt imho keine Möglichkeit mit Sicherheit festzustellen, ob ein Computer nun gerade online ist oder nicht. Wie dem auch sei... jedenfalls musst du den momentan ermittelten Status auch noch mit dem zuletzt ermittelten Status vergleichen. Speichere dazu am Ende jedes OnTimer Ereignises einfach den Status in einer Variablen, z.B. "LastOnlineState: Boolean". Dadurch erreichst du, dass das Ereignis nur bei einem Wechsel des Onlinestatus ausgelöst wird. Das könnte z.B. so aussehen (Wenn du die VCL benutzt):
Delphi-Quellcode:
:drunken: Gruß,
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } LastOnlineState: Boolean; function ComputerIsOnline: Boolean; procedure OnGoOnline; procedure OnGoOffline; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.OnGoOnline; begin //Computer ging gerade online... end; procedure TForm1.OnGoOffline; begin //Computer ging gerade offline... end; function TForm1.ComputerIsOnline: Booelan; begin //Hier herausfinden, ob der Computer online ist..nur wie? Result := ...; end; procedure TForm1.FormCreate(Sender: TObject); begin LastState := false; end; procedure TForm1.Timer1Timer(Sender: TObject); var CurrentOnlineState: Boolean; begin CurrentOnlineState := ComputerIsOnline; If CurrentOnlineState<>LastOnlineState then case CurrentOnlineState of true: OnGoOnline; false: OnGoOffline; end; LastOnlineState := CurrentOnlineState; end; end. Dani |
Re: Problem mit einer Schleife
... danke das hat mir sehr geholfen funzt super :-D Achja ich beutze "internetgetconnectedstate" um zu prüfen ob der computer online ist oder nicht.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz