29-01-2010, 04:16 PM
02-02-2010, 03:38 AM
يعطيك العافيه
لكن ياليت تشرح لنا أكثر عن استخدامات المكون TcpServer
لكن ياليت تشرح لنا أكثر عن استخدامات المكون TcpServer
04-02-2010, 12:33 AM
الله يجزااك خير برنامج لطيف
هل تستطيع توسيع الفكره الى الوصول الموقع المستاضفه في نفس السيرفر
او الوصول الى موقع شركة الأستضافه
وشكرا؟ً
هل تستطيع توسيع الفكره الى الوصول الموقع المستاضفه في نفس السيرفر
او الوصول الى موقع شركة الأستضافه
وشكرا؟ً
12-09-2010, 07:08 PM
هذا سورس آخر لكن بدون استعمال المكون ( ربما غير متواجد لدئ البعض)
سلام
كود :
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;سلام