Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-07-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Generar archivos PDF en tus aplicaciones

Primero que nada, tres consideraciones:

1. Tener instalado Adobe Acrobat completo (no el Adobe Acrobat Reader), esto lo he probado con Adobe Acrobat 4.0<br>
2. Haber instalado el Control ActiveX de Adobe Acrobat.<br>
2. Incluir en la clausula uses la biblioteca ComObj.<br>

Notas:

Esta funcion convierte los siguientes tipos archivos (probado con Delphi 5):

Código Delphi [-]
  Imagenes BMP (*.bmp)
  Imagenes JPG (*.jpg)
  Imagenes TIF (*.tif)
  Imagenes GIF (*.gif)

Modo de uso:

Código Delphi [-]
if not(ImgToPDF('C:\imagen.tif', 'C:\Imagen_PDF.pdf')) then
  ShowMessage('No se pudo convertir el Archivo');

function ImgToPDF(ImgArchivo, PDFArchivo: string): boolean;
var
  AcroApp : variant;
  AVDoc : variant;
  PDDoc : variant;
begin
  if not fileexists(ImgArchivo) then
    result := false
  else
  begin
    try
      AcroApp := CreateOleObject('AcroExch.App');
      AVDoc := CreateOleObject('AcroExch.AVDoc');

      AVDoc.Open(ImgArchivo, '');
      AVDoc := AcroApp.GetActiveDoc;

      if AVDoc.IsValid then
      begin
        PDDoc := AVDoc.GetPDDoc;

        PDDoc.SetInfo ('Title', '');
        PDDoc.SetInfo ('Author', '');
        PDDoc.SetInfo ('Subject', '');
        PDDoc.SetInfo ('Keywords', '');

        Result := PDDoc.Save(1 or 4 or 32, PDFArchivo);

        PDDoc.Close;
      end;

      AVDoc.Close(True);
      AcroApp.Exit;

    finally
      VarClear(PDDoc);
      VarClear(AVDoc);
      VarClear(AcroApp);
    end;
  end;
end;
Responder Con Cita
  #2  
Antiguo 03-07-2006
aledieb aledieb is offline
Miembro
 
Registrado: jun 2005
Ubicación: Buenos Aires, Argentina
Posts: 141
Poder: 19
aledieb Va por buen camino
Una alternativa economica es utilizar el PDFCreator, que básicamente es una impresora en windows.

[HTML]
http://sourceforge.net/projects/pdfcreator/
[HTML]
Responder Con Cita
  #3  
Antiguo 03-07-2006
aledieb aledieb is offline
Miembro
 
Registrado: jun 2005
Ubicación: Buenos Aires, Argentina
Posts: 141
Poder: 19
aledieb Va por buen camino
Perdon falto el Link http://sourceforge.net/projects/pdfcreator/
Responder Con Cita
  #4  
Antiguo 16-04-2007
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Poder: 18
Chris Va por buen camino
Sería mejor llamar de una sola vez a la impresora (imprimir el documento).
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 09:59:03.


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
Copyright 1996-2007 Club Delphi