+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن الحصول على رقم ip الحقيقى بالدالفى (/showthread.php?tid=280)
كيف يمكن الحصول على رقم ip الحقيقى بالدالفى - hanipino - 29-11-2008
كيف يمكن الحصول على رقم ip الحقيقى بالدالفى .مثل الرقم الدى يضهر فى المواقع المتخصصة ب ip
كيف يمكن الحصول على رقم ip الحقيقى بالدالفى - STRELiTZIA - 29-11-2008
السلام عليكم و رحمة الله
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 الحقيقى بالدالفى - hanipino - 29-11-2008
شكرا اخى بارك الله فيك . شكرا .
كيف يمكن الحصول على رقم ip الحقيقى بالدالفى - hanipino - 01-12-2008
السلام عليكم .
- ادا كان IP الدى يصدر فى الكود (اعلاه) .. اسمه [IP1]
- و IP الدى يصدر فى مشاركتى هده .. اسمه [IP2]
--**-- . ونحن نتعامل مع المكون (TClientSoket) للاتصال بشخص ما . فاى IP نستعمل .
__ [IP1] او __ [IP2]
و السلام عليكم . شكرا.
______ المرفقات : الاول سورس , الثانى الملف التنفيدى ______
