Zitat von
hitzi:
Nun ist mir aufgefallen, dass unter Win2000 zwar einmal die Zeit geholt, aber dann wird der Timer zu oft aufgerufen. Das Programm läuft sich fest ("Keine Rückmeldung ..").
Die Idee mit der Variablen war schon okay. Ich hätte nur folgenden Ansatz gewählt:
Delphi-Quellcode:
var
fWorking : boolean = false;
function dlgfunc(hDlg: hWnd; uMsg: dword; wParam: wParam; lParam: lParam): bool;
stdcall;
{ ... }
WM_TIMER:
if(not fWorking) then begin
fWorking := true;
{ ... }
fWorking := false;
end;
{ ... }
Dann wird die Timer-Funktion gar nicht erst ausgeführt, solange die Variable TRUE ist. Verzögert sich die Ausführung jetzt wirklich, dann passiert erst mal nichts weiter. @Luckie: evtl. wäre ein kleiner "PeekMessage"-Thread ganz sinnvoll, damit das Programm zeitgleich auf Messages reagieren kann.
Und noch ein Korrekturvorschlag meinerseits: Wenn man nicht online ist, sollte auch der Button "Korrigieren" entsprechend deaktiviert sein. Also, fix die RC-Datei mit Notepad geöffnet und folgendes ergänzt:
Code:
PUSHBUTTON "&Korrigieren",106,101,117,70,15[b],WS_DISABLED[/b]
Und dann die Funktion "GetINetTime" wie folgt ändern:
Delphi-Quellcode:
var
fOnline : boolean;
begin
result := 0;
fOnline := InternetGetConnectedState(nil,0);
// Button "Korrigieren" aktivieren
EnableWindow(GetDlgItem(hApp,IDC_BTNCORRECT),fOnline);
if not fOnline then
begin
sStatus := 'nicht verbunden';
SendDlgItemMessage(hApp, IDC_STATBAR, SB_SETTEXT, 0, Integer(@sStatus[1]));
exit;
end;
{ ...}
Zitat von
hitzi:
Was ist wenn meine I-Net Verbindung über ein Netzwerk läuft?
Genau dann funktioniert dein Programm nicht mehr, da es dann nicht richtig erkennt ob ein Rechner online ist oder nicht.
Normalerweise funktioniert
InternetGetConnectedState auch bei LANs. Aber vielleicht könntest du mal beschreiben, in welcher Form sich das Problem äußert?! Was bedeutet:
Zitat:
... nicht richtig ...
in dem Zusammenhang?