Hi,
mal wieder ein Problem mit UDP.
Ich sende Daten über einen UDPClientSocket und möchte daraufhin eine Antwort bekommen.
Wenn diese Antwort aber zuviele Daten beinhaltet, dann ist der Buffer leer, bzw. gibt er mir keine Daten im Memo aus.
Liegt das evtl an der Buffergröße?
Code:
procedure TForm1.BtnSendCmdClick(Sender: TObject);
var
Buff:AnsiString;
received,worked: string;
I: Integer;
begin
if Assigned(CurrentServer) and (CmdEdit.Text <> '') and
(CmdEdit.Text <> CmdEditPlaceHolder) then
SendCommand(CurrentServer.Password, CmdEdit.Text);
received := String(UDPSocketClient.Receiveln(Buff)); AnsiString in String umwandeln
worked := StringReplace(received, 'print', '',
[rfReplaceAll, rfIgnoreCase]); //Print am Anfang der Zeile ersetzen
Memo1.Lines.Add(worked); Überarbeiteten string im Memo anzeigen.
CmdEdit.SetFocus;
Gruß