PDF en delphi

[JoseSagas]

miren necesito ayuda en como hacer que un .pdf salga en algun objeto de delphi, si alguien sabe como hacerlo podria decirme, gracias
en internet encontre que se tenia que instalar un adobe action X y lo instale y me puso 1 libreria nueva llamda activeX con: AdobeSPOpenDocuments y acropdf y he estado probando como se usan pero no encuentro como hacer que salga un archivo pdf en eso. no se si esos son los objetos que tenog que utilizar o algun otro

gracias

[ecfisa]

Empezado por JoseSagas

miren necesito ayuda en como hacer que un .pdf salga en algun objeto de delphi, si alguien sabe como hacerlo podria decirme, gracias
en internet encontre que se tenia que instalar un adobe action X y lo instale y me puso 1 libreria nueva llamda activeX con: AdobeSPOpenDocuments y acropdf y he estado probando como se usan pero no encuentro como hacer que salga un archivo pdf en eso. no se si esos son los objetos que tenog que utilizar o algun otro

gracias

Hola Jose.

Un ejemplo con TAcroPDF:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ACroPDF1.LoadFile(OpenDialog1.FileName)
end;

Saludos.

[JoseSagas]

Empezado por ecfisa

Hola Jose.

Un ejemplo con TAcroPDF:
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then ACroPDF1.LoadFile(OpenDialog1.FileName) end;


Saludos.

te vas a reir pero ya habia probado eso y no me servia jajajaja y le di copy/paste a lo tuyo y si sirvio jajajajaja muchas gracias por la ayuda

[JoseSagas]

gracias por la ayuda, ahora tengo otra duda...

fijate que al guardar un archivo .pdf me sale que se guarda dañado, como lo guardo de forma correcta? me podria decir porfavor gracias

[ecfisa]

Hola.

¿ Como lo estás guardando ?

Saludos.

[JoseSagas]

de esta forma:


if opendialog1.Execute then
begin
savedialog1.Files.SaveToFile('C:laboratorios\'+opendialog1.FileName);
end;


bueno mira lo que quiero hacer es: agarrar u PDF de algun lado y despues guardarlo en una carpeta dentro de la carpeta que tengo mi programa, para despues ya solo leerlo o buscarlo ahi.

[ecfisa]

Hola.

Creo que podrías usar la función CopyFile para realizar lo que buscas:

Código Delphi [-]
  CopyFile(PChar(OpenDialog1.FileName), PChar('C:\laboratorios\' + ExtractFileName(OpenDialog1.FileName)), False)

Saludos.

[JoseSagas]

esq fijate que necesito guardarlo en otra carpeta, osea tengo un boton que lo va a guardar y aparte tengo otro que lo muestra, porq es como una base de datos pero donde guardo en una carpeta los pdfs que necesito y les cambio de nombre, entonces no se si esa funcion si es lo que necesito...
que es lo que hace exactemente esa funcion?

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[ecfisa]

Empezado por JoseSagas

que es lo que hace exactemente esa funcion?

Hola.

Tenés la explicación detallada en el enlace que te puse en el mensaje anterior, pero básicamente copia un archivo desde un orígen a un destino.

En el ejemplo que te puse, copia el archivo seleccionado en OpenDialog1 (origen) hacia la ruta destino 'C:\laboratorio\'. Ruta que podes cambiar reemplazando la constante literal por una variable.

Saludos.

[JoseSagas]

bueno gracias probare a ver si me funciona eso

[JoseSagas]

fijate que no me sirvio esa funcion, no copio nada a la carpeta :S no se que hacer para lograr qe si lo guarde

[ecfisa]

Empezado por JoseSagas

fijate que no me sirvio esa funcion, no copio nada a la carpeta :S no se que hacer para lograr qe si lo guarde

Hola.

Revisa nuevamente tu código, algo debes haber copiado mal.

¿ Notaste que en el ejemplo del mensaje #7 te puse en rojo 'C:\...' ?

Saludos.

[JoseSagas]

hay alguna forma de hacer que un image pueda enseñar un .pdf asi como enseña un .jpg?

[ecfisa]

Empezado por JoseSagas

hay alguna forma de hacer que un image pueda enseñar un .pdf asi como enseña un .jpg?

Tendrías que convertir previamente el archivo .PDF a algún formato que el TImage pueda interpretar, pero lo veo mas complejo.

Sigo sin entender que es lo que no te funciona... Esa función API está archi-re-probada y miles que hacen uso de ella no se han quejado todavía.
Por supuesto que la carpeta C:\laboratorios tiene que existir y la ruta que le envíes a la función debe ser correcta.

Te adjunto un pequeño ejemplo (funcionando), para que lo analices con tranquilidad.

Saludos.

[JoseSagas]

gracias ya funciono