Exibir janela com documento PDF sem programa externo

[redweverton]

Bom dia pessoal, procurei em vários tópicos coisas parecidas porém não encontrei um exemplo do que eu gostaria de fazer que é o seguinte.
A empresa possui um sistema que grava no dbf um código de 10 caracteres identificando um desenho de CAD que foi salvo em pdf.
ex: A123456789 = desenho da roda com parafuso sextavado 1/8.

Eu gostaria que quando o usuário consultasse o codígo do desenho(esta parte já esta pronta, ela pode retornar o caminho do desenho), o harbour abrisse uma janela SEM CHAMAR PROGRAMA EXTERNO(foxit,adobe reader) teria que ser algo nativo, alguma lib / função, e exibisse o arquivo pdf sem a opção de salvar para evitar alterações.

Ficarei muito grato com qualquer ajuda!
att. weverton

[Pablo César]

Oi Weverton,

Eu também me interessei por algo assim.

Atualmente eu trabalho com HMG, e eu quis muito fazer isso acontecer, mas logo entendi que só eu poderia fazer isso se alcançasse criar toda um biblioteca como é do FoxIt, Adobe... en fim... ainda acho que seria isso.

Mas então percebi que HMG trabalha com Meta Files (arquivos gráficos) que podem nativamente em Harbour ser exibidos sem re-processamento e elaborei este visualizador http://www.hmgforum.com/viewtopic.php?f=15&t=3973

Quem sabe você pode mudar o tipo de arquivo na criação desses relatórios e passar utilizar o meta files sem precisar utilizar programas de terceiros. Apenas uma ideia.

[redweverton]

Muito obrigado Pablo pela resposta, mas acho que vou acabar tendo que utilizar um programa externo mesmo, tem um aplicativo que chama, mu pdf, ele abre o pdf sem as opções de salvar/imprimir, é apenas um visualizador mesmo, com zoom, acho que vou colocar para chamar ele e passar por parâmetro o caminho do pdf!

Sou iniciante no harbour ficaria inviável trabalhar com edição de biblioteca :\

Mas muito obrigado novamente.

[Pablo César]

Interessante esse mupdf, eu baixei e estou testando.

Valeu você pela informação.

[fladimir]

Tenho isso em Xailer , talvez pudesse criar uma dll simples q poderia chamar um método AbrePDF( NomedoArqComCaminhoCompleto)

Ai abre um Form e carrega o PDF.

Criar Dll eu consigo, só não sei se seria compatível chamar em Harbor modo console, tipo vc usa um Harbour por exemplo e eu uso outra versão + Xailer ai crio a Dll se isso funciona a chamada.

Podemos até testar caso nenhum outro colega tenha alguma outra alternativa.

Sei q vc disse q queria uma solução sem programa externo, porém vc exemplificou Adobe, Foxit ect), mas vc já pensou assim:

Abrir o PDF no navegador... veja o exemplo abaixo:

Código: Selecionar todos

proc AbrePDFNavegador( cCaminhoePDF )
   local oWebBrowser

   default cCaminhoePDF to 'file://c:/arquivo.pdf'

   oWebBrowser := CreateObject("InternetExplorer.Application")
   oWebBrowser:Visible   := .F. // Apresenta o Browser
   oWebBrowser:ToolBar   := .F. // Desativa a barra de ferramentas
   oWebBrowser:StatusBar := .F. // Desativa a barra de status
   oWebBrowser:MenuBar   := .F. // desativa a barra de menu

   oWebBrowser:Navigate( cCaminhoePDF ) // Abre o Navegador e apresenta o arquivo PDF.

   WHILE oWebBrowser:Busy .OR. oWebBrowser:ReadyState() != 4
      inkey(.5)
   END
   inkey(.2)
return 

[]´s