(کمک فوری)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;