软件调用windows下的tracert仅能看到ping多少，我现在想得到丢包率多少应如何处理呢？ 软件调用windows下的tracert仅能看到ping多少，我现在想得到丢包率多少应如何处理呢？ 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 自己去ICMP套节子去实现tracert操作，也不是很困难，这样可以很好的控制 就是对原始套接字编程，用socket API，如果想简单，就用Indy的控件 unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Winsock,StdCtrls;typePIPOptionInformation = ^TIPOptionInformation;TIPOptionInformation = packed recordTTL: Byte;TOS: Byte;Flags: Byte;OptionsSize: Byte;OptionsData: PChar;end;PIcmpEchoReply = ^TIcmpEchoReply;TIcmpEchoReply = packed recordAddress: DWORD;Status: DWORD;RTT: DWORD;DataSize: Word;Reserved: Word;Data: Pointer;Options: TIPOptionInformation;end;TIcmpCreateFile = function: THandle; stdcall;TIcmpCloseHandle = function(IcmpHandle: THandle): Boolean; stdcall;TIcmpSendEcho = function(IcmpHandle:THandle;DestinationAddress: DWORD;RequestData: Pointer;RequestSize: Word;RequestOptions: PIPOptionInformation;ReplyBuffer: Pointer;ReplySize: DWord;Timeout: DWord): DWord; stdcall;TForm1 = class(TForm)Memo1: TMemo;Button1: TButton;PingEdit: TEdit;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);private{ Private declarations }hICMP: THANDLE;IcmpCreateFile : TIcmpCreateFile;IcmpCloseHandle: TIcmpCloseHandle;IcmpSendEcho: TIcmpSendEcho;public{ Public declarations }end;varForm1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);varhICMPdll: HMODULE;beginhICMPdll := LoadLibrary('icmp.dll');@ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile');@IcmpCloseHandle := GetProcAddress(hICMPdll,'IcmpCloseHandle');@IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho');hICMP := IcmpCreateFile;Memo1.Text := '';Memo1.Lines.Add('目的IP地址 字节数 返回时间(毫秒)');end;procedure TForm1.Button1Click(Sender: TObject);varIPOpt:TIPOptionInformation;// IP Options for packet to sendFIPAddress:DWORD;pReqData,pRevData:PChar;pIPE:PIcmpEchoReply;// ICMP Echo reply bufferFSize: DWORD;MyString:string;FTimeOut:DWORD;BufferSize:DWORD;beginif PingEdit.Text <> '' thenbeginFIPAddress := inet_addr(PChar(PingEdit.Text));FSize := 40;BufferSize := SizeOf(TICMPEchoReply) + FSize;GetMem(pRevData,FSize);GetMem(pIPE,BufferSize);FillChar(pIPE^, SizeOf(pIPE^), 0);pIPE^.Data := pRevData;MyString := 'Hello,World';pReqData := PChar(MyString);FillChar(IPOpt, Sizeof(IPOpt), 0);IPOpt.TTL := 64;FTimeOut := 4000;tryIcmpSendEcho(hICMP, FIPAddress, pReqData, Length(MyString),@IPOpt, pIPE, BufferSize, FTimeOut);if pReqData^ = pIPE^.Options.OptionsData^ thenMemo1.Lines.Add(PChar(PingEdit.Text) + ' ' + IntToStr(pIPE^.DataSize) + ' ' +IntToStr(pIPE^.RTT));exceptMemo1.Lines.Add('Cant resolve host!');FreeMem(pRevData);FreeMem(pIPE);Exit;end;FreeMem(pRevData);FreeMem(pIPE);end;end;end. 想自己做个组件，label加image，怎么搞 VarArrayCreate的释放内存问题？ dxdbgrid是不是对win98支持不是很好啊？它在win98下导出到excel比在win2000慢很多？ 问一个关于 Zoompic.pas控件的问题，分数不够可以再加。 一个简单数据库问题 主窗口中调用dll中的一个子窗口时数据访问的问题 怎样设置控件的Align 如何连接Query组件与Table组件？ 简单问题，高分！ 路过的大虾帮看看-----------如何改进这段关于图像的查找的代码? 想删就删吧！！！！真受不了这种感觉，槽糕透项了 准备学一下标准C++!
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Winsock,StdCtrls;typePIPOptionInformation = ^TIPOptionInformation;TIPOptionInformation = packed recordTTL: Byte;TOS: Byte;Flags: Byte;OptionsSize: Byte;OptionsData: PChar;end;PIcmpEchoReply = ^TIcmpEchoReply;TIcmpEchoReply = packed recordAddress: DWORD;Status: DWORD;RTT: DWORD;DataSize: Word;Reserved: Word;Data: Pointer;Options: TIPOptionInformation;end;TIcmpCreateFile = function: THandle; stdcall;TIcmpCloseHandle = function(IcmpHandle: THandle): Boolean; stdcall;TIcmpSendEcho = function(IcmpHandle:THandle;DestinationAddress: DWORD;RequestData: Pointer;RequestSize: Word;RequestOptions: PIPOptionInformation;ReplyBuffer: Pointer;ReplySize: DWord;Timeout: DWord): DWord; stdcall;TForm1 = class(TForm)Memo1: TMemo;Button1: TButton;PingEdit: TEdit;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);private{ Private declarations }hICMP: THANDLE;IcmpCreateFile : TIcmpCreateFile;IcmpCloseHandle: TIcmpCloseHandle;IcmpSendEcho: TIcmpSendEcho;public{ Public declarations }end;varForm1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);varhICMPdll: HMODULE;beginhICMPdll := LoadLibrary('icmp.dll');@ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile');@IcmpCloseHandle := GetProcAddress(hICMPdll,'IcmpCloseHandle');@IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho');hICMP := IcmpCreateFile;Memo1.Text := '';Memo1.Lines.Add('目的IP地址 字节数 返回时间(毫秒)');end;procedure TForm1.Button1Click(Sender: TObject);varIPOpt:TIPOptionInformation;// IP Options for packet to sendFIPAddress:DWORD;pReqData,pRevData:PChar;pIPE:PIcmpEchoReply;// ICMP Echo reply bufferFSize: DWORD;MyString:string;FTimeOut:DWORD;BufferSize:DWORD;beginif PingEdit.Text <> '' thenbeginFIPAddress := inet_addr(PChar(PingEdit.Text));FSize := 40;BufferSize := SizeOf(TICMPEchoReply) + FSize;GetMem(pRevData,FSize);GetMem(pIPE,BufferSize);FillChar(pIPE^, SizeOf(pIPE^), 0);pIPE^.Data := pRevData;MyString := 'Hello,World';pReqData := PChar(MyString);FillChar(IPOpt, Sizeof(IPOpt), 0);IPOpt.TTL := 64;FTimeOut := 4000;tryIcmpSendEcho(hICMP, FIPAddress, pReqData, Length(MyString),@IPOpt, pIPE, BufferSize, FTimeOut);if pReqData^ = pIPE^.Options.OptionsData^ thenMemo1.Lines.Add(PChar(PingEdit.Text) + ' ' + IntToStr(pIPE^.DataSize) + ' ' +IntToStr(pIPE^.RTT));exceptMemo1.Lines.Add('Cant resolve host!');FreeMem(pRevData);FreeMem(pIPE);Exit;end;FreeMem(pRevData);FreeMem(pIPE);end;end;end.