[darkamerico]

Amigo, no funciona, aqui coloco toda la unidad:

Código Delphi [-]
unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, TabNotBk, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, DBCtrls,
  Grids, DBGrids, ShellAPI, Mask, StrUtils;

type
  TForm5 = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    cboEmisor: TComboBox;
    Panel2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    cboEmisora: TComboBox;
    Label5: TLabel;
    cboTipDoc: TComboBox;
    Label6: TLabel;
    txtTitulo: TMemo;
    Label7: TLabel;
    cboFechaPub: TDateTimePicker;
    btnExaminar: TButton;
    Label8: TLabel;
    btnGrabar: TButton;
    open: TOpenDialog;
    lblFilename: TLabel;
    clienteFTP: TIdFTP;
    ProgressBar1: TProgressBar;
    gridFilesXEntidad: TDBGrid;
    DBNavigator1: TDBNavigator;
    Panel3: TPanel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Button1: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit3: TDBEdit;
    procedure FormActivate(Sender: TObject);
    procedure btnExaminarClick(Sender: TObject);
    procedure cboEmisoraChange(Sender: TObject);
    procedure btnGrabarClick(Sender: TObject);
    procedure cboTipDocChange(Sender: TObject);
    procedure clienteFTPWork(ASender: TObject; AWorkMode: TWorkMode;
      AWorkCount: Int64);
    procedure cboEmisorChange(Sender: TObject);
    procedure gridFilesXEntidadCellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  archivox, rutaEmisor, rutaSelecc:string;
  idEmisor, idTipDoc:integer;

implementation

uses DM;

{$R *.dfm}

procedure OpenFileInOSShell(AFile: string);
begin
  //ShellExecute(0, 'open', PChar(AFile), nil, nil, SW_SHOW);
  ShellExecute(0, 'open', PChar(AFile), PChar('"' + AFile + '"'), nil, SW_SHOW);
end;

procedure TForm5.btnExaminarClick(Sender: TObject);
begin
  if open.Execute then
  begin
      archivox:=QuotedStr(open.FileName);
      lblFilename.Caption:=archivox;
      btnGrabar.Enabled:=true;
      btnGrabar.SetFocus;
  end;
end;

procedure TForm5.btnGrabarClick(Sender: TObject);
var
 Tam,FHandle,BytesEnviados, idDoc : integer;
begin
    FHandle := FileOpen(archivox, 0);
    Tam := Getfilesize(FHandle,nil);
    FileClose(FHandle);
    //******** Conecto con servidor Ftp
    ClienteFTP.Username := 'magus';
    ClienteFTP.Password := 'magussersa';
    ClienteFTP.Host := '192.168.1.215';

    Try
      ClienteFTP.Connect ;
    Except
      Showmessage ('Error en la Conexion con el Servidor FTP');
    End;

    If ClienteFTP.Connected then
    Begin
      ProgressBar1.Min := 0;
      ProgressBar1.Max := Tam;
      ClienteFTP.BeginWork(wmWrite);

      Try
        ClienteFTP.Put(archivox,rutaEmisor+'/'+ExtractFileName(archivox));
        ClienteFTP.EndWork(wmWrite);
        ClienteFTP.Disconnect;
        Finally
          BytesEnviados := ProgressBar1.Position;

          If BytesEnviados < Tam then
            ShowMessage('El Archivo no pudo ser Enviado')
          Else
          begin
            ShowMessage('El Archivo fue Enviado corréctamente');
            // Insertar el registro
            dmBanco.q_CalcIDDoc.close;
            dmBanco.q_CalcIDDoc.Open;

            if length(dmBanco.q_CalcIDDoc.FieldByName('idDoc').AsString)=0 then
              idDoc:=1
            else
              idDoc:=dmBanco.q_CalcIDDoc.FieldByName('idDoc').AsInteger;

            dmBanco.q_INSDoc.Close;
            dmBanco.q_INSDoc.Params[0].AsInteger:=idDoc;
            dmBanco.q_INSDoc.Params[1].AsInteger:=idEmisor;
            dmBanco.q_INSDoc.Params[2].AsInteger:=idTipDoc;
            dmBanco.q_INSDoc.Params[3].AsString:=trim(txtTitulo.Text);
            dmBanco.q_INSDoc.Params[4].AsString:=DateToStr(cboFechaPub.Date);
            dmBanco.q_INSDoc.Params[5].AsString:='./'+rutaEmisor+'/'+ExtractFileName(archivox);
            dmBanco.q_INSDoc.ExecSQL;
          end;
          End;
      End;
      btnGrabar.Enabled:=false;
      cboEmisora.Text:='Seleccionar...';
      cboTipDoc.Text:='Seleccionar...';
      txtTitulo.Text:='';
      cboFechaPub.Date:=date;
      lblFilename.Caption:='';
      progressbar1.Position:=0;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
  OpenFileInOSShell('ftp://magus:[email protected]/' + rutaSelecc);
