Ping přes synapse – Delphi – Fórum – Programujte.com

Zdravím.
Poraďte začátečníkovi.

Už 2 den se marně snažím zprovoznit ping přes synapse.
Ve staženém  balíku je PingThread.pas
Jak s mého programu spustit toto vlákno a získat výsledek pingu

Unita PingSend.Pas a funkce PingHost().

#2 liborb

Děkují za radu ale bud jste nepochopil dotaz, nebo jste jej nedočet dokonce

Použit klasicky ping přes synapse je jednoduche.

Dotaz zněl

"Ve staženém  balíku je PingThread.pas
Jak s mého programu spustit toto vlákno a získat výsledek pingu"

Tady je ten PingThread.pas

unit PingThread;

interface

uses Classes, PingSend, IPUtils;

type
     PPingResult = ^TPingResult;
     TPingResult = Record
                     IPAdress:String;
                     Exists:Boolean;
                   end;


type
  TPingThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    PingResult:TPingResult;
    Ready:Boolean;
    constructor Create(Ping:TPingResult);
  end;

implementation

{ TPingThread }

constructor TPingThread.Create(Ping:TPingResult);
begin
  PingResult.IPAdress := Ping.IPAdress;
  inherited Create(False);
end;

procedure TPingThread.Execute;
var Ping:TPingSend;
begin
  Ready := false;
  Ping  := TPingSend.Create;
  Ping.Timeout := 2000;
  PingResult.Exists := Ping.Ping(PingResult.IPAdress);
  Ping.Free;
  Ready := true;
end;

end.

Je to vlákno, takže spustit jako každé jiné vlákno, IP adresu předáváš při vytvoření a výsledek máš v PingResult.

Tak ještě zjistit jak spustit vlakno a mam to.