Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Guardar PDF previamente abierto (https://www.clubdelphi.com/foros/showthread.php?t=76725)

Lenny 22-11-2011 15:56:02

Guardar PDF previamente abierto
 
Holas y buenas, he molestado mucho utlimamente, pero me caigo en tonteras, espero puedan ayudarme, muchas gracias de antemano.

Tengo este codigo, que me carga a travez de un OpenDialog un PDF en AcroPDF (Lo veo dentro de la aplicacion):

Código Delphi [-]
 
procedure TObjetivosCalidadIngreso.Button2Click(Sender: TObject);
begin
  if opendialog1.Execute then
  begin
    AcroPDF1.LoadFile(opendialog1.FileName);
end;
end;

Hasta ak, esta todo bien, la pregunta, como puedo guardar el mismo archivo en otra ruta y con otro nombre???

Utilizo Delpho 2010, Zeos y MySQL, muchas gracias...

Lenny 22-11-2011 16:59:10

Solucionado!!!
 
Me autorrespondo:

Quedaria de esta manera:

Abrimos el PDF en cuestion...
Código Delphi [-]
 
procedure TObjetivosCalidadIngreso.AbrirPDF(Sender: TObject);
begin
  if opendialog1.Execute then
  begin
    AcroPDF1.LoadFile(opendialog1.FileName);
  end;
end

Luego, Guardamos:
Código Delphi [-]
 
procedure TObjetivosCalidadIngreso.GuradarPDF(Sender: TObject);
begin
copyfile(pchar(OpenDialog1.FileName),pchar('C:\DOCUMENTOS\Nombre a elegir.pdf'),false);
end;

Gracias de todos modos!!!


La franja horaria es GMT +2. Ahora son las 15:18:26.

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