IcmpSendEcho unterbricht mein Programm?

[Valle]

Zitat von alfold:

Dabei ist es egal ob das im Timer, oder als Thread ausgeführt wird.

Ich vermute, hier liegt der Knackpunkt.

IcmpSendEcho kehrt erst zurück, wenn eine Antwort oder eine Timeout eingetreten ist. Folglich wird also natürlich der jeweilige Thread des laufenden Programms unterbrochen, bis dieser Fall eingetreten ist. Ein Timer gehört zum Hauptthread und unterbricht somit auch die GUI.

Solltest du allerdings einen eigenen Thread für den Ping verwenden, so wird nur dieser unterbrochen und alle anderen Threads des Programms laufen wie gehabt weiter. Ist das bei dir nicht der Fall, gehe ich stark davon aus, dass du einen Fehler in der Threadimplementierung hast.

[alfold]

Ich hoffe es wird nicht peinlich.
im Main

Delphi-Quellcode:

if UncPath <> '' then
begin
        tmpPath:=  ExtractFileName(ExtractFiledir(ExtractFiledir(ExcludeTrailingPathDelimiter(UncPath))));
        if tmpPath <> '' then
        begin
           PingThread:= TPingThread.Create(tmpPath);
           PingHndl:= PingThread.Handle;
           PingThread.FreeOnTerminate := False;
           PingThread.Resume;
        end;

end;

und hier der Thread

Delphi-Quellcode:

unit PingThread;

interface
uses
  Windows, Classes, SysUtils, PingTest;

type
  TPingThread = class(TThread)
  private

    afHostName: string;
    aPing: Boolean;

    procedure UpdateStaus;
    procedure Finished;
    procedure Abort;

  protected
      procedure Execute; override;
      procedure GetPing();
  public
    constructor Create(FHostname: string);

  end;

implementation

uses
   MxMain;

constructor TPingThread.Create(fHostname: string);
begin
        inherited create(False);
        priority:= tpTimeCritical;
        FreeonTerminate:= False;
        afHostName:= FHostname;
       
end;

procedure TPingThread.Abort;
begin
    MxPlayer.Abort;
end;

procedure TPingThread.Execute;
begin
   while not Terminated do
   begin
        GetPing();
        Sleep(1000);
   end;
end;

procedure TPingThread.Finished;
begin
    MxPlayer.Finished;
end;

procedure TPingThread.UpdateStaus;
begin
    if self.Terminated then
    begin
        Synchronize(Abort);
        Exit;
    end;
    MxPlayer.UpdateStatus(aPing);
end;

procedure TPingThread.GetPing();
begin
    if Self.Terminated then
    begin
        Synchronize(Abort);
        Exit;
    end;
    aPing:= Ping(afHostName);
    Synchronize(UpdateStaus);
end;

end.

Schaun wir mal wo ich mist gebaut habe!

Gruß alfold

[Valle]

Mh, du startest mit create(false) (also nicht suspended) und rufst trotzdem Resume auf.

Weiß aber nicht ob es daran liegt.

(Ansonsten ist es bestimmt das fehlende T bei UpdateStatus )

[mjustin]

Die Notwendigkeit von priority:= tpTimeCritical; erschliesst sich mir nicht, daher würde ich es eliminieren.

Nur eine Stilfrage, aber den MxPlayer würde ich nicht aus dem Thread, ansprechen sondern nur eine Callback-Funktion verwenden, die der Thread mit dem Ping-Ergebnis aufrufen darf.

[Sir Rufo]

Dieses tpTimeCritical ist hier eher schädlich, da jetzt dieser Thread bevorzugt vor allen anderen behandelt wird und somit Auswirkungen auf den Rest haben kann.

Dabei muss der doch nur warten ... zeitkritisch ist das auf keinen Fall.

[alfold]

THX an alle

Ursache für die Aussetzer ist die IDE. Warum auch immer!
Da Sitzt man Tagelang dran um die Ursache zu beseitigen, ruft hier um Hilfe und stellt dann fest,
Ohne IDE gibt es keine Aussetzer.

Zitat von Sir Rufo:

Dieses tpTimeCritical ist hier eher schädlich... .

Kommt halt von c+p. Ist noch von meinem FTP Thread

Zitat von mjustin:

...Nur eine Stilfrage.... .

hab ich geändert

Zitat von Valle:

...
(Ansonsten ist es bestimmt das fehlende T bei UpdateStatus )

Auch im Thread können Staus entstehen



Also noch mal Danke an alle
Gruß alfold