Javlja mi grešku:
"...raised exception class EidReplayRFCError with message 'Can't open that file: Permission denied Rename/move failure: No such file or directory"
Radim s Vistom, D2007
ovo je kod:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Connect;
if IdFTP1.Connected then begin
try
IdFTP1.ChangeDir('pub');
IdFTP1.TransferType := ftBinary;
IdFTP1.Put('C:\Projekti\gs1_web_update\WebUpdateParam.txt', ExtractFileName('C:\Projekti\gs1_web_update\WebUpdateParam.txt'));
except
ShowMessage('Greška');
end;
IdFTP1.Disconnect;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Connect;
if IdFTP1.Connected then begin
try
IdFTP1.ChangeDir('pub');
IdFTP1.TransferType := ftBinary;
IdFTP1.Put('C:\Projekti\gs1_web_update\WebUpdateParam.txt', ExtractFileName('C:\Projekti\gs1_web_update\WebUpdateParam.txt'));
except
ShowMessage('Greška');
end;
IdFTP1.Disconnect;
end;
end;
grešku javi Put(...
Nazive filea sam privjerio, postoje (kopirao ime iz expolorer-a)
O čemu se radi?