idTCPserver и кирилица - Работа с сетью в Delphi

BARNEY · 19.10.2010, 10:39

хочу передавать некие данные но сети.... вопрос как передавать кириллицу? ибо на сервак приходит ???????, побывал гуглить не чего не получается .. delphi 2010

BARNEY · 21.10.2010, 07:56

Клиент

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
      s := edit1.Text + #10#13;
      edit1.Text := '';
      IdTCPClient1.IOHandler.Write(s);

end;

сервер

Код:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
s:string;
begin
 s:=(AContext.Connection.IOHandler.ReadLn());
  Memo1.Lines.Add(AContext.Connection.Socket.Binding.PeerIP+': '+s);
end;

p.s. кнопочки редактировать не было

Квэнди · 21.10.2010, 09:11

Не обменивайтесь строками.
Обменивайтесь Stream структурами

BARNEY · 21.10.2010, 10:18

а пример можно ..ибо что я нарыл на старых версиях indy и синтаксис вообще не сходиться

может проще меня спасет строка

Код:

AContext.Connection.IOHandler.DefStringEncoding.GetString

только я не понял как её использовать

mss · 21.10.2010, 10:28

procedure TForm1.Button2Click(Sender: TObject);
var
s:AnsiString;

BARNEY · 21.10.2010, 12:45

mss
не помогло все равно приходит

Цитата:

192.168.0.6: ?????????

англ текст

Цитата:

192.168.0.6: dsfdsfsdfs

Костыли типа

Код:

AnsiToUtf8(s)

на клиенте и обратно на сервере тоже не помогли

Квэнди · 21.10.2010, 14:25

Цитата:

Не обменивайтесь строками.
Обменивайтесь Stream структурами

3 минуты занял поиск на форуме.
http://programmersforum.ru/showthread.php?t=59035
http://programmersforum.ru/showthread.php?t=210
http://programmersforum.ru/showthread.php?t=55585
http://programmersforum.ru/showthread.php?t=40979

BARNEY · 21.10.2010, 14:47

Спс большое, мне даже в голову не пришло искать по "Передать рус буквы" . Тему можно закрывать.

21.10.2010, 07:56	#2
BARNEY Участник клуба Регистрация: 23.04.2009 Сообщений: 1,058	Клиент Код: `procedure TForm1.Button2Click(Sender: TObject); var s:string; begin s := edit1.Text + #10#13; edit1.Text := ''; IdTCPClient1.IOHandler.Write(s); end;` сервер Код: `procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); var s:string; begin s:=(AContext.Connection.IOHandler.ReadLn()); Memo1.Lines.Add(AContext.Connection.Socket.Binding.PeerIP+': '+s); end;` p.s. кнопочки редактировать не было Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)

21.10.2010, 09:11	#3
Квэнди Старожил Регистрация: 13.12.2006 Сообщений: 3,859	Не обменивайтесь строками. Обменивайтесь Stream структурами ICQ не для вопросов, а для предложений. Для вопросов используйте форум IRC канал клуба программистов\|Мои статьи

21.10.2010, 10:18	#4
BARNEY Участник клуба Регистрация: 23.04.2009 Сообщений: 1,058	а пример можно ..ибо что я нарыл на старых версиях indy и синтаксис вообще не сходиться может проще меня спасет строка Код: `AContext.Connection.IOHandler.DefStringEncoding.GetString` только я не понял как её использовать Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)

21.10.2010, 14:47	#8
BARNEY Участник клуба Регистрация: 23.04.2009 Сообщений: 1,058	Спс большое, мне даже в голову не пришло искать по "Передать рус буквы" . Тему можно закрывать. Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Некорректо отображается кирилица и перенос строки (\n)	POPOV	PHP	7	11.11.2010 09:44
ЧПУ и Кирилица	joe	WordPress и другие CMS	1	25.10.2010 14:36
кирилица в smtp	TulskiyTokarev	Общие вопросы C/C++	0	24.03.2010 17:28
Кирилица в Паскале	zumm	Софт	6	16.02.2010 21:41
Кирилица в C++	ROD	Помощь студентам	2	06.12.2008 14:50

19.10.2010, 10:39	#1
BARNEY Участник клуба Регистрация: 23.04.2009 Сообщений: 1,058	idTCPserver и кирилица хочу передавать некие данные но сети.... вопрос как передавать кириллицу? ибо на сервак приходит ???????, побывал гуглить не чего не получается .. delphi 2010 Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)

21.10.2010, 10:28	#5
mss Заблокирован Регистрация: 27.05.2010 Сообщений: 1,099	procedure TForm1.Button2Click(Sender: TObject); var s:AnsiString;