Hallo,
Delphi-Quellcode:
procedure TUDPMainForm.UDPServerUDPRead(Sender: TObject; AData: TBytes; ABinding: TIdSocketHandle);
var
DataStringStream: TStringStream;
s: String;
data: TBytes;
begin
DataStringStream := TStringStream.Create('');
try
DataStringStream.Write(AData, Length(AData));
UDPMemo.Lines.Add('Received "' + DataStringStream.DataString + '" from ' + ABinding.PeerIP + ' on port ' + IntToStr(ABinding.PeerPort));
s := 'Replied from ' + UDPServer.Name + ' to "' + DataStringStream.DataString + '"';
SetLength(data, Length(s)-1);
move(s[1], data, Length(s)-1);
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, data);
finally
DataStringStream.Free;
end;
end;
Der Compiler läuft jetzt fehlerfrei durch, aber wenn ich über den Client was schicke, kann ich noch kurzzeitg
am Server "wirre Zeichen" erkennen dann stürzt der Server ohne Fehlermeldung ab.
Gruß MarLe