ping

[technik05]

Code:

procedure TForm1.Panel1Click(Sender: TObject);
begin
IdIcmpClient1.Host := '192.168.0.222';
IdIcmpClient1.Ping();
If IdIcmpClient1.ReceiveTimeout = 5000 Then
pannel1.Color :=red
else pannel1.Color :=green;
end;

was ist hier falsch ?????

[Die Muhkuh]

Fehlerbeschreibung? :evil:

[HalloDu]

Ich weiß nicht was falsch ist, weil ich nicht weiß was richtig wäre.

[Luckie]

Zitat:

Zitat von technik05

Code:

procedure TForm1.Panel1Click(Sender: TObject);
begin
IdIcmpClient1.Host := '192.168.0.222';
IdIcmpClient1.Ping();
If IdIcmpClient1.ReceiveTimeout = 5000 Then
pannel1.Color :=red
else pannel1.Color :=green;
end;

was ist hier falsch ?????

Keine Ahnung, sag du es uns, du sitzt vor der IDE, welchs die Fehlermeldung ausgibt.

[technik05]

[Fehler] Unit1.pas(28): Undefinierter Bezeichner: 'IdIcmpClient1'
[Fehler] Unit1.pas(28): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(29): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(30): 'THEN' erwartet, aber Bezeichner 'ReceiveTimeout' gefunden
[Fehler] Unit1.pas(37): Anweisung erwartet, aber Dateiende gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden



richtig wäre ein ping z.b. 192.168.0.1 wenn ip online, dann soll sich das panel grün färben. wenn nicht rot

[mkinzler]

Vielleicht heisst es Panel1 statt Pannel1
[Edit: Hast du eine entsprechende Komponente auf deiner Form?]

[technik05]

[Edit: Hast du eine entsprechende Komponente auf deiner Form?]


was meinst du damit ???

[Die Muhkuh]

Ob Du die Komponente auf die Form gelegt hast.

Es riecht hier förmlich danach, dass Du Dir die Grundlagentutorials auf dsdt.info ansehen solltest.

[technik05]

Prima das bring mich nicht weiter !
Bin kein Programmierer !!

Wie müßte der quelltext den ausehen ???

[jfheins]

Zitat:

Zitat von Die Muhkuh

Es riecht hier förmlich danach, dass Du Dir die Grundlagentutorials auf dsdt.info ansehen solltest.

Entweder das, oder:

:dp: "Null Bock"

(Nein, ich will hier keinen rausekeln. Aber einfach immer alles machen lassen ist irgendwie ...)

[mkinzler]

Es liegt nicht am Quelltext, sondern an der Tatsache, das du eine Komponente vom Typ TIdIcmpClient auf das Formular ablegen musst

[technik05]

[code]
procedure TForm1.Panel1Click(Sender: TObject);
begin
IdIcmpClient1.Host := '192.168.0.222';
IdIcmpClient1.Ping();
If IdIcmpClient1.ReceiveTimeout = 5000 Then
panel1.Color :=red;
else panel1.Color :=green;
end;



wie mache ich das mit der IdIcmpClient1 ablegen ???? bei delphi5

[SirThornberry]

Könntest du bitte deinem Beitrag einnen aussagekräftigeren Titel geben?

[mkinzler]

In der Palette anklicken und auf das Formular legen

[technik05]

es gibt es nicht ??? oder bin ich zu blöd ???

oder mit Powersock ?????

[mkinzler]

Im Bereich Indy, oder gab es das bei D5 noch nicht?

[Die Muhkuh]

Ich sags ungern, aber zweiteres könnte zu treffen, solange Du Dir jetzt nicht die Grundlagentutorials aneignest!

[taaktaak]

Moin, Moin.
Ist manchmal tatsächlich nervig, eine Komponente zu finden. Da gibt es aber eine ganze Reihe von Hilfen. Eine davon ist z.B. "CompBAR" - als Freeware im Internet zu finden. Damit hast du jede (installierte) Komponente sehr komfortabel und schnell gefunden :wink: