CnPack Forum

#1 以下代码格式化出错.
function GetLocalIP: string;
var
WSData: TWSAData;
Buffer: array[0..63] of ansiChar;
HostEnt: PHostEnt;
PPInAddr: ^PInAddr;
IPString: string;
begin
IPString := '';
try
WSAStartUp($101, WSData);
GetHostName(Buffer, SizeOf(Buffer));
HostEnt := GetHostByName(Buffer);
if Assigned(HostEnt) then
begin
PPInAddr := @(PInAddr(HostEnt.H_Addr_List^));
while Assigned(PPInAddr^) do
begin
IPString := string(StrPas(INet_NToA(PPInA ..

#1 >>Next Page

Forum:CnPack IDE 专家包（CnW ...
Thread:以下代码格式化出错. ...
Next Thread:格式化出错. 代码 ...

Home
Login

Powered by Discuz!