Ist der PC im Netzwerk eingeschaltet ??

[Omi]

Das war so etwas, was ich gesucht habe!! DANKE!!!!!!!!!!!!!!

Ihr seid echt super und super schnell!!!!

DANKE!!!!!!


MFG

OMI

[Christian Seehase]

Moin Omi,

die Demo von Jens hab' ich mir jetzt nicht angeschaut, aber wenn Du hier mal nach IcmpSendEcho suchst, wirst Du auch Beispiel(e) (mindestens eines ;-)) für einen Ping ohne Komponenten finden.

[Omi]

Danke für deinen Tipp!

Ich habe mir jetzt ein eigenes kleines Programm gebastelt!!!!! *Freu*

MFG

Omi

[Stanlay Hanks]

Beweise! :mrgreen:

Nö im Ernst: Kannst du deinen Code (also nur für den Ping) der Vollständigkeit halber (Und weils mich interessiert :wink:) bitte posten?

Man liest sich, Stanlay :hi:

[Omi]

Delphi-Quellcode:

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
    if AReplyStatus.ReplyStatusType = rsEcho then Online := true;
    if AreplyStatus.ReplyStatusType <> rsEcho then Online := false;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
      idIcmpClient1.Host := '192.168.0.99'; {DIE IP DES PCs}
      idIcmpClient1.Ping;
        if Online = true then Status.Text := 'Der PC ist eingeschaltet' ;
        if Online = false then Status.Text := 'Der PC ist ausgeschaltet';
end;