über indy bestimmten port anpingen?

[Angel4585]

Also ich kann hiermit ganz gut pingen

Delphi-Quellcode:

var FExists : Boolean;



function TForm1.Pinged : Boolean;
var i : integer;
begin
Result:=False;
IdIcmpClient1.Host:=EIPAdresse.Text;
IdIcmpClient1.Port:=StrToInt(EPort.Text);
FExists:=True;
for i:= 0 to 9 do
  begin
  IdIcmpClient1.Ping;
  Application.ProcessMessages;
  end;
Result:=FExists;
end;


procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
FExists:=FExists and(AReplyStatus.ReplyStatusType = rsEcho);
end;

(wär das vllt was für die Codelib )

MfG