Передача текста - Работа с сетью в Delphi

trad · 18.07.2010, 10:31

Подскажите плз как сделать передачу текста через интернет.

kakawkin · 18.07.2010, 12:54

через компоненты TcpClient и TcpServer можно спокойно - ищи примеры UPD чата для начала

vlad.md · 21.07.2010, 15:11

Попробуй через сокеты както так :
Отправка
procedure TForm1.Button1(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Memo2 .Text); //посылаем сообщение
end;
И принимает сообщение :
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('[Server]::' + Socket.ReceiveText); // Принимаем сообщение
end;

trad · 28.07.2010, 00:47

СПС через сокеты всё ОК..

18.07.2010, 10:31	#1
trad Заблокирован Регистрация: 18.07.2010 Сообщений: 26	Передача текста Подскажите плз как сделать передачу текста через интернет.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Передача файлов	Lemo	Помощь студентам	16	19.05.2010 17:39
Генератор текста, Анализатор текста, График, С++	darel	Помощь студентам	0	14.03.2010 20:15
Передача файла....	prizrak1390	Работа с сетью в Delphi	1	23.12.2008 09:58
Передача текста файла....	prizrak1390	Общие вопросы Delphi	1	23.06.2008 10:58
Передача видео	Zer0	Работа с сетью в Delphi	1	14.12.2007 10:20

18.07.2010, 12:54	#2
kakawkin Форумчанин Регистрация: 21.09.2009 Сообщений: 431	через компоненты TcpClient и TcpServer можно спокойно - ищи примеры UPD чата для начала

21.07.2010, 15:11	#3
vlad.md Пользователь Регистрация: 27.05.2010 Сообщений: 50	Попробуй через сокеты както так : Отправка procedure TForm1.Button1(Sender: TObject); begin ClientSocket1.Socket.SendText(Memo2 .Text); //посылаем сообщение end; И принимает сообщение : procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); begin Memo1.Lines.Add('[Server]::' + Socket.ReceiveText); // Принимаем сообщение end;

28.07.2010, 00:47	#4
trad Заблокирован Регистрация: 18.07.2010 Сообщений: 26	СПС через сокеты всё ОК..