delphi4arab منتديات دلفي للعرب

كيف يمكن الحصول على رقم ip الحقيقى بالدالفى .مثل الرقم الدى يضهر فى المواقع المتخصصة ب ip

السلام عليكم و رحمة الله

PHP كود :
uses  Winsock; 

PHP كود :
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; 

PHP كود :
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowMessage(GetIps.text); 
end; 

شكرا اخى بارك الله فيك . شكرا .

السلام عليكم .

- ادا كان IP الدى يصدر فى الكود (اعلاه) .. اسمه [IP1]
- و IP الدى يصدر فى مشاركتى هده .. اسمه [IP2]

--**-- . ونحن نتعامل مع المكون (TClientSoket) للاتصال بشخص ما . فاى IP نستعمل .

__ [IP1] او __ [IP2]

و السلام عليكم . شكرا.

______ المرفقات : الاول سورس , الثانى الملف التنفيدى ______ Smile

hanipino

STRELiTZIA

hanipino

hanipino