Indy. ATerminator, ganzen Text empfangen

[Thomas83]

hi,

habe mal wieder ein indy Problem. Wenn ich längeren Text sende teilt indy den text.

Wie kann ich sicher gehen das der gesamte Text ankommt?

Habe es schon so probiert

Delphi-Quellcode:

var
  fClient : TIdTCPClient;
...
...
If Length(fClient.CurrentReadBuffer)>0 then
begin
  Len := fClient.RecvBufferSize;
  lCommand.Text := fClient.ReadString(Len);
...

habe es auch schon mit einem Terminator probiert
fClient.ReadLn('#$%'); aber irgend wie funktioniert das ganze nicht so.....

[Thomas83]

oder vielleicht doch mit Buffer arbeiten?

[Thomas83]

kann mir da keiner einen Tipp geben?

[DataCool]

Hi Thomas,

Du kannst bei Indy10 und glaube ich auch bei Indy9,
mit Readln + Terminator arbeiten.

Ich arbeite häufig und viel mit beiden Indy-Versionen,
habe bis jetzt nie Probleme mit ReadLn gehabt,
wie lang ist den Dein String der gesendet wird ?
Wie sieht der String aus ?
Bist Du sicher das im String kein CrLF drin ist ?

Greetz Data

[Thomas83]

der string ist nicht gerade lang. 20-30 Zeichen.
Bin mir nich zu 100% sicher ob ein CRLF vielleicht doch drinne ist.
muss mir den String nochmal genau anschauen.....

Mit einem Terminator hat es gar nicht funktioniert.....
aber ich glaube ..... dann muss ich mir das auch noch mal anschauen.....

[DataCool]

Hi,

in nem anderen Thread schreibst Du,
das Du eine StringList verschickst.
Wenn das der Fall ist ist hinter
jedem Eintrag der StringList ein CrLF

Greetz Data

[Thomas83]

Hi Data,

ja das stimmt, aber ich ersetze diese durch ein anderes Zeichen.
//Edit

Delphi-Quellcode:

procedure TfrmMain.SendData(Command, Data: string);
var
  l : tstringlist;
  s : string;
begin
  l := tstringlist.Create;
  l.Add(command);
  data := StringReplace(data,#13#10,'/13/10',[rfReplaceAll]);
  l.Add(data);
  fServer.Broadcast(l.text);//+'#$A' //#§&# Terminator
  l.Free;
end;

stimmt doch nicht, sehe gerade das ich zwei listen habe
data -> stringlist.text und l.text

[DataCool]

Hi,

mach's am besten so :

Delphi-Quellcode:

Var sToSend : String;
begin
  sToSend := StringReplace(yourStringList.CommaText,',','||');
  // ...
  yourIndyClient.WriteLn(sToSend);

end;

Greetz Data

[Thomas83]

werde ich morgen mal ausprobieren.
thx