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 :D
Aber so hab ich eigentlich auch gemacht nur halt mit TStream und nicht mit TMemoryStream.. :gruebel:

[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

Delphi-Quellcode:

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 :thumb:
Darf ich hier noch kurz ne kleine Frage stellen wegen IDFTP ? :duck:

[Dax]

Nein ;)

[barf00s]

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

[Neutral General]

Hilfe, Sry :duck: :|

[barf00s]

und das als "Senior Member" -

[Matze]

Zitat:

Zitat von barf00s

und das als "Senior Member" -

Mach mal halblang.

Zitat:

Zitat von barf00s

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

FALSCH! Neue Frage - neuer Thread.

[Neutral General]

Also falls ich jetzt was falsches gesagt/gemacht habe dann entschuldige ich mich dafür ...
Ich weiß ja "Neue Frage - Neuer Thread", ich hatte halt nur gedacht bevor ich die DP mit Fragen zumülle frage ich mal vorsichtig ob ich ausnahmsweise noch eine Frage stellen darf... :pale:

[barf00s]

brauchst dich für nix zu entschuldigen -
da sowieso jeder mehr als 1e frage pro thread stellt - und diese auch für gewöhnlich beantwortet werden ... zudem passte es ja grad auch IdFTPblah ...

also soll sich mal keiner aufregen

[Matze]

Du brauchst dich nicht zu entschuldigen, ich finde deine Frage durchaus angebracht. Aber "zumüllen" tust du hier nichts. Falls du die Suche benutzt hast und diese nicht zum gewünschten Ergebnis führt, einfach einen neuen Thread erstellen, das ist kein Problem. So bleibt das ganze hier schön übersichtlich. ;)

Nachtrag: Wenn die Frage natürlich direkt mit IdFTP und TFireStream zusammenhängt, kannst du sie getrost auch hier stellen.
Nachtrag 2: Hat sich ja nun erledigt, war schon richtig, einen neuen Thread aufzumachen. :)