componente para PUT em FTP - Delphi 11/12

[fabiofranzini]

Ola, qual seria a melhor opção para a operação de put, enviar arquivos para um servidor FTP. Atualmente uso os componentes Indy, para esta operação, alias utilizo ele a muito tempo... Mas nestas versões novas do Delphi, existe algo mais indicado ? 

Alguem teve alguma experiencia melhor utilizando outros ? quais ?

[Juliomar Marchetti]

tu pode usar ftpsend do synapse que o acbr leva

e no getit tem outros

[fabiofranzini]

14 horas atrás, Juliomar Marchetti disse:

tu pode usar ftpsend do synapse que o acbr leva

e no getit tem outros

 

@Juliomar Marchetti Não sei se é impressão minha, mas me parece que o Indy, tem algo que não trabalha bem em questão de Timeout, Não sei se é caracteristica somente dele, ou se é do protocolo FTP mesmo.  Pela sua experiencia, o ftpsend do synapse, trabalha melhor com o protocolo ftp em geral, ou seria trocar "6 por Meia Duzia" ? 

[Juliomar Marchetti]

eu tento não usar Indy.

não sou fã. é um código muito pesado, faz bastante coisa mas não gosto

uso o synapse na maioria ou uso TNetHttpClient mas creio que pra ftp não vá rolar

[fabiofranzini]

10 minutos atrás, Juliomar Marchetti disse:

eu tento não usar Indy.

não sou fã. é um código muito pesado, faz bastante coisa mas não gosto

uso o synapse na maioria ou uso TNetHttpClient mas creio que pra ftp não vá rolar

Obrigado pelas orientações. Vou testar o synapse. 

 

[Djean Carlos]

boa tarde, 

consigo usar o ftpSend com arquivo chave do AWS?
Tem um exemplo disso?

[Juliomar Marchetti]

1 hora atrás, Djean Carlos disse:

boa tarde, 

consigo usar o ftpSend com arquivo chave do AWS?
Tem um exemplo disso?

deve conseguir sim

exemplos senão me engano deve ter no site da synapse

[Djean Carlos Duarte]

Boa tarde,
Não encontrei nenhum exemplo ainda.
Alguém já usou ftp com chave.pem da aws?
 

 

[Juliomar Marchetti]

2 horas atrás, Djean Carlos Duarte disse:

Boa tarde,
Não encontrei nenhum exemplo ainda.
Alguém já usou ftp com chave.pem da aws?
 

 

kkk força abre os fontes do componente

[Djean Carlos Duarte]

bom dia,

Ainda não consigo conectar. podem me ajudar?

var ftpSend : TFTPSend;
Begin
   ftpSend := TFTPSend.Create;
   ftpSend.Sock.SSL.PrivateKeyFile := 'E:\HardSis\Bases\HardSis\chave.pem';
   ftpSend.Username                := 'bitnami';
   ftpSend.TargetHost              := ip_host;
   ftpSend.TargetPort              := '22';

   ftpSend.Login
end;

 

[fabiofranzini]

Coloca o login em em um try except e verifica o que retorna no e.message. 

 

[Djean Carlos Duarte]

Bom dia, 

não recebi exceção no try. 

[Djean Carlos Duarte]

Boa tarde, 

alguem tem um exemplo usando o ftpsend? ou outro componente?

o tftpsend necessite de alguma dll para este caso?

[Juliomar Marchetti]

6 horas atrás, Djean Carlos Duarte disse:

Boa tarde, 

alguem tem um exemplo usando o ftpsend? ou outro componente?

o tftpsend necessite de alguma dll para este caso?

sim openssl com versão mais nova

mas o código acima que postei é exatamente o que vai fazer jovem
monta você um exemplo de aplicação console que esteja dando problema e anexe

[Djean Carlos Duarte]

bom dia, 

a propriedade DataIP e DataPort eu não consigo alimentar da forma que esta na imagem.

segue exemplo. ele não loga e não me retorna exceção. 

 

Exemplo TFTPSend.rar

[Juliomar Marchetti]

deu erro pra mim de login. esses dados estão corretos?

eu não tenho conta em ftp assim e nem em ftp pra testar

mas veja se não tem um ResultCode ou resultstring no seu teste

[Djean Carlos Duarte]

Bom dia Juliomar,

Desculpe, eu alterei os de login antes de postar. Enviei no teu email da assinatura acima. (e-mail: [email protected])

 

[Djean Carlos Duarte]

Bom dia,

Solicitei a alteração de chave.pem para password, e ainda não consegui conectar com tftpsend.

 

[Juliomar Marchetti]

tem que ser via FTP na aws?

usa o WinSCP e veja se consegue conectar com ele

se sim pega o log de conexão pra ver como é enviado

[fabiofranzini]

Em 03/09/2024 at 07:56, Djean Carlos Duarte disse:

bom dia,

Ainda não consigo conectar. podem me ajudar?

var ftpSend : TFTPSend;
Begin
   ftpSend := TFTPSend.Create;
   ftpSend.Sock.SSL.PrivateKeyFile := 'E:\HardSis\Bases\HardSis\chave.pem';
   ftpSend.Username                := 'bitnami';
   ftpSend.TargetHost              := ip_host;
   ftpSend.TargetPort              := '22';

   ftpSend.Login
end;

 

Me ocorreu um pensamento, onde você indica o arquivo pem. 

Tenta usar o PuTTYgen, e converter esta chave em .ppk e indica este novo arquivo como PrivateKeyFile.    Atenção isto é só um chute.  

[Djean Carlos Duarte]

@Juliomar Marchetti Bom dia, não entendi direito a sua sugestão. Tambem não conseguisse conectar com as credenciais que lhe enviei?

[Juliomar Marchetti]

38 minutos atrás, Djean Carlos Duarte disse:

@Juliomar Marchetti Bom dia, não entendi direito a sua sugestão. Tambem não conseguisse conectar com as credenciais que lhe enviei?

não consegui

disse pra usar um aplicativo de ftp e testar com ele para ver se conecta com suas credenciais

[Djean Carlos Duarte]

@Juliomar Marchetti, entendi, eu consigo conectar pelo filezila com estas credenciais.

[Juliomar Marchetti]

1 hora atrás, Djean Carlos Duarte disse:

@Juliomar Marchetti, entendi, eu consigo conectar pelo filezila com estas credenciais.

certo e tu pode passar como está a config nele.

[Djean Carlos Duarte]

@fabiofranzinibom dia, obrigado pela dica, mas não conseguir fazer o procedimento.