Einzelnen Beitrag anzeigen

myicq

Registriert seit: 5. Jan 2016
70 Beiträge
 
Delphi 6 Professional
 
#1

Default-Wert aus Funktion nach timeout (D6)

  Alt 31. Jul 2019, 07:39
Hallo alle,

ich bin dabei eine Funktion zu schreiben das eine Wert über Netzwerk abfragt. Normalerweise geht das sehr schnell, weniger als 100 msec. Aber ich möchte nicht das mein Programm sich abhängt wenn zB die Verbindung geht.

Wie mache ich eine "Timeout" feature, das nach zB 1 Sek eine Default-Wert zurückgibt ?

Beispiel:
Delphi-Quellcode:
  // Demofunktion
  // wartet für immer, Fehler simulieren.
 function get_value: integer;
 begin
   while 1=1 do
     begin
       // wait..
       sleep(1);
     end;
 end;
Ich möchte gern get_value abrufen können, aber innerhalb zB 1 Sekunde eine Defaultwert zurück.

Ich bin unter Delphi6, und habe leider zu wenig Erfahrung mit TThreads gemacht (vermute Threads ist die Lösung ??). Deshalb wenn möglich (Triviales) komplettbeispiel ?

Danke für jeder Hilfe!
  Mit Zitat antworten Zitat