Einzelnen Beitrag anzeigen

Benutzerbild von jokerfacehro
jokerfacehro

Registriert seit: 13. Feb 2007
306 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: UdpSocket OnRead Event hinzufügen

  Alt 21. Mai 2009, 19:10
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 ^^
"Never touch a running system administrator !"
  Mit Zitat antworten Zitat