Ich baue an einem
FTP-Client.
Nun hänge ich an dem Multiselect-Download fest.
Meine Downloadbefehle sind bis jetzt folgende:
Delphi-Quellcode:
procedure TMainForm.DirectoryListBoxDblClick(Sender: TObject);
Var
Name, Line : String;
begin
if edit4.text ='' then exit;
if not IdFTP1.Connected then exit;
Line := DirectoryListBox.Items[DirectoryListBox.ItemIndex];
if checkbox1.checked then begin
Name := IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].FileName+spezial.text
end
else
Name := IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].FileName;
if IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].ItemType = ditDirectory then begin
//Change directory
SetFunctionButtons(false);
ChageDir(Name);
SetFunctionButtons(true);
end
else begin
try
SaveDialog1.FileName := Name;
savedialog1.InitialDir := edit4.text;
if SaveDialog1.Execute then begin
SetFunctionButtons(false);
IdFTP1.TransferType := ftBinary;
BytesToTransfer := IdFTP1.Size(Name);
if FileExists(Name) then begin
case MessageDlg('Datei existiert bereits. Willst Du mit dem Download weitermachen?',
mtConfirmation, mbYesNoCancel, 0) of
mrYes: begin
BytesToTransfer := BytesToTransfer - FileSizeByName(Name);
IdFTP1.Get(Name, SaveDialog1.FileName, false, true);
end;
mrNo: begin
IdFTP1.Get(Name, SaveDialog1.FileName, true);
end;
mrCancel: begin
exit;
end;
end;
end
else begin
IdFTP1.Get(Name, SaveDialog1.FileName, false);
end;
end;
finally
SetFunctionButtons(true);
end;
end;
end;
DirectoryListBox.Items währe die Liste des Inhalts vom Server. Downloaden von den einzelnen Dateien ist möglich. Nun will ich aber erreichen, dass der User alle Dateien, die er benötigt zu markieren und mein Programm diese dann nacheinander downloaded. Nur bin ich noch nicht draufgekommen, wie ich das anstellen soll.
Was ich bis jetzt gemacht habe:
Die Variable Name ist das zur Zeit markierte Item von der DirectoryListBox.
Das InitialDir = edit4.text. Der User kann somit das Downloadverzeichnis festlegen.
Somit könnte ich z.B. folgenden Code anwenden:
IdFTP1.get(Name, Edit4.text+Name2, false);
Nur fehlt mir eine Routine, das nach Beendigung des Downloads der aktuellen Datei die nächste anschließend downgeloaded wird.