(کمک فوری)IpAddress

[Future]

سلام دوستان
من با استفاده از تابع GetUserName نام کاربر را بدست آورده ام حالا می خوام که IpAddressو ComputerName آنرا هم بدست بیاورم
لطفا مرا در این زمینه راهنمایی کنید

[nassari]

باسلام خدمت شما شماره IP
function getIPs: Tstrings;
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 := TstringList.Create;
Result.Clear;
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.Add(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;

[Touska]

درست بنویس ملت بتونن بخونن :


Function GetIP: TStrings;
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 //Give My Owen IP Address
WSAStartup($101, GInitData);
Result := TstringList.Create;
Result.Clear;
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.Add(inet_ntoa(pptr^[I]^));
Inc(I);
End;
WSACleanup;
end;