Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.07.2012, 21:46   #1
steelrus
Новичок
Джуниор
 
Регистрация: 09.07.2012
Сообщений: 1
Вопрос Indy чат на русском

Доброго времени суток.Возник вопрос как сделать чтобы отправлялись русские символы а то вместо их ????.Вот код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPServer1.Active := false;
IdTCPServer1.DefaultPort :=strtoint(Edit2.Text);
IdTCPServer1.Active := true;
 IdTCPClient1.Port := strtoint(Edit2.Text);
   IdTCPClient1.Host := Edit3.Text;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  IdTCPClient1.Connect;
  IdTCPClient1.IOHandler.WriteLn(RichEdit1.Text);
  IdTCPClient1.Disconnect;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPServer1.DefaultPort := 12345;
IdTCPServer1.Active := true;
 IdTCPClient1.Port := 12345;
  IdTCPClient1.Host := '127.0.0.1';
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  l: string; // строковая переменная, в которую мы будем получать
begin
  l := AContext.Connection.IOHandler.ReadLn();
  RichEdit2.Lines.Add(l)
end;

end.
steelrus вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
У меня borland developer studio delphi 2006 так вот как вставить на вкладку tool palette компоненты Indy Clients и Indy Misc Artem_host Общие вопросы Delphi 0 01.02.2012 09:55
как обновить indy 9 на indy 10 Пилигрим Компоненты Delphi 16 30.04.2010 10:11
Программировать на русском... Utkin Свободное общение 100 26.08.2009 13:58
Indy 9 против Indy 10 OrdJONY Свободное общение 2 08.11.2008 20:28
помогите сделать программу - чат (Indy UDP) dr_Lev Помощь студентам 2 02.12.2007 14:49