Indy FTP Client Upload fortführen

[Mondengel]

Hallo alle zusammen

Nicht gleich schlagen wenn Ihr die Frage albern findet, aber langsam bin ich verzweifelt.

Also ich hab mir mit Hilfe der Indy Komponente einen FTP-Client erstellt. Ich verschicke die Dateien über Put. Nun möchte ich, wenn die Übertragung unterbrochen wurde, den Sendevorgang fortführen... nur ich hab einfach keine Ahnung wie das anstellen soll

Hab überall schon gesucht und find einfach nichts . Wäre super wenn ihr mir weiterhelfem könntet

[Mondengel]

Hat den wirklich niemand eine Idee? Ich würde mein Programm auch etws umstellen.

[Klaus01]

Guten Morgen,

wenn Du bei experts-exchange nach unter scrollst
findest Du ein Beispiel.
Ein wenig tiefer findest Du noch einen Hinweis
was Du beachten solltest.

Achja: Suchstichworte idftp put resume

Grüße
Klaus

[Mondengel]

Ich hab mir mal die Seite angeschaut ... nur leider kann ich die Antwortennicht lesen und ich will mich dort auch nicht anmelden .

Ich schau mal unter dem Stichwort das du mir gegeben hats. Wäre trotzdem dankbar für weitere vorschläge

[Mithrandir]

Zitat von Mondengel:

Ich hab mir mal die Seite angeschaut ... nur leider kann ich die Antwortennicht lesen und ich will mich dort auch nicht anmelden .

Doch, kannst du. Ich hasse diese Seite... Einfach ganz nach unten scrollen. Dann siehste sie auch...

//Edit
Das geht ja wirklich nicht... Normalerweise kommen doch unendlich viele Werbebanner, und dann kommen die Antworten?

[Klaus01]

Zitat von experts-exchange:

Hi there Rogerio,

I don't have much time to test the code in a machine with Delphi, but with Indy10, resume support is built-in.

Check out the Put command, where the 3rd parameter (AApend) is a Boolean value. Set that to True, and it will auto resume *if* the FTP server supports resuming.

So, all you need to do is to do something like:

Delphi-Quellcode:

var
  F: TFileStream;
  DoResume: Boolean;
  iSize: Integer;
begin
  DoResume := False;
  F := TFileStream.Create('Somefile.dat', fmOpenRead or fmShareDenyNone);
  try
    with idFTP1 do
    begin
      // code for connecting to FTP Server goes here...

      iSize := Size('Somefile.dat');
      if (iSize > -1) and (F.Size > iSize) then
      // if the file already exists, and the destination file is smaller, check if we want to resume
        if CanResume
          DoResume := MessageDlg('FTP Server supports Resume. Do you want to resume the previous transfer?',
            mtConfirmation, [mbYes, mbNo], 0) = mrYes;
      Put(F, 'Somefile.dat', DoResume);
    end;
  finally
    F.Free;
  end;
end;

rogerbrito:Hi DragonSlayer.

I have tried that. Using a filename as the first parameter the entire file would be appended no to destination file, and not only the missing part. I also tried using a Stream (as in your example). That worked, but the destination file would always be incomplete (a few kbytes short).

So I've changed to ICS FTPCli component (http://www.overbyte.be) . It's free and I've found a resume upload example that works! I have already implemented it on my application and it is working great!

Thank you for help anyway.

Rogerio


DragonSlayer:Hi Rogerio, I forgot one piece of code... I think you actually need to perform a Seek to the right position in your stream before calling Put. Glad that

[Mondengel]

Hey Es hat geklappt

Ich danke euch vielmals für die Hilfe