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

[delphi5]

لطفا اگه کسی میتونه منو راهنمائی کنه ،
من میخوام IP Address ایستگاه کاری که با اون مشغول به کار هستم رو بدست بیارم
لطفا هر چه سریعتر جوابمو بدهید
مرسی

[shobair]

لطفا اگه کسی میتونه منو راهنمائی کنه ،
من میخوام IP Address ایستگاه کاری که با اون مشغول به کار هستم رو بدست بیارم
لطفا هر چه سریعتر جوابمو بدهید
مرسی

سلام
با دلفی؟
اگر دلفی 6 داری از Indy استفاده کن در تب Indy Misc از کنترل idIPWatch استفاده کن.

شبیر

[delphi5]

مرسی جوابشو پیدا کردم . بدون استفاده از indy

[ealvandi]

مرسی جوابشو پیدا کردم . بدون استفاده از indy


میشه به ما هم بگید.

[mehdi_mohamadi]

بفرمائید:

procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{Get the COMPUTER NAME}
GetHostNAME(@s, 128);
p := GetHostByNAME(@s);
Memo1.Lines.Add(p^.h_NAME);
{Get the IpAddress}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);

end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
{Shut down WinSock}
WSACleanup;
end;

[mehdi_mohamadi]

البته یکی از تابعها واسه به دست آوردن نام کامپیوتر هستش

[ealvandi]

آقای محمدی دستتون درد نکنه ولی چند تا error داد لطفا فایلش رو بذارید.

[mehdi_mohamadi]

متاسفانه هنگام آپلود Error میده
هرکسی خواست با مسینجر به id زیر پیغام بده واسش بفرستم
mehdi_mohamadi59@yahoo.com