Fórum Uploads Downloads #180494
08/09/2003
0
Muito grato!
Cic.pop
Curtir tópico
+ 0Posts
08/09/2003
Cebikyn
http://delphiforum.icft.com.br/forum/viewtopic.php?p=48932#48932
Gostei + 0
08/09/2003
Cebikyn
O exemplo abaixo usa um [b:7fbe2a065e]NMFTP[/b:7fbe2a065e], da palheta FastNet, no Delphi 6.
procedure TForm1.Button1Click(Sender: TObject);
begin
with NMFTP1 do begin
Host := ´123.123.123.123´; // IP
Port := 21; // Porta
UserID := ´login´; // Login
Password := ´senha´; // Senha
Connect;
if not Connected then begin
ShowMessage(´Não foi possível conectar!´);
exit;
end;
ChangeDir(´/users/geobul/txt´); // Mudar a pasta, se necessário
Mode(MODE_ASCII); // Modo de texto
Upload(´File.txt´ ,´File.txt´); // Faz o Upload (Arquivo de texto)
Mode(MODE_BYTE); // Modo Binário
ChangeDir(´/users/geobul/apps´); // Mudar a pasta, se necessário
Upload(´File.exe´, ´File.exe´); // Faz o Upload (Programa)
Disconnect;
end;
end;O código a cima também pode ser usado para downloads (FTP), basta trocar Upload por Download.
Gostei + 0
08/09/2003
Cic.pop
Desculpem-me, não fui muito claro. Eu estou precisando de fazer o download gravando o arquivo no banco de dados e o upload a partir do banco de dados.
Gostei + 0
08/09/2003
Maxwell_monteiro
Gostei + 0
18/03/2004
Castor Troy
procedure TForm1.Button1Click(Sender: TObject);
begin
with NMFTP1 do begin
Host := ´123.123.123.123´; // IP
Port := 21; // Porta
UserID := ´login´; // Login
Password := ´senha´; // Senha
Connect;
if not Connected then begin
ShowMessage(´Não foi possível conectar!´);
exit;
end;
ChangeDir(´/users/geobul/txt´); // Mudar a pasta, se necessário
Mode(MODE_ASCII); // Modo de texto
Upload(´File.txt´ ,´File.txt´); // Faz o Upload (Arquivo de texto)
Mode(MODE_BYTE); // Modo Binário
ChangeDir(´/users/geobul/apps´); // Mudar a pasta, se necessário
Upload(´File.exe´, ´File.exe´); // Faz o Upload (Programa)
Disconnect;
end;
end;Gostaria de saber como eu faria esse upload via http?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)