FTP - Datei runterladen (eigener Server)

[Neutral General]

Hi,

So ich wenn ich eine Datei mit von meinem Server runterladen will.. dann geht das nicht^^ Die Datei wird erstellt, hat aber 0KB -.-
Ich hab bisschen Quelltext aber der ist eher kopiert als sonstwas (versteh das zwar aber da fehlt anscheinend was oder so ka...)

Delphi-Quellcode:

// Is von woanders übernommen
function ReplaceChars(APath:String):String;
var
 s:string;
begin
  s := StringReplace(APath, '/', '\', [rfReplaceAll]);
  s := StringReplace(s, '\\', '\', [rfReplaceAll]);
  Result := s;
end;

procedure TForm1.FTPStoreFile(ASender: TIdFTPServerThread;
  const AFileName: String; AAppend: Boolean; var VStream: TStream);
begin
  VStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+AFilename,fmCreate);
  VStream.Seek(0, soFromEnd);
end;

procedure TForm1.FTPRetrieveFile(ASender: TIdFTPServerThread;
  const AFileName: String; var VStream: TStream);
begin
  VStream := TFileStream.Create(ReplaceChars(ExtractFilePath(Application.ExeName)+AFilename),fmopenread or fmShareDenyWrite);
end;

Ist da was falsch?

Gruß
Neutral General

[3_of_8]

Filestream freigeben.

Und ich sehe auch nicht, dass du irgendwo was reinschreibst.

[Andidreas]

wenn du von nem ftp server ne datei runterladen willst, kannst du auch einfach die indy komponente TIdFTP nehmen...

mit der kannst du dann die ganz normalen befehle get put ect... verwenden....

[SirThornberry]

Zitat von 3_of_8:

Filestream freigeben.

Und ich sehe auch nicht, dass du irgendwo was reinschreibst.

Der Kommentar ist falsch! Wie dir vielleicht aufgefallen ist verlangen die Events referenzen auf einen Stream. Bitte nächstes mal erst kundig machen.

@Andidreas: Hier geht es nicht umd en Client sondern um dern Server!

[Neutral General]

Ja ich will schon mit nem Client (IDFTP) ne Datei vom Server runterladen... Mit IDFTP.Get.. Aber da gibts immer ne Fehlermeldung

[inherited]

Hm? Was für eine? QT bitte^^

[3_of_8]

Zitat von SirThornberry:

Zitat von 3_of_8:

Filestream freigeben.

Und ich sehe auch nicht, dass du irgendwo was reinschreibst.

Der Kommentar ist falsch! Wie dir vielleicht aufgefallen ist verlangen die Events referenzen auf einen Stream. Bitte nächstes mal erst kundig machen.

@Andidreas: Hier geht es nicht umd en Client sondern um dern Server!

Wenn man einen Filestream nicht freigibt, wird die Datei auch nicht gespeichert.

[Muetze1]

Zitat von 3_of_8:

Wenn man einen Filestream nicht freigibt, wird die Datei auch nicht gespeichert.

Alles schön und gut, aber das macht die Komponente! Er legt einen Stream an und übergibt sie dem Aufrufer. Dieser kümmert sich um die Freigabe, da er die Instanz übernimmt. Und genau darauf zielte SirThomberry ab!

Vergleichbares bei den TClientSocket/TServerSocket: die Methode SendStream. Die ihr übergebene Stream Instanz übernimmt sie und gibt sie frei, wenn sie alles verarbeitet hat. Ist bei den Methoden oben nicht anders, schliesslich ist der Stream nicht sofort versendet/empfangen. Dies geschieht asynchron, daher wird es auch ausserhalb des aktuellen (VCL)Thread-Context freigegeben.

[Neutral General]

Also: Ich kann zu dem Server connecten und bekomme auch die Dateiliste.
Wenn ich dann mit IDFTP.Get ne Datei runterladen will dann bekomm ich folgende Fehlermeldung:

Zitat:

---------------------------
Project1
---------------------------
Requested action aborted: local error in processing.


---------------------------
OK
---------------------------

Wenn ich jetzt

Delphi-Quellcode:

procedure TForm1.FTPRetrieveFile(ASender: TIdFTPServerThread;
  const AFileName: String; var VStream: TStream);
begin
  VStream := TFileStream.Create(ASender.CurrentDir +  AFilename,fmCreate);
end;

das in den Server schreibe dann gibts keine Fehlermeldung sondern es wird runtergeladen ABER dann bekomm ich ne 0KB Datei -.-

Gruß
Neutral General

[SirThornberry]

Zitat von Neutral General:

Also: Ich kann zu dem Server connecten und bekomme auch die Dateiliste.
Wenn ich dann mit IDFTP.Get ne Datei runterladen will dann bekomm ich folgende Fehlermeldung:

Zitat:

---------------------------
Project1
---------------------------
Requested action aborted: local error in processing.


---------------------------
OK
---------------------------

Wenn ich jetzt

Delphi-Quellcode:

procedure TForm1.FTPRetrieveFile(ASender: TIdFTPServerThread;
  const AFileName: String; var VStream: TStream);
begin
  VStream := TFileStream.Create(ASender.CurrentDir +  AFilename,fmCreate);
end;

das in den Server schreibe dann gibts keine Fehlermeldung sondern es wird runtergeladen ABER dann bekomm ich ne 0KB Datei -.-

Gruß
Neutral General

RetrieveFile wird aufgerufen wenn vom Server eine Datei heruntergeladen wird. Im Moment öffnest du also die Datei die herunter laden willst, leerst diese (fmCreate) und somit ist dann nichts mehr drin was runtergeladen werden kann.