TidUDPServer.onUDPRead

[Ralf Meyer]

Hi,

nach dem Update von Indy 9 auf Indy 10 wurden die Parameter des o.g. Event umgestellt.
Die alte Routine lautetet

Delphi-Quellcode:

procedure Tserver.UDPServer_Read(Sender: TObject; AData: TIdBytes; ABinding: TIdSocketHandle)
var
  DataString : string[255];
  SenderIP : String ;
begin
  SetLength(SenderIP, AData.Size);
  AData.Read(SenderIP[1], AData.Size);

  DataString := 'Werte gelesen: '+SenderIP ;

  With ABinding do
    SendTo(SenderIP, PeerPort, DataString[1], Length(DataString));
End;

Die neue hat folgende Parameter:

Delphi-Quellcode:

procedure TServer.UDPServer_Read( AThread: TIdUDPListenerThread; AData: TIdBytes; ABinding: TIdSocketHandle) ;

Die Hilfe und die Demos hinken der aktuellen Version 10.2.3 leider hinterher.
Ich kann mit der Variable vom Type TIdUDPListenerThread nichts anfangen.

Ich benötige eine möglichst lauffähige Demo zum UDPServer und UDPClient.
Zum TCPServer und TCPClient kann schon fast die Demo liefern?

Gruß Ralf

[DerAndereMicha]

Hallo Ralf,

ich verwende auch die UDPServer-Komponente der 10er Version. Bin ohne Probleme von der 9er Version umgestiegen.
Um den TIdUDPListenerThread kümmere ich mich überhaupt nicht :-) So sieht das bei mir aus:

Delphi-Quellcode:

procedure TMainForm.UDPServerUDPRead(AThread: TIdUDPListenerThread; AData: TIdBytes;
      ABinding: TIdSocketHandle);
var s:String;
begin
  if (Length(AData) > 0) then
  Begin
       s:=  BytesToString(AData);
  end;
end;

Gruß
Micha

[Ralf Meyer]

Hallo Micha,

danke für deine Antwort. Ignorieren wäre nicht das Problem, ich möchte aber Daten an den Client zurückschicken.

Gruß
Ralf