盒子论坛 v2.1

高手路过请看看这个程序是什么意思好吗,我看到不太懂,能不能尽可能详细些???每一句话都说
{procedure TWatchConnection.icmpReply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
  sTime: string;
begin
  // TODO: check for error on ping reply (ReplyStatus.MsgType?)
  if (AReplyStatus.MsRoundTripTime = 0) then
  sTime := '<1'
  else
  sTime := '=';

FormMain.lstReplies.Items.Add(Format('%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms',
  [AReplyStatus.BytesReceived,
  AReplyStatus.FromIpAddress,
  AReplyStatus.SequenceId,
  AReplyStatus.TimeToLive,
  sTime,
  AReplyStatus.MsRoundTripTime]));
  returncount:=AReplyStatus.BytesReceived;
  if AReplyStatus.BytesReceived>0 then
   IsConnect:=True
  else
    IsConnect:=false;
  if AReplyStatus.BytesReceived<20 then
    begin
       //rtu采集线程的连接由本地机改道远程计算机

    end;

end;
}
----------------------------------------------
-

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/10/27 18:15:36

1楼：

就是和dos的ping一样的东西，
  AReplyStatus.BytesReceived,
  AReplyStatus.FromIpAddress,
  AReplyStatus.SequenceId,
  AReplyStatus.TimeToLive,
这些都是返回的值而已，没有什么好解释的。
----------------------------------------------
维护世界和平，共创美好盒子。

信息

登陆以后才能回复