Indy

[Killbrum]

Всем доброго времени суток! Помогите чуток с прогой как мне написать код чтоб клиент присоеденялся и считывал то что написано в РичЕдите и записывал в свой РичЕдит.
Вот вроде сервер написал...

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var s:string;
i:integer;
begin
for i := 0 to RE.Lines.Count - 1 do

s:=RE.Lines[i];
Write(s);
end;

А как клиент зделать?
Спасибо!

[SERG1980]

А вы с клиента какую нибудь команду посылаете для считывания этой ин-ии.
можно так попробовать: в клиенте

 form1.IdTCPClient1.WriteLn('Дай');
 memo1.Lines.Add(form1.IdTCPClient1.ReadLn());

[Квэнди]

лучше уж тогда отправлять и получать stream будет проще и меньше кода. В вашем случае надо ввести признак окончания передачи строк.

[Killbrum]

Ну.... смотрите мне надо чтоб именно передалось "как оно есть". Тоисть смотрите я в Рич Едит ввел текст , отформатировал его, а после передаю по Инди и вывожу тотже форматированый текст в Рич Едит. Может подскажете как это лутше зделат? Знаю что вроде В РидЛН и ВрайтЛН надо ставить знаки окончания, а в просто Рид и Врайт ненадо. Может както с ними?

[Killbrum]

никто не поможет?

[Квэнди]

1. можете передавать сам richedit как объект и потом его связывать с существующим но это достаточно сложная и ненадежная процедура
2. передавайте отдельно текст (проще, повторюсь, использовать при этом stream) и отдельно форматирование этого текста хоть в своем формате и на стороне клиента уже разгребать полученное

[Killbrum]

Вот мне помогли с примером. На Инди 9. Но у меня Делфи 2009 и туда Инди 9 нехочет ставится. Как мне это переделать под Инди 10?

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  mem : TMemoryStream;
  BufSize : Integer;
begin
  mem := TMemoryStream.Create;
  try
    RichEdit1.Lines.SaveToStream(mem);
    mem.Position := 0;
    BufSize := mem.Size;
    AThread.Connection.WriteInteger(BufSize);
    AThread.Connection.WriteStream(mem);
  finally
    mem.Free;
  end;
  AThread.Connection.Disconnect;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  mem : TMemoryStream;
  BufSize : Integer;
begin
  IdTCPClient1.Host := '169.254.1.2';
  IdTCPClient1.Port := 12345;
  IdTCPClient1.Connect;
  mem := TMemoryStream.Create;
  try
    BufSize := IdTCPClient1.ReadInteger;
    IdTCPClient1.ReadStream(mem, BufSize);
    mem.Position := 0;
    RichEdit1.Lines.LoadFromStream(mem);
  finally
    mem.Free;
  end;
  IdTCPClient1.Disconnect;
end;

Как потоки заменить АКонтекст?