unit u_UDPSocketPatch;

interface
uses
  Windows, Sockets, WinSock;



implementation
type
  TUdpSocketPatcher = Class(TIpSocket)
  Protected
    Procedure Open; Override;
end;
  TAccessCrack = Class(TCustomIpClient)
private
    FConnected: Boolean;
    FOnConnect: TSocketNotifyEvent;
    FOnDisconnect: TSocketNotifyEvent;
end;
Procedure PatchVCLCode(ProcOld, ProcNew: Pointer);
var
  newCode : packed record
    JmpRel32  : Byte;
    Offset32  : Integer;
end;
begin
  newCode.JmpRel32  := $E9;
  newCode.Offset32  := Integer(procNew) - Integer(procOld) - 5;
  WriteProcessMemory(
      GetCurrentProcess,
      procOld,
      @newCode,
      SizeOf(newCode),
      DWORD(nil^) );

end;
{ TIPSocketPatcher }

procedure TUdpSocketPatcher.Open;
var
  addr: TSockAddr;
begin
inherited Open;
  Bind;
if Active and not TAccessCrack(Self).FConnected then
begin
    addr := GetSocketAddr(RemoteHost, RemotePort);
{$IFDEF MSWINDOWS}
    TAccessCrack(Self).FConnected := ErrorCheck(WinSock.connect(Handle, addr, sizeof(addr))) = 0;
{$ENDIF}
{$IFDEF LINUX}
    FConnected := ErrorCheck(Libc.connect(Handle, addr, sizeof(addr))) = 0;
if not FConnected then   // Workaround on bug in Red Hat 6.2
      Close;
{$ENDIF}
if TAccessCrack(Self).Connected then
      TAccessCrack(Self).DoConnect;
end;
end;

initialization
  PatchVCLCode(@TUdpSocket.Open, @TUdpSocketPatcher.Open );
end.

unit u_UDPSocketServer;

interface
uses
  Classes, Sockets, Winsock;
type
  TudpSocketMode = (smClient, smServer);
  TUdpSocketServer = class(TIpSocket)
private
    FMode: TudpSocketMode;
procedure SetMode(const Value: TudpSocketMode);
  Public
    Constructor Create(AOwner: TComponent); Override;
procedure Open; Override;
published
property Active;
property BlockMode;
property LocalHost;
property LocalPort;
property RemoteHost;
property RemotePort;
property OnCreateHandle;
property OnDestroyHandle;
property OnReceive;
property OnSend;
property OnError;
    Property Mode: TudpSocketMode read FMode write SetMode;
end;

implementation

{ TUdpSocketServer }

constructor TUdpSocketServer.Create(AOwner: TComponent);
begin
inherited;
  SockType := stDgram;
  Protocol := IPPROTO_UDP;
end;

procedure TUdpSocketServer.Open;
begin
inherited;
if (FMode = smServer) and Active then
    Bind;
end;

procedure TUdpSocketServer.SetMode(const Value: TudpSocketMode);
begin
  FMode := Value;
end;

end.