Subir Documento

[zuritavic]

Lo que estoy intentando es hacer una aplicacion donde puedan subir fotos en formato ftp a un servidor, antes lo hacia con el componente SaveDialog pero en firemonkey ese componente no me deja utilizarlo que alternativa puedo usar para poder subir las fotos?

utilizo delphi xe7 y la aplicacion es en android.

[Casimiro Notevi]

Creo que estás confundido, ni existen las fotos con formato ftp, ni con el savedialog subes fotos a un servidor ftp.

[zuritavic]

yo utilizo este codigo para subir documentos ftp en delphi xe7

procedure TfrmFacturaPorPargarTotal.btSubirFTPClick(Sender: TObject);
var
   archivoSubir,
   documento,
   extension,
   Nombre_Virtual  :string;
   Id_Doc2 : integer;
   resultado : STRING;
   respuesta : integer;


begin



   if    qrDocumentos.fieldbyname('Documento').asstring <> '' then
      begin
          respuesta :=  MessageDlg('Desea sobre escribir el documento?'+qrDocumentos.fieldbyname('Documento').asstring,    mtConfirmation, [mbYes, mbNo],0);

          if respuesta = mrNo  then
          begin
              exit;
          end;

       end;
   savedialog1.DefaultExt := '*.'+qrDocumentos.fieldbyname('Tipo_Documento').value;
   savedialog1.FileName :=  '*.'+qrDocumentos.fieldbyname('Tipo_Documento').value;

   if savedialog1.Execute then
      begin
           if dm.ftpParametros then

           begin

              documento:= extractFilename(SaveDialog1.FileName);
              extension := ExtractFileExt( SaveDialog1.FileName) ;
              archivoSubir   :=  SaveDialog1.FileName ;
             dm.DevuelveNombre.Prepared := true;
             dm.DevuelveNombre.ExecProc;
             Nombre_Virtual:= dm.DevuelveNombre.Parameters.ParamByName('@nomVirtual').value;
             Nombre_Virtual := Nombre_Virtual+ extension;



             subirFTP(archivoSubir,Nombre_Virtual,'embarquepro.com'//--dm.FTP_URL
             ,'',dm.FTP_USERNAME,dm.FTP_PASSWORD ,strToint(dm.FTP_PUERTO),resultado);
              if resultado = 'OK' then
                  begin

                      dm.spInsDoc.Prepared := true;

                      dm.spInsDoc.Parameters.ParamByName('@Documento').value := documento;
                      dm.spInsDoc.Parameters.ParamByName('@Nombre_Virtual').value := Nombre_virtual;
                      dm.spInsDoc.Parameters.ParamByName('@F_Recibido').value := now;
                      dm.spInsDoc.Parameters.ParamByName('@Creado_por').value := id_usuario;

                      dm.spInsDoc.ExecProc;
                      Id_Doc2 := dm.spInsDoc.Parameters.ParamByName('@Id_Doc2').value;
                      //dm.spInsDoc.Parameters.ParamByName('@VValor_Mensaje int out,
                      // dm.spInsDoc.Parameters.ParamByName('@VMensaje varchar(200) out


                      dm.spUp_Fm_Facturas_Por_Pagar_Doc.Prepared := true;
                      dm.spUp_Fm_Facturas_Por_Pagar_Doc.Parameters.ParamByName('@Id').value := qrDocumentos.fieldbyname('Id').value;
                      dm.spUp_Fm_Facturas_Por_Pagar_Doc.Parameters.ParamByName('@Id_Documento').value := Id_Doc2;
                      dm.spUp_Fm_Facturas_Por_Pagar_Doc.Parameters.ParamByName('@Comentario').value := 'Cargado desde version windows';
                      dm.spUp_Fm_Facturas_Por_Pagar_Doc.Parameters.ParamByName('@contador').value := 1;

                      dm.spUp_Fm_Facturas_Por_Pagar_Doc.ExecProc;
                      dm.spUp_Fm_Facturas_Por_Pagar_Doc.Parameters.ParamByName('@VValor_Mensaje').value;
                      dm.spUp_Fm_Facturas_Por_Pagar_Doc.Parameters.ParamByName('@VMensaje').value;

                  end
              else
                  begin
                     showmessage('erro en el FTP');
                  end ;
               qrDocumentos.Close;
               qrDocumentos.open;


           end;

      end;



end;

[[AgustinOrtu]]

Ahi mas que FTP parece que estas usando algo con acceso a base de datos (procedimiento almacenado, juzgando a simple vista)

Con respecto al SaveDialog fijate si esto te puede servir

Este hilo tambien parece arrojar algo de luz

[Neftali [Germán.Estévez]]

Empezado por Casimiro Notevi

Creo que estás confundido, ni existen las fotos con formato ftp, ni con el savedialog subes fotos a un servidor ftp.

En ese código que has añadido hay varias cosas, pero al igual que Casimiro, creo que te estás haciendo un lío.
Lo que parece que estás haciendo ahí es lo siguiente:

1) Seleccionar un fichero de disco que será el que vas a subir al FTP (eso se hace con el componente TSaveDialog)
2) Una vez que tienes el nombre del fichero, ejecutas el procedimiento subirFTP, que imagino (echándole mucha inventiva) que lo que hace es subir el fichero seleccionado (archivoSubir) a un servidor FTP.
3) Al final, tal y como apunta Agustín, si el fichero se ha subido correctamente (if resultado = 'OK') se hacen unas cosas en la Base de Datos.

Tu primer problema, es que Android no implementa dialogos nativos para acceder a los ficheros, por lo tanto FireMonkey no puede llamar esos diálogos.
La única forma de hacer algo similar a lo que hace el TSaveDialog/TOpenDialog para Android, es que tú construyas tus propios diálogos. Tarea que no es fácil.

Lo siguente es subir el fichero al FTP, pero imagino que ese procedimiento usa las Indy, por lo que debería funcionar sin mayores problemas desde Android.