بدست آوردن آي پي در اينترنت با دلفي

[J870813986]

سلام
من احتياج شديد به اين سورس دارم . خيلي سرچ كردم تمام كد ها رو امتحان كردم اما همه آي پي شبكه من رو ميده من از adsl براي ارتباط با اينترنت استفاده ميكنم
ميخام با دلفي كدي بنويسم كه آي پي كامپيوترم زماني كه به اينترنت وصلم رو به من نشون بده
ممنون از زحمات شما

[pckho0r]

برنامه ات رو طوری بنویس که این صفحه رو دریافت کنه

www.findmyipaddress.com

و رشته مابین این دو کد رو بخونه:

<font color="#ff0000">
</font>

برنامه Wan Ip Logger به این شیوه کار میکنه!

http://www.trustfm.net/GeneralTools/SoftwareWANIPLogger.php

[BORHAN TEC]

سلام
سایت های زیادی وجود دارند که این امکان را در اختیار شما قرار می دهند. حتی خود شما هم می توانید با زبان های تحت وب مثل PHP و یا ASP و ... چنین صفحه وبی را بسازید. در زیر هم نمونه کدی را قرار داده ام که IP سیستم شما را در اینترنت نشان می دهد:
MyPublicIP := IdHTTP1.Get('http://automation.whatismyip.com/n09230945.asp');

[Mask]

سلام
سایت های زیادی وجود دارند که این امکان را در اختیار شما قرار می دهند. حتی خود شما هم می توانید با زبان های تحت وب مثل PHP و یا ASP و ... چنین صفحه وبی را بسازید. در زیر هم نمونه کدی را قرار داده ام که IP سیستم شما را در اینترنت نشان می دهد:
MyPublicIP := IdHTTP1.Get('http://automation.whatismyip.com/n09230945.asp');

شما خودتون تست کردید؟
به من این پیغام رو میده.

---------------------------
Project1
---------------------------
HTTP/1.1 403 Forbidden.
---------------------------
OK
---------------------------

[mohsen24000]

این داره جواب میده: http://automation.whatismyip.com/n09230945.asp

[Mask]

میدونم این آی پی رو بر میگردونه.
اما داستان اینه که با IdHTTP گت نمیشه.

[mohsen24000]

میدونم این آی پی رو بر میگردونه.
اما داستان اینه که با IdHTTP گت نمیشه.
ما که انجام دادیم شد!:چشمک:

procedure TForm2.Button1Click(Sender: TObject);
var
resp: TStringStream;
http: TIdHTTP;
begin
try
resp := TStringStream.Create('');
http:= TIdHTTP.Create(nil);
with HTTP do
begin
HandleRedirects := true;
AllowCookies := True;
Request.ContentType := 'application/x-www-form-urlencoded';//'text/html';
Request.AcceptCharSet := 'utf-8';
Request.UserAgent := 'Apache-HttpClient/4.1.1 (java 1.5)';
Request.Connection := 'Keep-Alive';
Request.ProxyConnection := 'Keep-Alive';
Request.CacheControl := 'no-cache';
get('http://automation.whatismyip.com/n09230945.asp',resp);
ShowMessage(resp.DataString);
end;
finally
resp.Free;
http.Free;
end;
end;

[gholami146]

سلام دوست عزیز این رو امتحان کنید 100 در صد جواب میده

//add URLMon In Uses
function Ipfilter(sTexto: String): String;
var
iCont: Short;
sTemp: String;
begin
sTemp := '';
for iCont := 1 to Length(sTexto) do
if (sTexto[iCont] in ['0'..'9','.']) then
sTemp:=sTemp+sTexto[iCont];
//AppendStr(sTemp, sTexto[iCont]);
Result := sTemp;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
parser:TStrings;
begin
if URLDownloadToFile(nil, 'http://checkip.dyndns.org/', 'c:\windows\temp\externalip.txt', 0, nil) <> 0 then
MessageBox(Handle, 'An error ocurred while downloading the file.', PChar(Application.Title), MB_ICONERROR or MB_OK);
parser := TStringList.Create;
parser.LoadFromFile('c:\windows\temp\externalip.tx t');
//showmessage(parser.Text);
edt1.text:=ipfilter(copy(parser.text,pos('IP Address: ',parser.text)+12,16));
parser.Free;
end;