Кодировка IdTCPServer/Client

[Sanek_ntsk]

Вобщем сделал что-то вроде мини-чата. При отправке сообщение с русскими символами они отображаются вопросами(?????) как исправить?

Сервер

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer, SyncObjs,
  IdContext, IdCustomTCPServer;

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    Label1: TLabel;
    CountEdit: TEdit;
    Label2: TLabel;
    FromEdit: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure IdTCPServer1Execute(AContext: TIdContext);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Section : TCriticalSection;
  Processed : Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Section := TCriticalSection.Create;
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
Var
  Text : String;
begin
  Text := AContext.Connection.Socket.ReadLn();
  AContext.Connection.Socket.WriteLn('Принял строку: ' + Text);
  Section.Enter;
  Inc(Processed);
  CountEdit.Text := IntToStr(Processed);
  FromEdit.Text := AContext.Connection.Socket.Binding.PeerIP;
  Section.Leave;
  AContext.Connection.Disconnect;
end;

end.

Клиент

unit MainUnitTCPClient;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    ServerEdit: TEdit;
    MessagesMemo: TMemo;
    MessageEdit: TEdit;
    SendButton: TButton;
    IdTCPClient1: TIdTCPClient;
    procedure SendButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SendButtonClick(Sender: TObject);
begin
  IdTCPClient1.Host := ServerEdit.Text;
  IdTCPClient1.Connect();
  IdTCPClient1.Socket.WriteLn(MessageEdit.Text);
  MessageEdit.Clear;
  MessagesMemo.Lines.Append(IdTCPClient1.Socket.ReadLn);
  IdTCPClient1.Disconnect;
end;

end.

[SERG1980]

Попробуйте так принимать текст

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
 Text:=AContext.Connection.IOHandler.ReadLn;
end;

[carno]

Та же проблема, но не помогает ни Socket.ReadLn(), IOHandler.ReadLn(). Может что то подключить и настроить к серверу или клиенту?

____

решил как

uses IDGlobal;

TCPServer

procedure TMyIdTCPServer.ServerExecute(AContext: TIdContext);
var
   ecn:TIdTextEncoding;
begin
...
    ecn:=TIdTextEncoding.Create;
    AContext.Connection.IOHandler.DefStringEncoding:=ecn.UTF8;
    AContext.Connection.IOHandler.WriteLn('Текст в утф');
...
end;

TCPClient

procedure ReadFromServer();
var
   ecn:TIdTextEncoding;
   resSt:string;
begin
...
   ecn:=TIdTextEncoding.Create;
   resSt:=IdTCPClient1.IOHandler.ReadLn(ecn.UTF8);
...
end;

[SERG1980]

Полезная инфа надо запомнить! Хотя никогда таких проблем не было

[BARNEY]

http://programmersforum.ru/showthread.php?t=59035

100 раз обсуждали