TOPIC:

Hi there. I tried to upload file to an FTP server, but to no avail. The connection is fine, picture is there, no errors, but the picture is not uploaded on the server. What is wrong?

---

var
FTP: TFTPSend;
success : Boolean;
begin
// ftp
FTP := TFTPSend.Create;
try
FTP.TargetHost := 'localhost';
//FTP.TargetPort := '21';
FTP.UserName := 'user';
FTP.Password := 'password';
FTP.Login; //ok
FTP.CreateDir('/my_path/ftp_test');//ok
//FTP.Logout;
FTP.ChangeWorkingDir('/my_path/ftp_test'); //everything is ok
except
on E : Exception do
begin
ShowMessage(E.Message);
Exit;
end;
end;

picture_name:= 'picture_file';//ok
with FTP do
begin
//ShowMessage(FTP.GetCurrentDir + '/' + picture_name);//ok
FTP.DirectFileName:= picture_name;
FTP.DirectFile:= True;
success:= FTP.StoreFile(curr_picture, False);// same with True
if success then
ShowMessage('Ok')
else
ShowMessage('Grrrr...');//Grrrrrrrrrrrrrrrrrrr....
end;

FTP.Logout;
FTP.Free;
end;

Synapse, openSuSe 12.2, vsftpd(ftp), CT4.0 32
Thanks!

Works well with Indy(IdFTP)!
---
IdFTP1.Username:= 'user_name';
IdFTP1.Host:= 'localhost';
IdFTP1.Password:= 'user_pwd';
IdFTP1.Connect;
IdFTP1.MakeDir('/some_path/indy_pictures');
IdFTP1.ChangeDir('/some_path/indy_pictures');
IdFTP1.Put('/image_path/Img_name.jpg');
IdFTP1.Disconnect;
---
Success!

We updated pl_Synapse Source from SVN Rev 181
has a lot of changes...

Thank you very much sir!
p.s. BigChimp, Lazarus forum, said that(same code) works on his(Win)PC.