Erro ao enviar de arquivos através de FTP

Delphi

CRUD - Delphi

24/01/2023

Pessoal, eu faço a conexão do ftp, consigo fazer upload e download de arquivo de fotos, são gravados no servidor, mas se "manualmente" vou ao servidor e quero visualizar o arquivo, não abre e informa que o formato é desconhecido. O que estou fazendo de errado, conseguem me ajudar por favor?

with FtpConect do
begin
Host:='''';
Port := 21;
Username := '''';
Password := '''';
FtpConect.Connect;

end;


try
FtpConect.Put(OpenDialog1.filename,''/public/hcm_docs/'' + ExtractFileName(OpenDialog1.FileName) ,true);
ShowMessage(''Documento gravado'');
FtpConect.Disconnect;
except
on E: exception do
begin
ShowMessage(E.Message);
FtpConect.Disconnect;
end;

end;
Fernando Bulhões

Fernando Bulhões

Curtidas 0
POSTAR