Кодировка в ibIRC (indy 10)

[ZBEP]

Здравствуйте искал как решить данную проблему, но не нашел, встречал похожие случаи но не с idIRC.
В общем делаю так:
Отправляю на сервер сообщение.

IdIRC1.raw('SAY Русский текст');

Сервер отвечает:

User: ??????? ?????

Как решить эту проблему в idIRC ?

Еще, если серверу отправляют русское сообщение не через мою программу, то у меня это отображается так:
Сообщение "Русский текст" выглядет так:

User: P QQQP:P8P9 QP5P:QQ

[BARNEY]

http://www.programmersforum.ru/showthread.php?t=58785

[ZBEP]

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

http://www.programmersforum.ru/showthread.php?t=58785

Читал, но так и не получилось отправить сообщение с помощью tStream, если не трудно, можете написать простой пример отправки для idIRC ?

[BARNEY]

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

если не разберетесь сделаю завтро

[ZBEP]

BARNEY, спасибо.
Попытался сделать, как там написано, но при попытке отправить сообщение, сразу рвется соединение (сокет ерор #10054) и приходится заново коннектиться.

var s:TStringStream;
begin
s:=TStringStream.Create;
s.WriteString('SAY '+edit5.Text);
s.Position:=0;
IdIRC1.IOHandler.Write(s, s.Size, true);

П.с.
Как я понял, он создает поток с сообщением, и после отправки - закрывает его.
Но мне необходимо через уже установленное, беспрерывное соединение - отправлять/принимать сообщения, как в примере с использованием RAW.

[BARNEY]

А со стороны сервера так делал?

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

[ZBEP]

BARNEY, сервер не мой и доступ к исходникам не возможен.
Но сам по себе сервер русские сиволы воспринимает, но не известно каким образом.
Может будет полезно то, что отправленное русское сообщение на серв, в моей программе отображается как:

User: P QQQP:P8P9 QP5P:QQ

[BARNEY]

var s:TStringStream;
begin
s:=TStringStream.Create;
s.WriteString('SAY '+edit5.Text);
s.Position:=0;
IdIRC1.IOHandler.Write(s, s.Size, true);
s.free

он на КАЖДОЕ сообщение создает потом и отправляет...

на прием поставьте

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

а не проще попробовать на своём сервере, а не с наскока штурмовать другие?

[ZBEP]

BARNEY, не, свой сервер не получится сделать, можно сказать, что необходимо реализовать программу клиента, для стороннего IRC сервера, все уже готово, с английскими сообщениями все нормально, но вот с русскими, никак не получается

И нельзя как-нибудь реализовать, отправку в уже установленном "потоке", просто если делать, так, то происходит отключение, и у меня через try .. except происходит пере подключение к серверу, а из-за "особенностей" ConnClosedGracefully, приходится полностью удалять idIRC, IdIOHandlerStack и заново создавать. Ну и в общем сервер не может понять сообщения отправленные таким образом.

[ZBEP]

А если рассмотреть вариант с отправкой путем перевода в HEX и обратно?
К примеру если отслать серверу:
"абвг" через его программу "клиент", то в HEX это выглядит так:

D0 B0 D0 B1 D0 B2 D0 B3 D0 B4

А в моей программе это отображается как:

P0P1P2P3P4

Я понимаю, что можно при отправке и посылке каждую букву проверять и менять ее на нужное HEX значение, но может можно сделать как-то по другому?