Problem beim versenden eines Strings lNet

[UnixX]

Hallo Leute,

ich versuche ein Bild von Client zum Server zu versenden. Das Problem ist, dass der String nicht komplett beim Server ankommt.

Das Bild wird mit dem Code versendet (was auch funktioniert)

Code: Alles auswählen

procedure TForm1.sendpic_btnClick(Sender: TObject);
var
  jpg:TJPEGImage;
  sdata:string;
  stream:TMemoryStream;
begin
  jpg:=TJPEGImage.Create ;
  stream:=TMemoryStream.Create ; 
  jpg.LoadFromFile ('See.jpg'); 
  jpg.SaveToStream (stream);
  stream.Position :=0;
 
  try
    setlength(sdata, stream.Size );
    stream.Read(sdata[1], stream.Size ); 
    ltcp.SendMessage (sdata);
    label3.Caption :='length sdata '+inttostr(length(sdata));                                                   //      <========== Länge des gesendeten Strings
  finally
 
  stream.Free ;
  jpg.Free ; 
  sdata:=('');
end;  
end;

Server

Code: Alles auswählen

private
  sdata:string;
 
procedure TForm1.LTCPReceive(aSocket: TLSocket);
begin
  aSocket.GetMessage (sdata);
  if length(sdata) > 0 then
  label1.Caption := 'length sdata '+inttostr(length(sdata));         //  <========   hier sieht man schon, dass der String nicht vollständig ankommt. Beim mehrmaligen versenden des Strings entspricht irgendwann die Länge des empfangenen Strings der Länge des gesendeten Strings, dann lässt sich das Bild in die TImage problemlos laden.
 
end;  
 
procedure TForm1.start_btnClick(Sender: TObject);               // <========= Bild in die TImage laden
var
  s:string;
  stream:TMemoryStream;
  jpg:TJPEGImage;
begin
 
  jpg:=TJPEGIMAGE.Create ;
  stream:=TMemoryStream.Create ;
  stream.Write (sdata[1], length(sdata));
 
  stream.Position :=0;
 
  jpg.LoadFromStream (stream);
  image1.Picture.Assign (jpg);
 
  stream.Free ;
  jpg.Free ;
 
end;  

habe leider keine Idee wie ich das verbessern kann. Hoffe, dass einer von euch eine Lösung hat.

Vielen Dank im voraus!

[sstvmaster]

Hi UnixX,

ich kann dir jetzt nicht direkt weiterhelfen, aber würde sagen das man Bilder und Dateien nicht als "String" versendet.
Bilder, Dateien werden eigentlich immer Binär übertragen, wegen den Steuerzeichen, die werden meiner Meinung nach
weg gemacht.

Ich würde das so machen:

Code: Alles auswählen

 
...
var
  ...
  sdata: TMemoryStream;
begin
  ...
  sdata := TMemoryStream.Create;
  try
    ...
    LTCPComponent1.Send(sdata, Sizeof(sdata));
  finally
    ...
    sdata.Free;
  end;
 
end;
 

Oder schau mal hier: https://forum.lazarus.freepascal.org/in ... pic=5146.0

[UnixX]

Hallo,

vielen Dank für deine Antwort!
Ich werde es morgen mal ausprobieren.

[fliegermichl]

Schau mal auf der Github Seite von lnet nach. Da hat der Autor das Procedere ziemlich genau beschrieben. Es ist normal, daß längere Datenblöcke (egal ob strings oder binär) nicht auf einmal übertragen werden. Dafür gibt es die verschiedenen Events.

[corpsman]

Du kannst auch mal meine Chunkmanager Komponente Testen.

Die ist in der Lage auch Grpoße Daten als stream zu versenden und gibt dir auf der empfängerseite einen Event wenn alles Vollständig empfangen ist