String Download

[Madara Uchiha]

Hallo,

Ich nutze in meinem Programm die idFTP-Componente.
Ich möchte jetzt von meinem FTP Server (Username & Passwort benötigt) einen String (Txt Datei) direkt in ein Memo Herunterladen.
Das ganze soll mir an einer Progressbar angezeigt werden.
Wie kann ich das machen ohne die Datei herunterzuladen und dann per hand zu öffnen? Ich möchte den String gerne direkt in das Memo geladen bekommen?
Bin für Hilfe dankbar

[DeddyH]

FTP = File Transfer Protocol, ohne die Datei herunterzuladen wird es wohl kaum gehen.

[Madara Uchiha]

Hm...
Was ist den die sauberste/effizenteste Methode den Text der auf dem FTP Server liegt in mein Memo zu bekommen? Runterladen und dann öffnen?

[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).

[Sir Rufo]

Zitat von Madara Uchiha:

Hm...
Was ist den die sauberste/effizenteste Methode den Text der auf dem FTP Server liegt in mein Memo zu bekommen? Runterladen und dann öffnen?

Wenn man es sich abgewöhnt, irgendetwas direkt irgendwo rein laden zu wollen, dann findet man zur aktuellen Problematik auch etwas über die Suchfunktion.

Schritt 1:

Eine Datei von einem FTP-Server holen (bevorzugt als Stream, da das Zwischenspeichern in eine Datei nicht gewünscht ist)

delphi ftp download stream

Schritt 2:

Den Stream (der ja nur Text beinhaltet) in einen String umwandeln

Hilfreich ist dabei TStringStream oder man schaut einfach mal, wie das bei TStringList.LoadFromStream gemacht wurde

(oder, wenn es wirklich ein Memo sein soll, dann geht auch TMemo.Lines.LoadFromStream )

Nach Schritt 2 sollte das Übergeben dieses Strings an ein Memo, oder Edit, oder ... wohin auch immer selbst führend sein.

[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 );