indy10에서 한글깨지는 경우

uses에 IdGlobal, IdContext 추가

채팅의 경우 Acontext....ReadIn(#13, enUTF8)을 하면됨

참고로 Get()에 마우스 올려서 TIdEncoding, enDefault가 인자로 지원한다면 Get('텍스트', enUTF8); 이렇게 하면됨

========================================================================
델마당의 동영상강좌중 메신져 부분을 참고로 만들었다.

unit uClient;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, StdCtrls,
ExtCtrls, IdAntiFreezeBase, IdAntiFreeze, IdGlobal;
type
TfmMain = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Button1: TButton;
IdTCPClient1: TIdTCPClient;
Timer1: TTimer;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmMain: TfmMain;
implementation
{$R *.dfm}
procedure TfmMain.Button1Click(Sender: TObject);begin
try
if Not IdTCPClient1.Connected then
begin
IdTCPClient1.Connect;
fmMain.Color := clLime;
Caption := '클라이언트 프로그램' + ' 동작';
IdTCPClient1.IOHandler.WriteLn(Format('Login;%s;',[Edit2.Text]),enUTF8);
end
else
begin
IdTCPClient1.Disconnect;
fmMain.Color := clRed;
Caption := '클라이언트 프로그램' + ' 멈춤';
end;
except on E: Exception do
ShowMessage('서버와 접속할 수 없습니다.');
end;
end;
procedure TfmMain.Button2Click(Sender: TObject);begin
IdTCPClient1.IOHandler.WriteLn(Format('Msg;%s;%s;%s;',[Edit2.Text, Edit3.Text, Edit1.Text]),enUTF8);
end;
procedure TfmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then Begin
// Key := #0;
IdTCPClient1.IOHandler.WriteLn(Format('Talk;%s;%s;',[Edit2.Text, Edit1.Text]), enUTF8);
Edit1.Text := '';
End;
end;
procedure TfmMain.Edit2KeyPress(Sender: TObject; var Key: Char);begin
if Key = #$0D then
Button1Click(Button1);
end;
procedure TfmMain.Edit3KeyPress(Sender: TObject; var Key: Char);begin
if Key = #$0D then
Button2Click(Button2);
end;
procedure TfmMain.Timer1Timer(Sender: TObject);var
stTemp: String;
begin
if Not IdTCPClient1.Connected then Exit;
stTemp := IdTCPClient1.IOHandler.ReadLn(#10, 5, 0,enUTF8); //2009는 유니코드사용.
if stTemp <> '' then
Memo1.Lines.Add(stTemp);
end;
end.

인디는 엔터를 치고 전송하면 #$0D#$0A를 붙여서 전송한다.