![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TIdUDPServer
Змей © (2004-12-14 14:06:00)uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,
IdUDPClient, StdCtrls;
type
TForm1 = class(TForm)
IdUDPServer1: TIdUDPServer;
IdUDPClient1: TIdUDPClient;
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
вот я пишу любой код в IdUDPServer1UDPRead и ABinding: TIdSocketHandle вот после этого
выделяет красным че за ошибка то? написал тока var s:string;
Thanks
Змей (2004-12-14 14:50:00) [1]я писал на сокетах
а вот udp я вообще не знаю вот в книжке нашел примерчик простенькый попробую ченидь сотворить
Edjo (2004-12-14 14:13:00) [2]добавь в uses idSocketHandle
по книге horrific'a следуешь ;)
я как раз тоже чат для локалки начал делать... если че пиши, обменяемся идеями!