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
