Передать рус буквы

[HTL]

Как можно передать рус буквы серверу чтобы он их понял и написал в Чате русские буквы а не всякую хню???...

[BOBAH13]

Кодировка Unicode. - символ = 2 байта, передаем.

[HTL]

Сообщение от BOBAH13

Кодировка Unicode. - символ = 2 байта, передаем.

Исходник или код плиз...

[RNT]

Надо использовать поток Stream .
Вот процедура , отправляющая сообщения:

procedure TForm1.BtnSendClick(Sender: TObject);
var
	s:TStringStream;
begin
	try
		tcpc1.Connect; //Соединение
		s:=TStringStream.Create; //Инициализация потока s
		s.WriteString(EditMsg.Text);  //Запись сообщения в поток s
		s.Position:=0; //Установка позиция на начало потока s
		tcpc1.IOHandler.Write(s, s.Size, true); //Передача сообщения
		Memo1.Lines.Add(EditMsg.Text); //Занесение отправленного сбщ. в окно чата
		s.Free; //Уничтожение потока s
		tcpc1.Disconnect; //Отсоединение
	except
		ShowMessage('Не получилось отправить !');
	end;
end;

Вот процедура , принимающая сообщения:

procedure TForm1.tcps1Execute(AContext: TIdContext);
var
	s:TStringStream;
begin
	s:=TStringStream.Create;  //Инициализация потока s
	AContext.Connection.IOHandler.ReadStream(s); //Чтение из контекста в поток
	s.Position:=0;  //Установка позиция на начало потока s
	Memo1.Lines.Add(s.ReadString(s.Size)); //Запись принятого сообщения в Memo
	s.Free;  //Уничтожение потока s
end;

Во вложении готовый чат (Delphi 2009)

[Shyub]

А как это сделать в Indy10?
Со стороны клиента, видемо так (проверить не могу, т.к. не могу принять и передать поток на сервере):

procedure TForm1.Button2Click(Sender: TObject);
var
  S: String;
  ST:TStringStream;
begin
  ........................
  ........................
  ST:=TStringStream.Create; 
  try
    ST.WriteString(S);
    IdTCPClient1.Socket.Write(ST, ST.Size,true);
  except
    ........................
    ........................
  end;
  ST.Free;
end;
//---------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
var
  S: String;
  ST:TStringStream;
begin
  ST:=TStringStream.Create;
  IdTCPClient1.Socket.ReadStream(ST);
  S:=ST.ReadString(ST.Size);
  ST.Free;
  ........................
  ........................
end;

Как принимать поток ST сервером и как затем передать его клиену?

[Shyub]

На стороне сервера попытался сделать так:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  S: String;
  n, k: Integer;
  ST:TStringStream;
begin
  ST:=TStringStream.Create; //Инициализация потока ST.
  AContext.Connection.IOHandler.ReadStream(ST);
  S:=ST.ReadString(ST.Size);
  ST.Free;
  .........................................
  .........................................

Сервер ничего не получает, а у клиента возникает вот такая ошибка:
1111.png

[KAPTOH]

TStringStream.Create('',Tencoding.utf-8);