 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
fabiodurgante
Aprendiz
Registrado: Sexta-Feira, 8 de Novembro de 2013
Mensagens: 197
|
 Enviada: Sáb Jan 28, 2017 9:10 pm Assunto: ftp delphi |
 |
|
tenho esses codigo receber arquivo e enviar arquivo ftp
| Código: |
//---------------------------------------------------------------------------------
// Enviar um arquivo para o servidor usando o acesso FTP
procedure TForm4.ftpsend(host, username, password, filefrom, fileto: string;
port: integer);
var
ftp: TIdFTP;
ms: TMemoryStream;
begin
ftp := TIdFTP.Create(Application);
ms := TMemoryStream.Create;
try
try
ftp.host := host; // Endereço do servidor FTP
ftp.port := port;
ftp.username := username; // Parametro nome usuario servidor FTP
ftp.password := password; // Parametro senha servidor FTP
ftp.Connect();
AssErt(ftp.Connected);
ftp.ChangeDir('/'); // Definir a pasta no servidor
ftp.Put(filefrom, fileto, false); // Transferir o arquivo para o servidor
ShowMessage('Transferido');
finally
ms.Free;
ftp.Free;
end;
except
ShowMessage('Uma tentativa de enviar um arquivo para o servidor falhou');
end;
end;
// Obter um arquivo do servidor via FTP
procedure TForm4.ftpget(host, username, password, filefrom, fileto: string;
port: integer);
var
ftp: TIdFTP;
ms: TMemoryStream;
begin
ftp := TIdFTP.Create(Application);
ms := TMemoryStream.Create;
try
try
ftp.host := host; // Endereço do servidor FTP
ftp.port := port;
ftp.username := username;
ftp.password := password;
ftp.Connect();
AssErt(ftp.Connected);
ftp.ChangeDir('/'); // Definir a pasta no servidor
ftp.Get(filefrom, fileto, true); // Receber o arquivo do servidor
ShowMessage('Arquivo Recebido');
finally
ms.Free;
ftp.Free;
end;
except
ShowMessage('Uma tentativa de receber um arquivo do servidor com falha');
end;
end;
|
no delphi7 funciona perfeitamente, porem agora fui fazer para android com o rad studio xe8 e sempre mostra nao e possivel encontrar o caminho the specific file was not found, uma tentativa de receber um arquivo do servidor com falha
o que esta acontecendo se o desktop funciona no android nao funciona ????
caminho do arquivo no filezilla e no programa delphi7 ambos funcionan perfeitamente no android nao funciona
/www/historico/2017/janeiro/quinzena1.html |
|
| Voltar ao Topo |
|
 |
fabiodurgante
Aprendiz
Registrado: Sexta-Feira, 8 de Novembro de 2013
Mensagens: 197
|
| Enviada: Dom Jan 29, 2017 1:44 pm Assunto: |
|
|
consegui fazer funcionar acho que era caminho do arquivo no android para salvar do ftp
| Código: |
procedure TForm4.ftpget(filefrom, fileto: string);
begin
try
try
idftp1.Host := '*****';
idftp1.Username := '*******';
idftp1.Password := '*********';
idftp1.Port := 21;
idftp1.connect;
idftp1.ChangeDir('/');
IdFTP1.Get(filefrom, fileto, true); // Receber o arquivo do servidor
ShowMessage('Arquivo Recebido');
finally
end
except
ShowMessage('Uma tentativa de receber um arquivo do servidor com falha');
abort;
end;
end;
ftpget(origem,'/storage/sdcard0/download/'+quinzena);
|
assim funcionou salva arquivo na memoria interna do celular pasta download |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
