(idftp ile) DBF dosyalarını gondermeye calıyıyorum. gonderiyor diyor ama... programdan yeni kayıt yazıyorum kaydediyorum. Kayıtlar arasında dolaşırken kaydettiğim kayıdı gorebiliyorum. Sonra dosyaları ftp'ye yukle tuşuna basıyorum gonderiyor diyor. Sonra dosyaları internetten yukleyip baktığımda kayıt yok diye goruyorum. Neden boyle oluyor , yardım edin.
kodlar:
procedure TForm1.Button1Click(Sender: TObject);
begin
if isinternetconnected=true then //function kullandım ama buraya kodlarını yazmadım
begin
idfTP1.connect;
if fileexists('C:\xxx.DBF') then
begin
if fileexists('C:\xxx.MDX') then
begin
if fileexists('C:\xxx.DBT') then
begin
idftp1.Delete('/xxx.com/xxx.DBF');
gauge1.Progress:=16;
idftp1.Delete('/xxx.com/xxx.MDX');
gauge1.Progress:=32;
idftp1.Delete('/xxx.com/xxx.DBT');
gauge1.Progress:=48;
idftp1.Put('C:\xxx.DBF','/xxx.com/xxx.DBF');
gauge1.Progress:=64;
idftp1.Put('C:\xxx.MDX','/xxx.com/xxx.MDX');
gauge1.Progress:=80;
idftp1.Put('C:\xxx.DBT','/xxx.com/xxx.DBT');
gauge1.Progress:=100;
showmessage('İşlem tamamlandı');
close;
end
else
showmessage('Kayıt dosyası bulunamadı.');
end
else
showmessage('Kayıt dosyası bulunamadı.');
end
else
showmessage('Kayıt dosyası bulunamadı.');
end;

END;
__________________