FTp dosya indirme (Çözüldü)

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

FTp dosya indirme (Çözüldü)

Mesaj gönderen haydarxxx »

Slmlar.Aşığıda forumda bulduğum kod ile dosya inidirmek istiyorum
function FTPDosyaAl( IdFTP : TIdFTP; SrcDosya, DesDosya:TFileName; Ftp, RemoteDir, Login, Pass : String ):Boolean;
begin // Uses IdFTP, IdFTPCommon
Result := False;
IdFtp.Host := Ftp;
IdFtp.Username := Login;
IdFtp.Password := Pass;
IdFtp.Passive := True;
IdFtp.Connect;
If IdFtp.Connected then
begin
IdFtp.ChangeDir(RemoteDir);
Try
IdFtp.TransferType := ftBinary; // Uses IdFTPCommon
IdFtp.Get(SrcDosya, DesDosya, False);
Finally
Result := True;
end;
IdFtp.Quit;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
FTPAdres,
KaynakDizin,
Name,
Pass,
KaynakDosya,
HedefDosya : String;
begin
FTPAdres := ''siteadı;
KaynakDizin := '/prg';
Name := 'isim';
Pass := 'sifre';
KaynakDosya := 'NetUpdate.ini';
HedefDosya := ExtractFilePath(Application.Exename) + KaynakDosya;
If FileExists(HedefDosya) AND ( MessageDlg('Hedef Dosya Mevcut, üzerine yazılsın mı ? '+#13'('+HedefDosya+')', mtInformation, [mbYes, mbCancel], 0) = mrCancel )
then EXIT
else DeleteFile(HedefDosya);

If FTPDosyaAl( IdFtp1, KaynakDosya, HedefDosya, FTPAdres, KaynakDizin, Name, Pass )
then MessageDlg('Dosya Başarıyla Alındı'+#13'('+HedefDosya+')', mtInformation, [mbok], 0)
else MessageDlg('Dosya Alınamadı'+#13'('+KaynakDosya+')', mtError, [mbok], 0);
end;
gerekli şifreleri giriyorum.Fakat NetUpdate.ini dosyasını çakemiyorum.Hatam nerede saatlerdir uğraşıyorum :Noops
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: FTp dosya indirme (Çözüldü)

Mesaj gönderen haydarxxx »

yeni bir projede denedim çalıştı.teşekkürler
Cevapla