end;

procedure TForm5.cboEmisoraChange(Sender: TObject);
var
  posPunto:integer;
begin
  if(cboEmisora.Text<>'Seleccionar...')then
  begin
    posPunto:=pos('.',cboEmisora.Text);
    dmBanco.q_RutaDeEmisor.Close;
    dmBanco.q_RutaDeEmisor.Params[0].AsInteger:=StrToInt(copy(cboEmisora.Text,1,posPunto-1));
    dmBanco.q_RutaDeEmisor.Open;
    rutaEmisor:=dmBanco.q_RutaDeEmisor.FieldByName('carpeta').AsString;
    idEmisor:=StrToInt(copy(cboEmisora.Text,1,posPunto-1));
  end;
end;

procedure TForm5.cboEmisorChange(Sender: TObject);
var
  posPunto:integer;
begin
  if cboEmisor.Text<>'Seleccionar...' then
  begin
    posPunto:=pos('.',cboEmisor.text);
    dmBanco.q_GridFilesXEntidad.Close;
    dmBanco.q_GridFilesXEntidad.Params[0].AsInteger:=StrToInt(copy(cboEmisor.Text,1,posPunto-1));
    dmBanco.q_GridFilesXEntidad.Open;
    dmBanco.q_GridFilesXEntidad.Active:=true;
  end;
end;

procedure TForm5.cboTipDocChange(Sender: TObject);
var
  posPunto:integer;
begin
  if(cboTipDoc.Text<>'Seleccionar...') then
  begin
    posPunto:=pos('.',cboTipDoc.Text);
    idTipDoc:=StrToInt(copy(cboTipDoc.Text,1,posPunto-1));
  end;
end;

procedure TForm5.clienteFTPWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
  ProgressBar1.Position := AWorkCount;
end;

procedure TForm5.FormActivate(Sender: TObject);
begin
  cbofechaPub.Date:=date;

  cboEmisora.Items.Clear;
  cboEmisor.Items.Clear;
  dmBanco.q_Emisoras.Close;
  dmBanco.q_Emisoras.Open;
  while not dmBanco.q_Emisoras.Eof do
  begin
    cboEmisor.Items.Add(dmBanco.q_Emisoras.FieldByName('idemisor').AsString + '.' + dmBanco.q_Emisoras.FieldByName('emisor').AsString);
    cboEmisora.Items.Add(dmBanco.q_Emisoras.FieldByName('idemisor').AsString + '.' + dmBanco.q_Emisoras.FieldByName('emisor').AsString);
    dmBanco.q_Emisoras.Next;
  end;
  dmBanco.q_Emisoras.Close;

  cboTipDoc.Items.Clear;
  dmBanco.q_TipDoc.Close;
  dmBanco.q_TipDoc.Open;
  while not dmBanco.q_TipDoc.Eof do
  begin
    cboTipDoc.Items.Add(dmBanco.q_TipDoc.FieldByName('idtipdoc').AsString + '.' + dmBanco.q_TipDoc.FieldByName('tipdoc').AsString);
    dmBanco.q_TipDoc.Next;
  end;
  dmBanco.q_TipDoc.Close;
end;

procedure TForm5.gridFilesXEntidadCellClick(Column: TColumn);
begin
  rutaSelecc:=gridFilesXEntidad.DataSource.DataSet.Fields[4].AsString;
end;

end.