كود سورس لمعرفة ip المواقع

[paix144]

السلام عليكم
هذا كود سورس بسيط لمعرفة ip المواقع باستعمال المكون TcpServer

[عبدالله]

يعطيك العافيه


لكن ياليت تشرح لنا أكثر عن استخدامات المكون TcpServer

[قديم الشوق]

الله يجزااك خير برنامج لطيف

هل تستطيع توسيع الفكره الى الوصول الموقع المستاضفه في نفس السيرفر

او الوصول الى موقع شركة الأستضافه

وشكرا؟ً

[musvc]

هذا سورس آخر لكن بدون استعمال المكون ( ربما غير متواجد لدئ البعض)


uses WinSock;

function GetIpFromDns(HostName: string): string;
type
tAddr = array[0..100] of PInAddr;
pAddr = ^tAddr;
var
I: Integer;
WSA: TWSAData;
PHE: PHostEnt;
P: pAddr;
begin
Result := HostName;
WSAStartUp($101, WSA);
try
PHE := GetHostByName(pChar(HostName));
if (PHE <> nil) then
begin
P := pAddr(PHE^.h_addr_list);
I := 0;
while (P^[i] <> nil) do
begin
Result := (inet_nToa(P^[i]^));
Inc(I);
end;
end;
except
end;
WSACleanUp;
end;



سلام