Datei in einem Stream runterladen

[Neutral General]

Ich glaub die Überschrift ist etwas verwirrend.
Ich will eine Datei mittels IDFTP in einen Stream laden.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var Str : TStream;
begin
 IDFTP1.Get('User.txt',Str); // AV bei Adresse 000000....
end;

Ich schätze ich muss den Stream irgendwie vorbereiten oder ? -.-
Ich hab nur leider nicht viel (bzw. keine ^^) Ahnung von Streams

[barf00s]

Delphi-Quellcode:

xMS: TMemoryStream;

begin
  xMS := TMemoryStream.Create;
  try
    IdFTP1.Get('fusel.blah', xMS);
    xMS.SaveToFile('fusel.blah');
  finally
    FreeAndNil(xMS);
  end;
end;

[edit]
von mir aus auch innen FileStream (bevor irgendwer wieder klugscheißt)

Delphi-Quellcode:

var
  xFS: TFileStream;

begin
  xFS := TFileStream.Create('fusel.blah', fmCreate);
  try
    IdFtp1.Get('fusel.blah', xFS);
  finally
    FreeAndNil(xFS);
  end;
end;

[/edit]

[Neutral General]

Hey thx das geht ja echt
Aber so hab ich eigentlich auch gemacht nur halt mit TStream und nicht mit TMemoryStream..

[Dax]

Erstens: Du erstellst deinen Stream nirgends
Zweitens: TStream ist eine abstrakte Klasse

[Neutral General]

Ja ich hab ihn aber noch erstellt ^^
Das ist mir erst eben aufgefallen da hats aber trotzdem nicht funktioniert..

Wenn ich jetzt ne Textdatei runterlade und die innem Memo zeigen will dann gehts nicht-.-
Das Memo ist nach dem laden total leer...

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
 ST := TMemoryStream.Create;
 IDFTP1.Get('User.txt',ST);
 Memo1.Lines.LoadFromStream(St);
end;

[barf00s]

mach mal vor dem memo.lines.loadfromstream noch nen

deinStream.Seek(0, soFromBeginning);

[Neutral General]

Ihr seid mal echt wieder mega schnell und super zuverlässig und und und eben Delphi Praxis
Danke es funktioniert
Darf ich hier noch kurz ne kleine Frage stellen wegen IDFTP ?

[Dax]

Nein

[barf00s]

NICHT FRAGEN OB MAN FRAGEN DARF! EINFACH FRAGEN! herrgott.

[Neutral General]

Hilfe, Sry