[indy] treeview übertragen

[the_seed]

Zitat:

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. :oops: Warum macht das LoadFromStream nicht selbst??

Versuch mal bei WriteStream noch die Länge anzugeben:

Delphi-Quellcode:

IdTCPClient1.WriteStream(LStream, true, true, LStream.Size);