Клиент-сервер

[ОДИНОЧЕСТВО В СЕТИ]

читать и разбираться тут

[Nice42ru]

Возникла проблема, как сделать как бы два потока на сервере чтобы сервер передал информацию из Memo1(сервера) в Memo1(клиента) и Memo2(сервера) в Memo2(клиента)

Использовал вот этот код, но он годиться только для передачи из одного Memo в другое. если её испльзовать то значение Memo1 и Memo2 сервера, запишиться в Memo1 клиента, при этом Memo2 клиента остается пустым.

     var i: Integer;
    begin
      {Посылаем ВСЕМ клиентам данные из Memo1}
      for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do begin
       ServerSocket1.Socket.Connections[i].SendText(Memo1.Text);
      end;

[IT-man]

Nice42 стучи в аську помогу чем смогу в обучении.бесплатно

[ОДИНОЧЕСТВО В СЕТИ]

Nice42ru
вот решение твоей проблемы
сервер на той части откуда надо получить данные

procedure TForm1.SS1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var i:Integer;
begin
 SS1.Socket.Connections[0].SendText('0001');// отправляем команду что читаем из мемо1
 SS1.Socket.Connections[0].SendText(mmo1.text);
 SS1.Socket.Connections[0].SendText('0002');// отправляем команду что читаем из мемо2
 SS1.Socket.Connections[0].SendText(mmo2.text);
 SS1.Socket.Connections[0].SendText('0001');// отправляем команду закончили чтение из мемо2
end;

ss1-TserverSocket
ну а это у TClientSocket

procedure TForm1.clientRead(Sender: TObject; Socket: TCustomWinSocket);
var m:string;
begin
m:=Socket.ReceiveText;
if m='0002' then f:=False;
if m='0001' then f:=True;
if f and ((m<>'0001') and (m<>'0002')) then // пришел текст из мемо1 пишем в мемо 1
mmo1.Lines.Add(m)
else if not f and ((m<>'0001') and (m<>'0002')) then// пришел текст из мемо2 пишем в мемо 2
mmo2.Lines.Add(m);
if (m='0001') or (m='0002') then m:='';
end;