String Download

[Der schöne Günther]

Ich kenne die "idFTP"-Komponente nicht, aber die wird doch wahrscheinlich so komfortabel sein wollen, direkt auf der Platte des PCs der das Programm ausführt eine Datei anlegen zu wollen, oder?

Ich denke mal, das soll verhindert werden (da unnötig).

[DeddyH]

http://www.delphipraxis.net/50240-da...nterladen.html

[Madara Uchiha]

Ich habs so versucht, aber ich krieg den Fehler access violation:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  xFS: TFileStream;
begin
    idftp1.Connect;
  xFS := TFileStream.Create('dokument.txt', fmCreate);
  try
    IdFtp1.get('dokument.txt', xFS);
  finally
    FreeAndNil(xFS);
   xFS.Seek(0, soFromBeginning);
  end;
end;

http://www.delphipraxis.net/attachme...1&d=1365449570

[Sir Rufo]

Du spülst das Essen erst im Klo runter und versuchst es dann zu essen?
Ich glaube mich zu erinnern, dass die Reihenfolge eine andere ist

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  xFS: TFileStream;
begin
    idftp1.Connect;
  xFS := TFileStream.Create('dokument.txt', fmCreate);
  try
    IdFtp1.get('dokument.txt', xFS);
    xFS.Seek(0, soFromBeginning);

    // Jetzt noch den Stream in einen String oder ins Memo laden

  finally
    FreeAndNil(xFS);
  end;
end;

Aber wolltest du es nicht vermeiden eine Datei zu erzeugen?
Dann nimm doch TMemoryStream

[Madara Uchiha]

Zitat von Sir Rufo:

// Jetzt noch den Stream in einen String oder ins Memo laden

Ich hab das so versucht... Geht nicht, sieht auch iwie falsch aus
memo1.Text:=xfs.tostring

[Sir Rufo]

Memo1.Lines.LoadFromStream( xFS );

[Madara Uchiha]

Okay, es funktioniert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
TextEmpfangen: TFileStream;
begin
idftp1.Connect;
TextEmpfangen := TFileStream.Create('dokument.txt', fmCreate);
IdFtp1.get('dokument.txt', TextEmpfangen);
TextEmpfangen.Seek(0, soFromBeginning);
Memo1.Lines.LoadFromStream(TextEmpfangen);
FreeAndNil(TextEmpfangen);
end;

Aber könnte ich das auch noch mit einer Progressbar verbinden? Um mir den Downloadfortschritt anzuzeigen?