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

السلام عليكم
انا الان في صدد عمل برنامج يعتمد على سيرفر وكلاينت

استخدمت IdTCPServer & IdTCPClient
من ادوات indy
طبعا الاتصال بين الكلاينت والسيرفر يكون عن طريق ادخال الاي بي ،، يدويا

هل هناك طريقه بحيث اذا تم تشغيل السيرفر ،، يظهر الاي بي في الكلاينت ،،

باختصار أريــد عند فتح السيرفر يظهر كما يظهر عند دخول متصل في الماسنجر ويكون المتصلين في قائمه ،، لكن يكون بديل لاسم المتصل الاي بي ،

أرجــو ان تكون وصلت الفكره ،،

هلا عليكم السلام ورحمه الله وبركاته

PHP كود :
procedure TForm1.Server1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
  var i : integer;
begin
listusers.AddItem(socket.RemoteAddress,nil);
for i :=0 to listusers.Items.Count -1 do
listusers.Items.Item[i].SubItems.Add(inttostr(i)) ;
end; 

ظهر الخطأ التالي

PHP كود :
[Error] Unit1.pas(72): Undeclared identifier: 'Server1ClientConnect' 

فاستبدلت Server1ClientConnect
بـ IdTCPServer1Connect

لكن ظهر الخطأ التالي

PHP كود :
[Error] Unit1.pas(35): Undeclared identifier: 'TCustomWinSocket' 

اعذرني فانا مبتدئ في البرمجه ...

لك التحيه

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

ams7

php3man

ams7