← →Wonder
(2001-12-20 16:33)
[7]
var reply_count : DWORD;
...
reply_count := IcmpSendEcho(...);
if (reply_count = 0) then //Ошибка
begin
error := GetLastError();
Memo1.SetTextBuf("Error in call to "+
"IcmpSendEcho()");
Memo1.Lines.Add("Error code: "+IntToStr(error));
Exit;
end;
if (pIpe^.Status = 0)
begin
Memo1.Lines.Add("Reply from "+
IntToStr(LoByte(LoWord(pIpe^.Address)))+"."+
IntToStr(HiByte(LoWord(pIpe^.Address)))+"."+
IntToStr(LoByte(HiWord(pIpe^.Address)))+"."+
IntToStr(HiByte(HiWord(pIpe^.Address))));
Memo1.Lines.Add("Reply time: "+IntToStr(pIpe.RTTime)+" ms");
end
else //Ошибка
begin
Memo1.SetTextBuf("Error code: "+IntToStr(pIpe^.Status));
end;
Ping Найти похожие ветки
← →