|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.04.2009, 11:56 | #1 | |
Пользователь
Регистрация: 01.04.2009
Сообщений: 14
|
Сетевой чат
Помогите нужно в место ip высвечивался ник клиента в Memo1
Цитата:
Последний раз редактировалось Ратмир; 21.04.2009 в 11:59. |
|
21.04.2009, 12:21 | #3 |
Proger Man
Форумчанин
Регистрация: 07.03.2009
Сообщений: 584
|
type
TForm1 = class(TForm) Memo1: TMemo;{чат} ClientSocket1: TClientSocket; ServerSocket1: TServerSocket; Edit1: TEdit;{адрес сервака} Edit2: TEdit; {ник} SpeedButton1: TSpeedButton; Edit3: TEdit; {сообщение} procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {приём сообщения} procedure TForm1.ServerSocket1ClientRead(Send er: TObject; Socket: TCustomWinSocket); var StringFormatedStream:TStringStream; s:string; begin StringFormatedStream:=TStringStream .Create(''); memo1.lines.add(socket.ReceiveText+ ' '+stringFormatedStream.DataString); stringFormatedstream.free; end; {отправка} procedure TForm1.SpeedButton1Click(Sender: TObject); begin clientsocket1.Host:=edit2.text; clientsocket1.Active:=true; Clientsocket1.socket.sendtext(Edit3 .Text+ ': ' +edit1.text); edit1.clear; end; з.ы: незабуть скинуть на форму компонент ClientSocket и ServerSocket они находятся на вкладке Internet
ShowMessage('Добро пожаловать!');
Последний раз редактировалось KORN; 21.04.2009 в 12:25. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сетевой учебник | deadh5n1 | Фриланс | 3 | 18.10.2008 00:16 |
Тулза на тему сетевой чат | Ring0Sn | Софт | 9 | 03.07.2008 21:02 |
Сетевой диск | Nic-x | Win Api | 4 | 07.02.2008 15:05 |
Сетевой тест | Stanislav | Работа с сетью в Delphi | 3 | 29.12.2007 01:37 |