Synapse - TraceRouteHost abbrechen

[catweasel]

Moin

Ich setze hier die Funktion "TraceRouteHost" von Synapse4.0 ein.

Problematisch ist wenn der Host nicht erreichbar ist, dann kann es locker >2 Minuten dauern bis das
Programm weiter abgearbeitet wird.
Was kann ich tun damit das Programm abgebrochen werden kann, zB. durch durücken auf das biSystemIcon (Kreuz-Button der Form)

Gruß
Michael

Ausschnitt aus dem Programm:

Code: Alles auswählen

      //Traceroute only
      if ssShift in Shift then begin
          PingForm.Show;
          PingForm.Caption:='Traceroute';
          PingForm.Memo1.Clear;
          PingForm.Memo1.Lines.Add('Routenverfolgung zu '+ip+chr(13));
 
          { TODO : Dauert sehr lange wenn Timeout (versucht 30 Hops) }
          zwischenergebnis:=TraceRouteHost(ip);     //  <<<<<<<<<<<<<<<<<<<<<<<<<<
 
          while pos(' ',zwischenergebnis) <> 0 do begin
              trace_ip:=AnsiLeftStr(zwischenergebnis,pos(' ',zwischenergebnis)-1);
              delete(zwischenergebnis,1,pos(' ',zwischenergebnis));
              trace_ms:=AnsiLeftStr(zwischenergebnis,pos(chr(13),zwischenergebnis)-1);
              delete(zwischenergebnis,1,pos(chr(13),zwischenergebnis));
              PingForm.Memo1.Lines.Add(trace_ip+'  '+trace_ms+chr(13)+' ms');
          end;
 
          PingForm.Memo1.Lines.Add('fertig.');
          exit;
        end;

[m.fuchs]

Ich setze hier die Funktion "TraceRouteHost" von Synapse4.0 ein.

Release 40 nehme ich mal an. Ist aber auch unerheblich.

Problematisch ist wenn der Host nicht erreichbar ist, dann kann es locker >2 Minuten dauern bis das
Programm weiter abgearbeitet wird.
Was kann ich tun damit das Programm abgebrochen werden kann, zB. durch durücken auf das biSystemIcon (Kreuz-Button der Form)

Da bleibt die nur übrig, den Teil in einen Thread auszulagern. Dann kann dein Programm auch während des TraceRouteHost-Aufrufs weiterhin auf die Botschaften von Windows reagieren.

[catweasel]

Da bleibt die nur übrig, den Teil in einen Thread auszulagern. Dann kann dein Programm auch während des TraceRouteHost-Aufrufs weiterhin auf die Botschaften von Windows reagieren.

Danke für den Hinweis. Ich muß mal schauen wie man so etwas macht.

Gruß
Michael

[catweasel]

Da bleibt die nur übrig, den Teil in einen Thread auszulagern.

So richtig habe ich es noch nicht hinbekommen.

Muß ich an meinem Programm nur die Zeile

Code: Alles auswählen

zwischenergebnis:=TraceRouteHost(ip);

in den Threat auslagern, oder den ganzen Block zwischen

Code: Alles auswählen

if ssShift in Shift then begin
[...]
end;

Gruß
Michael

[theo]

In Multithreading muss man sich ein bisschen einarbeiten, das kapieren die Meisten nicht einfach so vor dem Frühstück.
http://wiki.freepascal.org/Multithreade ... utorial/de
http://www.delphi-treff.de/tutorials/ob ... l/threads/

[catweasel]

In Multithreading muss man sich ein bisschen einarbeiten, das kapieren die Meisten nicht einfach so vor dem Frühstück.
http://wiki.freepascal.org/Multithreade ... utorial/de
http://www.delphi-treff.de/tutorials/ob ... l/threads/

Danke für die Links. Ich werde das Problem dann erst einmal zurückstellen und mir die Infos ansehen.

Gruß
Michael