Ну я собсно так и делаю, динамически создаю объект idUDPServer, ручками а не мышкой назначаю ему событие... но когда приходит UDP сообщение ничего не происходит... Вот посмотрите может что неправельно делаю ? Может надо OnUDPRead как-нибудь отдельным потоком запустить ?
| Код |
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Types, Classes, Variants, QGraphics, QControls,
QDialogs, QStdCtrls, IdUDPServer, IdBaseComponent,
IdComponent, IdUDPBase, IdUDPClient, IdSocketHandle;
Type
server = class(TidUDPServer)
public
Procedure UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
end;
Var
se:server;
{ server }
procedure server.UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
Var
SFS:TstringStream;
s:string;
begin
SFS:=TStringStream.create('');
SFS.CopyFrom(AData, AData.Size);
Writeln(ABinding.PeerIP+' '+SFS.DataString);
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
SFS.Free;
end;
begin
se:=server.Create(nil);
se.DefaultPort:=11254;
se.BufferSize:=8192;
se.BroadcastEnabled:=true;
se.Active:=true;
se.OnUDPRead:=se.UDPRead;
readln;
se.Free;
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
p.s. uses`ов побольше подключил на всякий случай : потом буду убивать ненужные. |
