Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Чат

Автор: DenisTv 6.12.2005, 19:00

Решил на днях написать чат для локальной сети. С использованием 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;

Помогите плиизз. Заранее благодарен!

Автор: Snowy 6.12.2005, 19:03

первий бегин у тебя зачем там влеплен?

Автор: Bibimij 6.12.2005, 22:10

Первый begin это да! А где именно красная линия стоит на строке

Код


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

или именно на первом begin? А то у меня тоже такое было, когда чат писал! smile

Оказалось, не хватает какого-то юнита в uses! smile

Долго искал ошибку!

Автор: Snowy 6.12.2005, 22:42

Текст ошибки какой?

Автор: DenisTv 7.12.2005, 16:15

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

Код


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

Т.е. ещё на обьявлении процедуры.
Код ошибки - 29, а сама ошибка: "TIdSocketHandle"

Автор: Snowy 7.12.2005, 16:38

У тебя в uses есть IdSocketHandle?

Автор: DenisTv 7.12.2005, 18:37

О, точно!!! в uses не прописал...

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