UdpSocket OnRead Event hinzufügen

[jokerfacehro]

ich nehm nen ganz normalen TUDPSocket und hab grad was gefunden.
Natürlich muss ich den UdpSocket in ne neue klasse einbetten.

hab den codeschnipsel grad im delphi-forum gefunden:

Delphi-Quellcode:

procedure TUdpSockUtil.WinSockEvent(var Msg: TMessage);
begin
  if (Msg.Msg = USU_WM_ASYNCSELECT) then
    if (Msg.LParamHi = 0) then begin
      if (Msg.LParamLo = FD_READ) then begin // Daten eingetroffen
        if Assigned(FOnReceive) then
          FOnReceive(Self);
      end
      else if (Msg.LParamLo = FD_WRITE) then begin
        if Assigned(FOnWriteReady) then
          FOnWriteReady(Self); // Bereit zum Senden
      end;
    end
    else
      if Assigned(FOnError) then
        FOnError(Self,Msg.LParamHi)
      else
        raise EUSUError.CreateResFmt(@sWindowsSocketError,
          [SysErrorMessage(Msg.LParamHi), Msg.LParamHi, 'MessageHandler']);
end;

das wars schon ^^