Ftp Dosya Gönderme İşlemi Hakkında

[apachi2006]

Kod: (Select All)

procedure Tfmain.btnftpgonderClick(Sender: TObject);
var oldfile,newfile:string;
begin
 try
 FTP1.Disconnect;
 oldfile:= qloginbackuptransfersurucu.Text+qloginbackuptransferdosyaadi.Text+'\'+islemkodu+'.zip';
 newfile:= islemkodu+'.zip';
 FTP1.host := '**';  
 FTP1.username := '**';
 FTP1.password := '**';
 FTP1.port := 21;
 FTP1.Connect;
 if FTP1.Connected  = true then
   begin
   memo.Lines.Add(DateTimeToStr(now)+' '+islemkodu+' Sunucuya Bağlandı...');
   FTP1.Put(oldfile , newfile);
   memo.Lines.Add(DateTimeToStr(now)+' '+islemkodu+' Sunucuya Dosya Aktarıldı...');
   end;
 except
 on E : Exception do
   begin
   ShowMessage('Exception = '+E.Message);
   end;
 end;
end;

Merhabalar, yukardaki kodlarla resim veya text dosyasını sunucuya gönderebiliyorum ancak zipli 50-100 mb veya 2-3 gb dosyaları gönderiyor görünüyor. Ancak sunucudan download edip zipden çıkarırken hata veriyor. Birden fazla metot denedim hepsinde aynı hatayı aldım.

[mirellehgf]

FTP Kitaplık Ayarlarını Kontrol Edin, Kullandığınız FTP bileşeninin büyük dosyaları desteklediğinden ve gerekli ayarların yapılandırıldığından emin olun. Bazı bileşenlerin dosya boyutu veya arabellek boyutlarında sınırlamaları olabilir.

İşte kodunuzun birkaç ayarlamayla güncellenmiş hali:

procedure Tfmain.btnftpgonderClick(Sender: TObject);
var
oldfile, newfile: string;
begin
try
FTP1.Disconnect;
oldfile := qloginbackuptransfersurucu.Text + qloginbackuptransferdosyaadi.Text + '\' + islemkodu + '.zip';
newfile := islemkodu + '.zip';
FTP1.Host := '**';
FTP1.Username := '**';
FTP1.Password := '**';
FTP1.Port := 21;

FTP1.Connect;

if FTP1.Connected then
begin
memo.Lines.Add(DateTimeToStr(now) + ' ' + islemkodu + ' Sunucuya Bağlandı...');

// Optional: Increase buffer size if your FTP component supports it
// FTP1.BufferSize := 8192; // Example value, adjust as needed

FTP1.Put(oldfile, newfile);
memo.Lines.Add(DateTimeToStr(now) + ' ' + islemkodu + ' Sunucuya Dosya Aktarıldı...');
end;
except
on E: Exception do
begin
ShowMessage('Exception = ' + E.Message);
end;
end;
end;

[apachi2006]

(10-09-2024, Saat: 12:21)mirellehgf Adlı Kullanıcıdan Alıntı: FTP Kitaplık Ayarlarını Kontrol Edin, Kullandığınız FTP bileşeninin büyük dosyaları desteklediğinden ve gerekli ayarların yapılandırıldığından emin olun. Bazı bileşenlerin dosya boyutu veya arabellek boyutlarında sınırlamaları olabilir.

İşte kodunuzun birkaç ayarlamayla güncellenmiş hali:

procedure Tfmain.btnftpgonderClick(Sender: TObject);
var
 oldfile, newfile: string;
begin
 try
   FTP1.Disconnect;
   oldfile := qloginbackuptransfersurucu.Text + qloginbackuptransferdosyaadi.Text + '\' + islemkodu + '.zip';
   newfile := islemkodu + '.zip';
   FTP1.Host := '**';  
   FTP1.Username := '**';
   FTP1.Password := '**';
   FTP1.Port := 21;
   
   FTP1.Connect;
   
   if FTP1.Connected then
   begin
     memo.Lines.Add(DateTimeToStr(now) + ' ' + islemkodu + ' Sunucuya Bağlandı...');
     
     // Optional: Increase buffer size if your FTP component supports it
     // FTP1.BufferSize := 8192; // Example value, adjust as needed
     
     FTP1.Put(oldfile, newfile);
     memo.Lines.Add(DateTimeToStr(now) + ' ' + islemkodu + ' Sunucuya Dosya Aktarıldı...');
   end;
 except
   on E: Exception do
   begin
     ShowMessage('Exception = ' + E.Message);
   end;
 end;
end;

Kullandığım FTP componentinin özelliklerinde buffersize bulunmuyor. FTP componentinin kütüphanesi dclindyprotocols240.bpl kullanılıyor. Siz Indy bileşeninin hangi sürümünü kullanıyorsunuz?

[mcuyan]

sftp kulanıyorum..

https://github.com/pult/libssh2_delphi/