Uploads Downloads

Delphi

08/09/2003

[color=green:a74e415eda][/color:a74e415eda] Gostaria de saber se algem poderia me informar uma rotina em delphi(de preferencia a partir da versão 6) que faça Uploads e Downloads.
Muito grato!


Cic.pop

Cic.pop

Curtidas 0

Respostas

Cebikyn

Cebikyn

08/09/2003

Downloads:
http://delphiforum.icft.com.br/forum/viewtopic.php?p=48932#48932


GOSTEI 0
Cebikyn

Cebikyn

08/09/2003

Uploads:

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
Cic.pop

Cic.pop

08/09/2003

[color=green:995618ec0a][/color:995618ec0a] Gostaria de saber se algem poderia me informar uma rotina em delphi(de preferencia a partir da versão 6) que faça Uploads e Downloads. Muito grato!


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
Maxwell_monteiro

Maxwell_monteiro

08/09/2003

Usa o exemplo que o cara deu acima! e grava no banco de dados os endereços de onde estão os arquivos!


GOSTEI 0
Castor Troy

Castor Troy

08/09/2003

Uploads: O exemplo abaixo usa um [b:f6854e0811]NMFTP[/b:f6854e0811], 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.


Gostaria de saber como eu faria esse upload via http?


GOSTEI 0
POSTAR