الارتباط بجهاز كلاينت عبر الآيبي

الطريقة الوحيدة هي وضع عنصر الاتصال الخاص بكل كلاينت عند اتصاله علي السيرفر في قائمة ListBox بعد ذلك يمكن عمل كاست Cast للابجكت الخاص بعنصر الاتصال حسب اخيار الايبي من القائمة ليكون الاlمر اوضح اليك بعض الاكواد .

طرف السيرفر حدث OnclientConnect

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    ListConnection.Items.AddObject(Socket.RemoteHost,Socket) ;
end;

في زر الارسال سيتم ارسال رسالة للعنصر المحدد في القائمة ListBox

procedure TForm1.BtnSendToClientClick(Sender: TObject);
begin

if ListConnection.ItemIndex > -1 then
    begin
          with TCustomWinSocket(ListConnection.Items.Objects[ListConnection.ItemIndex]) do
                SendText('Hello') ;
    end;

end;