Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Чат, Чат для локалки. С UDP Client\Server 
V
    Опции темы
DenisTv
Дата 6.12.2005, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 3.11.2005

Репутация: нет
Всего: нет
Решил на днях написать чат для локальной сети. С использованием UDP Client\Server.
Прога состоит из 5-и элементов:
1. Button1 - кнопка отправления сообщения
2. Edit1 - ввод текста
3. Memo1 - вывод текста
4. IdUDPClient1
5. IdUDPServer1:

Но на обьявлении процедуры

procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
вылетает ошибка!
Вот сам обработчик:
Код

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
begin
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, ABinding.PeerPort, s [1], Length(s));
    StringFormatedStream.Free;


Помогите плиизз. Заранее благодарен!
PM MAIL ICQ   Вверх
Snowy
Дата 6.12.2005, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
первий бегин у тебя зачем там влеплен?
PM MAIL   Вверх
Bibimij
Дата 6.12.2005, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 55
Регистрация: 19.8.2005

Репутация: нет
Всего: нет
Первый begin это да! А где именно красная линия стоит на строке
Код

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);


или именно на первом begin? А то у меня тоже такое было, когда чат писал! smile Оказалось, не хватает какого-то юнита в uses! smile smile Долго искал ошибку!
PM MAIL   Вверх
Snowy
Дата 6.12.2005, 22:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Текст ошибки какой?
PM MAIL   Вверх
DenisTv
Дата 7.12.2005, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 3.11.2005

Репутация: нет
Всего: нет
Упс, извините! Этот begin я случайно влепил!
Но не в этом смысл...
А облом происходит на:
Код

procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream; 
            ABinding: TIdSocketHandle);


Т.е. ещё на обьявлении процедуры.
Код ошибки - 29, а сама ошибка: "TIdSocketHandle"
PM MAIL ICQ   Вверх
Snowy
Дата 7.12.2005, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
У тебя в uses есть IdSocketHandle?
PM MAIL   Вверх
DenisTv
Дата 7.12.2005, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 3.11.2005

Репутация: нет
Всего: нет
О, точно!!! в uses не прописал...

Огромное спасибо!

PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1164 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.