بدست آوردن آدرس IP

[Mahmood_M]

چه طور می شه با دلفی آدرس IP رو بدست آورد؟
:متفکر:

[vcldeveloper]

//Detect own TCP/IP address
function DetectHostIP: string;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
WSAStartup ($0101, wsdata);
try
gethostname (hostName, sizeof (hostName));
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then begin
Result := Format ('%d.%d.%d.%d', [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
end
else
Result := '0.0.0.0';
end
else
Result := '0.0.0.0'
else begin
MessageDlg(Format ('Winsock error %d', [WSAGetLastError]), mtError, [mbOk], 0);
Result := '0.0.0.0';
end;
finally
WSACleanup;
end
end;

[mamizadeh]

با سلام
دوست گرامی این که تو بعضی از جا ها ایراد می ده و می گه بعضی از دستورات را نمی شناسم
آیا از کنابخانه خاصی استفاده می کنه
اگه چنین هستش بی زحمت معرفی کنید
با تشکر

[vcldeveloper]

آیا از کنابخانه خاصی استفاده می کنه
بله، باید WinSock را به Uses اضافه کنید.

[delphi5]

در دلفی 2006 کتابخانه Winsock قابل شناسائی نیست . میتونید کمکم کنید

[m-khorsandi]

نام یونیت WinSock تو BDS 2006 تغییری نکرده و تابع آقای کشاورز هم جواب میده.

[delphi5]

اما در برنامه من قابل شناسائی نیست

[delphi5]

لطفا به این عکس یه نگاه بیاندازید . Delphi 2006 نتونسته شناسانی کنه

[m-khorsandi]

شما از Delphi for .Net داری استفاده می‌کنی، به جای اون یونیت، System.Net.Sockets رو اضافه کن.

[delphi5]

حالا با این تغییری که ایجاد کردن خیلی از متغیرها هم غیر قابل شناسائی شدند


function GetIPFromHost
(var HostName, IPaddr, WSAErr: string): Boolean;
type
Name = array[0..100] of Char;
PName = ^Name;
var
HEnt: pHostEnt;
HName: PName;
WSAData: TWSAData;
i: Integer;
begin
Result := False;
if WSAStartup($0101, WSAData) <> 0 then begin
WSAErr := 'Winsock is not responding."';
Exit;
end;
IPaddr := '';
New(HName);
if GetHostName(HName^, SizeOf(Name)) = 0 then
begin
HostName := StrPas(HName^);
HEnt := GetHostByName(HName^);
for i := 0 to HEnt^.h_length - 1 do
IPaddr :=
Concat(IPaddr,
IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
SetLength(IPaddr, Length(IPaddr) - 1);
Result := True;
end
else begin
case WSAGetLastError of
WSANOTINITIALISED:WSAErr:='WSANotInitialised';
WSAENETDOWN :WSAErr:='WSAENetDown';
WSAEINPROGRESS :WSAErr:='WSAEInProgress';
end;
end;
Dispose(HName);
WSACleanup;
end;



از جمله pHostEnt و TWSAData و WSAStartup و GetHostName و StrPas و GetHostByName و ... .
فکر می کنم با تغییر کتابخانه توابع نیز تغییر کردند . حال اگه میدونید لطف کنید و بفرمایید که من چطور میتونم به این توابع دسترسی داشته باشم ؟
یه دنیا ممنون

[delphi5]

آقای خرسندی . نیستید ؟

[Shahryar_Bmp]

سلام
لطفاً اگه میشه بگید چطوری می تونم آی پی افرادی رو که دارم باهاشون میچتم رو تو دلفی پیدا کنم
ممنون

[Inprise]

قبل از سوال کردن از امکان جستجوی سایت استفاده کنید