При попытке передать текст от клиента к серверу, приходит нечитаемое сообщение, вместо знаков кириллицы приходят сообщения, типа: ?????????
пример программы:
Код:
клиент:
IdTCPClient1.Host:=HOST.Text;
IdTCPClient1.Port:=StrToInt(PortNumber.Text);
IdTCPClient1.Connect;
IdTCPClient1.IOHandler.WriteLn('message:'+ 'бла-бла-бла');
IdTCPClient1.Disconnect;
сервер
Код:
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
z:=AContext.Connection.IOHandler.ReadLn;
if SameText(Copy(z, 1, 8), 'message:') then
begin
Delete(z, 1, 8);
Memo1.Lines.Add(PChar(z));
end;
Admin: Где теги? При рецедиве - бан.
как это исправить?