如何能从给自己电脑发送了数据包的数据包提取出所有的IP信息
解决方案 »
- icon图标文件,ExtractIconEx、ExtractIcon方法取应用程序图标问题
- 如何利用动态连接库(dll)进行读写.ini文件的操作
- 控件StringGrid的用法
- 地址按要求自动分段问题?!有一定难度
- 如何将DBMemo插入DBGrid中
- 在Delphi中能把要打印的字体加宽,压低高度把字体缩窄吗?
- 将ComboBox的Style设为csDropDownList后如何显示其Text
- 我想在form上画一条线,然后可以用鼠标选中,就象使用一般对象那样…………好象没有想象的那么简单!!
- 一个SQL查询问题!请帮帮忙!
- 超级连接的控件是哪个啊?
- 请帮我解决一下,谢谢!
- 如何用最简单的方法读写一个文件
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do begin
result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;