Delphi Upload File Ftp

[bunitinho10 0]

Meu progama gera um arquivo DB certo.... entretando preciso que esse arquivo db sejá baixado do sever ftp e salvo na pasta raiz da minha aplicação, e seja enviado cada vez que a pessoa clique no botão que fas o upload do arquivo no servidor novamente. Isso é possivel?

 

Por favor me ajudem com seu codicos :D

[AceStryker 32]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[bunitinho10 0]

Não indendi muto bem pode esplicar?

[AceStryker 32]

Para fazer o upload de arquivos, use o IdFTP(IndyClients):

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Download de arquivos:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[bunitinho10 0]

Para fazer o upload de arquivos, use o IdFTP(IndyClients):

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Download de arquivos:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

No form? ou no idFTP ? valeu cara.. a e mais uma coisa como fasso a autentificação do ftp (ip, Login, senha)

[AceStryker 32]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[bunitinho10 0]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Aonde eu errei? Eu preciso fazer do download de 2 arquivos e o upload de 2 arquivos!

[AceStryker 32]

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons, Mask, DBCtrls,

IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP;

 

type

TForm1 = class(TForm)

Table1: TTable;

Table1ID: TAutoIncField;

Table1Nome: TStringField;

Table1Email: TStringField;

Table1CPFCNPJ: TFloatField;

Table1Telefone: TFloatField;

Table1Endereo: TStringField;

Table1InciodoAluguel: TDateField;

Table1FimdoAluguel: TDateField;

DataSource1: TDataSource;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label8: TLabel;

DBEdit8: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

DBGrid1: TDBGrid;

IdFTP1: TIdFTP;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Table1.Append;

DBEdit2.SetFocus;

BitBtn1.Enabled := False;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Table1.Edit;

DBEdit2.SetFocus;

BitBtn2.Enabled := False;

end;

 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Table1.Post;

BitBtn1.Enabled := True;

BitBtn2.Enabled := True;

end;

 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Table1.Delete;

ShowMessage ('O registro foi deletado!');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

IdFTP1.Host := 'ftp.webevolutionapucarana.com.br';

IdFTP1.UserName := 'webevoluti3';

IdFTP1.Password := 'edpx35';

IdFTP1.Port := '21';

IdFTP1.Connect;

if IdFTP1.Connected then

IdFTP.Put('C:\Users\Matheus\Desktop\Untitled\sitema.extencao', 'sistema.extencao');

IdFTP.Put('C:\Users\Matheus\Desktop\Untitled\sitema.extencao', 'sistema.extencao');

end;

end;

 

end.

[bunitinho10 0]

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons, Mask, DBCtrls,

IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP;

 

type

TForm1 = class(TForm)

Table1: TTable;

Table1ID: TAutoIncField;

Table1Nome: TStringField;

Table1Email: TStringField;

Table1CPFCNPJ: TFloatField;

Table1Telefone: TFloatField;

Table1Endereo: TStringField;

Table1InciodoAluguel: TDateField;

Table1FimdoAluguel: TDateField;

DataSource1: TDataSource;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

DBEdit7: TDBEdit;

Label8: TLabel;

DBEdit8: TDBEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

DBGrid1: TDBGrid;

IdFTP1: TIdFTP;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Table1.Append;

DBEdit2.SetFocus;

BitBtn1.Enabled := False;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Table1.Edit;

DBEdit2.SetFocus;

BitBtn2.Enabled := False;

end;

 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Table1.Post;

BitBtn1.Enabled := True;

BitBtn2.Enabled := True;

end;

 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Table1.Delete;

ShowMessage ('O registro foi deletado!');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

IdFTP1.Host := 'ftp.webevolutionapucarana.com.br';

IdFTP1.UserName := 'webevoluti3';

IdFTP1.Password := 'edpx35';

IdFTP1.Port := '21';

IdFTP1.Connect;

if IdFTP1.Connected then

IdFTP.Put('C:\Users\Matheus\Desktop\Untitled\sitema dados.db', 'dados.db');

IdFTP.Put('C:\Users\Matheus\Desktop\Untitled\sitema dados.PX', 'dados.PX');

end;

end;

 

end.

 

Da erro ai...

 

Os aquivos vai tar no diretorio ráiz da minha aplicação; eu preciso colocar todo o caminho: C:\Users\Matheus\Desktop\Untitled\sitema dados.PX

 

OBRIGADO!

[AceStryker 32]

se nao me engano nao pode ter espaco

[bunitinho10 0]

Tá dando erro sem e com espaço, Dá para ajudar ai :D