Stringlist mit SendStream versenden

[runningsoft]

Genau das ist ja mein Problem. Wie bekomme ich den Inhalt der Stringlist versendet und nicht nur den Zeiger darauf.

Ich hatte es zwischenzeitlich über TByteArray versucht. Ich habe die Stringlist also Byte für Byte in das Bytearray eingelesen und versendet. Hat auch funktioniert, hat allerdings den Nachteil, dass das Bytearray ein statisches Array ist und eine feste Größe von 32767 Byte hat, die Stringlistes aber nicht annähernd diese Größe erreicht. Ist also nicht so ganz befriedigend.

Anschließend hab ich es mit einem dynamischen Array aus TBYTE versucht. Da das aber ein dynamisches Array ist, stehe ich vor dem gleichen Problem wie mit der Stringlist, es werden nur die Zeiger versendet, nicht aber der Inhalt.

Für einen Tipp und ein paar Codeschnipsel, wie ich den Inhalt der Stringlist auf der Clientseite aufbereiten muss, um ihn zu versenden und auf der Serverseite wieder in eine Stringliste hineinbekomme, wäre ich dankbar.

[dummzeuch]

Zitat von runningsoft:

Genau das ist ja mein Problem. Wie bekomme ich den Inhalt der Stringlist versendet und nicht nur den Zeiger darauf.

Ich wuerde stringlist.Text versenden. Beim Emfpaenger dann im neuen Record eine Stringlist anlegen (der dort gespeicherte Pointer ist ja ungueltig, also einfach eine neue erzeugen und zuweisen) und dieser den empfangenen Text zuweisen.

[samso]

Du kannst den Record nicht komplett senden, sondern musst den String gesondert behandeln. Die Stringliste ist dann nicht mehr Bestandteil des Records, sondern wird mit einem zweiten Schreibbefehl zu dem MemoryStream hinzugefügt. Auf der Empfangsseite muss das Ganze wieder entsprechend zerlegt werden.

Delphi-Quellcode:

  
type
CustomRec = record
   RecID : Integer;
   RecVorgang : String[15];
   RecStatus: integer;
   ....
   RecStrLen: Integer; //<- damit weiß ich auf der Empfangsseite wie lang der der nachfolgende Text ist
  end;  
...
  temp := Stringlist.Text;
  RecStrLen := Length(temp);
  MStr.Write(Rec,SizeOf(Rec));
  MStr.Write(Pointer(temp)^, Length(temp));
  MStr.Position := 0;