FTP dosya gönderme

[sako]

Aşağıdaki kod ile hostingime dosya gönderebiliyorum. Ancak benim istediğim seçtiğim klasör içindeki dosyaları komple göndermek.

ConnectButton.Enabled := false;
if IdFTP1.Connected then try
if TransferrignData then IdFTP1.Abort;
IdFTP1.Quit;
finally
CurrentDirEdit.Text := '/www/app_data';
//DirectoryListBox.Items.Clear;
SetFunctionButtons(false);
ConnectButton.Caption := 'GÜNCELLE';
ConnectButton.Enabled := true;
ConnectButton.Default := true;
end
else with IdFTP1 do try
Username := UserIDEdit.Text;
Password := PasswordEdit.Text;
Host := FtpServerEdit.Text;
Connect;
Self.ChageDir(CurrentDirEdit.Text);
SetFunctionButtons(true);
//SaveFTPHostInfo(FtpServerEdit.Text, 'FTPHOST');
finally
ConnectButton.Enabled := false;
end;
if IdFTP1.Connected then begin
//if UploadOpenDialog1.Execute then try
SetFunctionButtons(false);
IdFTP1.TransferType :=ftBinary;
IdFTP1.Put('D:\barkod\veri.mdb', ExtractFileName('D:\barkod\veri.mdb')); Böyle yazınca sorunsuz gönderiyor. Ama O klasör içindekileri göndermek için *.* denedim hata veriyor.
ChageDir(idftp1.RetrieveCurrentDir);
// finally
SetFunctionButtons(true);
end;

ShowMessage('aktarım tamamlandı');
IdFTP1.Disconnect;
ConnectButton.Enabled := true;
end;

[Battosai]

İlk önce göndermek istediğin dosyaları bir StringList içine al sonra Gönderme işlemini yapan kodları stringlist daki dosya sayısına ve dosya adreslerine göre döngüye sok....

Kod: Tümünü seç

for i:=0 to List.count-1 do 
Begin
 Dosya:=List.Strings[i];
 IdFTP1.Put(Dosya, ExtractFileName(Dosya));
End;

Bu işlem sırasıyla dosyalarını gönderecektir....

[sako]

stringliste dosyalaratacak kodu yazabilsem zaten göndermeyi başarırırm Ama bence daha pratik bir yolu vardır..

[Battosai]

Daha pratik yolu sana hazır kodların verilmesidir...Dizin de dosya arama ile alakalı oldukça fazla örnek var onlardan faydalan...

[thelvaci]

FindFirst, FindNext, FindClose metodlarını biraz inceleyebilirsiniz.

[sako]

Daha pratik yolu sana hazır kodların verilmesidir...

Yok onu demek istemedim daha pratik bir yolu vardır belki dedim Ama

for i:=0 to listbox1.Items.Count-1 do
idftp1.Put(ListBox1.Items.Strings,ListBox2.Items.Strings ,true);

koduyla hallettim. Tşkler...