Erst einmal vielen Dank für eure Antworten.
Ich habe den vorschlag von MGC umgesetzt da ich über eine Ini-Datei steuern will/muss wie lange es bis zur Fehlermelduung dauert und ich mir nicht vorstellen konnte wie ich das mit Stahlis Idee machen könnte.
Ich habe es jetzt so gelöst.
Delphi-Quellcode:
procedure TFormDatenAnfordern.TimeOutTimer(Sender: TObject);
Var
DateinameQuelle: String;
IniName: string;
Zaehler: integer;
Sek: string;
begin
IniDatei := TIniFile.Create(ExtractFilePath(Application.ExeName) + IniName);
Sek:= IniDatei.ReadString('Sonstiges','Sekunden','');
DateinameQuelle:= IniDatei.ReadString('Pfade','DateinameQuelle','');
if Zaehler <= StrToInt(Sek) then begin
if FileExists(DateinameQuelle) then begin
Timer1.Enabled:= true;
FormDatenAnfordern.Enabled:= true;
TimeOut.Enabled:= false;
end;
end else begin
ShowMessage('Keine Antwort erhalten! Bitte versuchen Sie es erneut.');
FormDatenAnfordern.Enabled:= true;
end;
Inc(Zaehler);
FreeAndNil(IniDatei);
end;
So nur leider ist die Variable Zaehler bei jedem neuen durchlauf wieder Null und ich weiß nicht wie ich das so ändern könnte?
Wäre echt cool wenn Ihr mir nochmal weiter helfen könntet.
Gruß
Beck93