Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Desarrollo en Delphi para Android (https://www.clubdelphi.com/foros/forumdisplay.php?f=57)
-   -   Abrir archivo (https://www.clubdelphi.com/foros/showthread.php?t=85782)

MaxiDucoli 04-05-2014 21:56:20

Abrir archivo
 
Hola, estoy tratando de hacer un programa para enviar mails y al momento de agregar adjuntos, el TOpendialog no me funciona.

Cómo puedo hacer para poder elegir un archivo y adjuntarlo a mi programa?

Todo esto es desde Android.

Es posible???

Neftali [Germán.Estévez] 05-05-2014 10:13:43

Cita:

Empezado por MaxiDucoli (Mensaje 476023)
el TOpendialog no me funciona...

Tendrías que intentar concretar un poco más...
El "no me funciona" no es muy explicativo. Tendrías que especificar si no te compila. Si te da algún error y cual es.
¿Te falla en ejecución?
...

Poner algo de código del que estás utilizando también ayudaría bastante.

Bienvenido al Club. Revisa la guía de estilo.

MaxiDucoli 11-05-2014 21:54:27

Si, es verdad.
Fui a lo simple para poder seguir intentando y no expliqué bien el tema.

Tengo un TButton al que dentro del mismo tengo este código.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
abrir : TOpenDialog;
adjunto : string;
begin
abrir := TOpenDialog.Create(self);
if abrir.Execute then adjunto := abrir.FileName;
abrir.Free;
end;

Sé que se ve muy simple y rústica, pero estoy en pruebas, ya que no me hace nada al ejecutar el programa.
Hago click en el botón, pero solo hace el efecto del click y nunca me abre ningún diálogo para yo poder seleccionar algún archivo.

Hay alguna manera de poder hacer aparecer el menú de compartir que te dá el android por defecto y de ahí usar alguna otra aplicación para seleccionar el archivo que se quisiera adjuntar?

Gracias!!


La franja horaria es GMT +2. Ahora son las 03:58:15.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi