[indy] treeview übertragen

[the_seed]

Zitat von SirThornberry:

naja, du musst nach "SaveToStream" noch die Position des Streams auf 0 setzen

Delphi-Quellcode:

var LStream: TMemoryStream;
begin
  LStream := TMemoryStream.Create;
  TreeView1.SaveToStream(LStream);
  LStream.Position := 0; //  <== Die Zeile habsch vergessen gehabt
  //stream senden (mit welcher compo du das auch immer machst)
  IdTCPClient1.Connect;
  IdTCPClient1.WriteStream(LStream); 
  LStream.Free;
end;

so weit hatt ichs ja
nur wie enpafneg ich den stream?

Code:

var LStream: TMemoryStream; 

begin

idtcpclient1.Connect;
LStream := TMemoryStream.Create;
idtcpclient.writeln('test');
idtcpclient1.readStream(LStream);
treeview1.loadfromstream(lstream);
lstream.Free;

->kommt ne fehlermeldung -> expandieren des streams wegen speichermangels nicht möglich?

[SirThornberry]

in welcher Zeile kommt der fehler? Korrekt müsste es beim lesen so aussehen (position auf 0 wieder setzen)

Delphi-Quellcode:

var LStream: TMemoryStream; 
begin
  istcpclient1.Connect; 
  LStream := TMemoryStream.Create; 
  idtcpclient.writeln('test'); 
  idtcpclient1.readStream(LStream); 
  LStream.Position := 0; // <== ni vergessen!!!
  treeview1.loadfromstream(lstream); 
  lstream.Free;

und was mir grad noch aufviel: einmal verwendest du idtcpclient und ein anderes mal idtcplient1 (war bei mir auch schon falsch)

[the_seed]

fehler kommt trotzdem auch wenn die position angibt...
beim empfangen des streams

auf die syntxfehler nicht achten sind drinn weil meine kompos abkürzungen haben und ich die namen selber ergänzen muss um es übersichtlicher zu gestalten...

[Dani]

Zitat:

LStream.Position := 0; // <== nie vergessen!!!

Ups. Warum macht das LoadFromStream nicht selbst??

Versuch mal bei WriteStream noch die Länge anzugeben:
IdTCPClient1.WriteStream(LStream, true, true, LStream.Size);