Всем привет! Нашел в инете код но он почему то не работает(при коннекте на порт 27010 ничего не происходит), подскажите пожалуйста в чем дело.
Код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Classes, IdSocketHandle, IdBaseComponent, IdComponent, IdUDPBase,
IdUDPServer;
type
TUDPServer = class
private
IdUDPServer: TIdUDPServer;
procedure IdUDPServer1UDPRead(ASender: TObject;AData: TStream; ABinding: TIdSocketHandle);
public
constructor Create; reintroduce;
destructor Destroy; override;
end;
constructor TUDPServer.Create;
begin
idUDPServer:=tIdUDPServer.create(nil);
idUDPServer.DefaultPort:=27010;
idUDPServer.BufferSize:=8192;
idUDPServer.BroadcastEnabled:=false;
idUDPServer.OnUDPRead:=IdUDPServer1UDPRead;
IdUDPServer.Active:=true;
end;
destructor TUDPServer.Destroy;
begin
IdUDPServer.Active:=false;
IdUDPServer.free;
inherited destroy;
end;
procedure TUDPServer.IdUDPServer1UDPRead(ASender: TObject;AData:
TStream; ABinding: TIdSocketHandle);
begin
Writeln('KyKy');
readln;
end;
begin
with TUDPServer.Create do
try
writeln( 'Running' );
readln
finally
free;
end;
end.