Jump to content

Turbine o seu Perfil

Confira a atualização e participe do clube!
Clique e saiba mais

Junte-se ao Clube de Membros VIP

Tenha destaque e diversos benefícios!
Confira Aqui

Acesse nosso Discord

Conheça nossos canais interativos
Confira Aqui
Notícia
  • Adquira já o seu VIP!
Sign in to follow this  
Fogomax ~

Ajuda no Delphi

Recommended Posts

Gente, eu estou fazendo um sistema ftp.

E preciso que o programa, faça o upload de "todos" os arquivos dentro da pasta.

E também, que ele faça o download de todos os arquivos que estão dentro da pasta do ftp.

Código de upload:

procedure TForm7.Button1Click(Sender: TObject);
begin
Try
idFTP1.ChangeDir('public_html');
IdFTP1.Put (GetCurrentDir+'\Pasta', [b]arquivos.exe[/b], false);
except
showmessage('Erro no Upload, Tente Novamente.');
end;
end;

Onde está em negrito é onde vai o nome do arquivo para fazer o upload, sendo que precisa ser de vários.

OBS: O nome do arquivos NÃO é definido, só a extensão que tem certeza que é.

Código de Download:

procedure TDownload.Timer1Timer(Sender: TObject);
var
direc,name,line,dir,repli : string;
begin
Try
direc := (GetCurrentDir+'\Pasta');
name := ('[b]Arquivos.exe[/b]');
line := direc+'\'+name;
dir := 'public_html';
Form1.IdFTP1.ChangeDir('public_html');
Form1.IdFTP1.Get(Name, Line, false);
Timer1.Enabled := False;
ShellExecute(Handle,'open',PChar(GetCurrentDir+'\Arquivo.exe'),nil,nil,SW_SHOWNORMAL);

except
Showmessage('Ocorreu um erro, tente novamente.');
Application.Terminate
end;
end;

 

Onde está em negrito é a mesma coisa que o primeiro. A única diferença é que um é upload e outro é download. Ah, e se o arquivo já existir, é só substituir.

Espero que consigam, obrigado.

Share this post


Link to post
Share on other sites

Nao entendi onde esta o erro , explica mais parceiro.


jetmWsa9ZuIOi.png

 

Where have you been all this time? I searched so much for you, Amira

Share this post


Link to post
Share on other sites

Bom cara eu tenho um exemplo aqui no meus projetos..

 

Upload :

 

 

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls,
   CHILKATFTP2Lib_TLB,
   OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
localFilename: String;
remoteFilename: String;

begin
ftp := TChilkatFtp2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := ftp.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
 begin
   ShowMessage(ftp.LastErrorText);

 end;

ftp.Hostname := 'ftp.chilkatsoft.com';
ftp.Username := '****';
ftp.Password := '****';

//  The default data transfer mode is "Active" as opposed to "Passive".

//  Connect and login to the FTP server.
success := ftp.Connect();
if (success <> 1) then
 begin
   ShowMessage(ftp.LastErrorText);

 end;

//  Change to the remote directory where the file will be uploaded.
success := ftp.ChangeRemoteDir('junk');
if (success <> 1) then
 begin
   ShowMessage(ftp.LastErrorText);

 end;

//  Upload a file.
localFilename := 'c:/temp/hamlet.xml';
remoteFilename := 'hamlet.xml';

success := ftp.PutFile(localFilename,remoteFilename);
if (success <> 1) then
 begin
   ShowMessage(ftp.LastErrorText);

 end;

ftp.Disconnect();

ShowMessage('File Uploaded!');
end;

 

 

 

Download :

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls,
   CHILKATFTP2Lib_TLB,
   OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
localFilename: String;
remoteFilename: String;

begin
ftp := TChilkatFtp2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := ftp.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
 begin
   ShowMessage(ftp.LastErrorText);

 end;

ftp.Hostname := 'ftp.example-code.com';
ftp.Username := 'myLogin';
ftp.Password := 'myPassword';

//  The default data transfer mode is "Active" as opposed to "Passive".

//  Connect and login to the FTP server.
success := ftp.Connect();
if (success <> 1) then
 begin
   ShowMessage(ftp.LastErrorText);

 end;

//  Change to the remote directory where the file is located.
//  This step is only necessary if the file is not in the root directory
//  for the FTP account.
success := ftp.ChangeRemoteDir('junk');
if (success <> 1) then
 begin
   ShowMessage(ftp.LastErrorText);

 end;

//  Download a file.
localFilename := 'c:/temp/hamlet.xml';
remoteFilename := 'hamlet.xml';

success := ftp.GetFile(remoteFilename,localFilename);
if (success <> 1) then
 begin
   ShowMessage(ftp.LastErrorText);

 end;

ftp.Disconnect();

ShowMessage('File Downloaded!');
end;

 

OBS: Os creditos NÃO são meus.

Share this post


Link to post
Share on other sites

@iMelo~', tecnicamente não é um erro.

Quero que ele faça o upload de TODOS os arquivos que tem uma determinada extensão, e depois que faça o download de TODOS os arquivos que tem a mesma determinada extensão.

Ah, e tem um erro sim, preciso que ele substitua tanto pra download quanto pra upload.

 

@nubatikaas_, os scripts desse site são horríveis, você só pode usar esses scripts por 30 dias, sem falar que precisa baixar um pack de coisas pra funcionar. T.T

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...