|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.09.2008, 22:45 | #1 |
Пользователь
Регистрация: 28.09.2008
Сообщений: 19
|
Запускается но не работает
Запускается но не работает чат вот код (компоненты:Edit1,Button1,Memo1)
procedure TForm1.Button1Click(Sender: TObject); begin IdUdpClient1.Send('Сюда помести имя отправителя'+edit1.text); end; procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle); var stringFormatedStream:TstringStream; s:string; begin //Èíèöèàëèçàöèÿ StringFormatedStream:=TStringStream .Create(''); //Êîïèðîâàíèå èç ïðîñòîãî â ñòðîêîâûé StringFormatedStream.CopyFrom(ADAta ,AData.size); //Âûâîä ïîëó÷åííîãî ñîîáùåíèÿ Memo1.Lines.Add(ABinding.PeerIP+' '+StringformatedStream.DataString); //ÏÅðåíàïððàâëåíèå ñîîáùåíèÿ äàëüøå Abinding.sendto(Abinding.peerIP,abi nding.peerport,S[1],length(s)); //Îñâîáîæäåíèå ñòðîêîâîãî ïîòîêà StringFormatedStream.free; end; |
29.09.2008, 23:16 | #2 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
что значит не работает ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не запускается дельфи | L_M | Общие вопросы Delphi | 3 | 21.04.2013 07:17 |
Wind не запускается! | anton14 | Компьютерное железо | 4 | 14.10.2009 11:11 |
Не запускается WINDOWS XP | bagi_ra | Windows | 21 | 25.06.2009 15:06 |
Не запускается программа. | Yar | Помощь студентам | 5 | 28.08.2008 11:26 |
Не запускается WarcraftII | Larionov | Свободное общение | 1 | 29.05.2007 19:11 |