Erro ao enviar de arquivos através de FTP
24/01/2023
0
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;
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)