Como abrir um PDF com CreateObject()?

[clodoaldomonteiro]

Olá.
Com o CreateObject() é possível abrir qq banco de dados, usando Drives das Fontes ODBC do Windows, setando "ConnectionString" com o "Provider" da Fonte Driver.

Pergunto aos amigos de tem como fazer o mesmo processo para abrir um PDF, assim como por exemplo, abrimos um .DOC, .XLS também, sendo que ficamos com o objeto em aberto a ponto de fazermos o que necessitar.

Desde já agradeço a ajuda.

[JoséQuintas]

Não entendi.
Há duas situações diferentes (ou mais):
- abrir com o aplicativo padrão na janela dele
- abrir em janela do SEU aplicativo

no primeiro caso é ShellExecuteOpen(), igual explorer faz.
no segundo caso é por activex, pode usar "arquivo.pdf" como nome do activex, a gtwvg tem isso e outras libs gui também.

Lembro de ter visto em alguma minigui a visualização do PDF sem programa externo, não lembro mais aonde foi.

Prefiro usar ShellExecuteOpen(), vai abrir a ferramenta default da máquina e pronto, o usuário tá acostumado e não tem do que reclamar.
Lembrando que windows 10 tem isso sem precisar programa externo, apesar que já vi máquina com edge extremamente lenta pra abrir.

[clodoaldomonteiro]

Bom dia, Quintas.

Seria para abrir um doc PDF em segundo plano e tentar fazer OCR ou extrair o texto dele, para que eu possa fazer um processamento desse texto.

Já tenho a rotina de conversão do texto em dados, mas tenho que abrir o PDF, marcar a área a ser coletada, dar Ctrl+C e colar o texto no meu aplicativo para ser processado.

Seria como quando abrimos um .xls com CreateObject( "Excel.Application" ) e retorna um Objeto para podermos interagir com o Excel. Não sei se existe "CreateObject( 'Adobe.Application' )" ou outro método de abrir o Adobe de um "RUN".

Imagino se eu tiver o objeto aberto sob meu comando, poderei fazer muita coisa no PDF para que meu processamento possa acontecer de acordo com o desejado.

Pegando um exemplo com ajudado do GPT:

Código: Selecionar todos

   oAdobe := CreateObject( "AcroExch.app" )
   oAdobe:Show()
   oPdf   := CreateObject("AcroExch.AVDoc")
   oPdf:open("C:\SimplesInfo\Scp21H\FGTS.pdf")
   wait
   oAdobe:close()

Mas precisa da versão paga do Adobe.

Abraços.

[Ana Mitoooo]

https://forum.sumatrapdfreader.org/t/ho ... -text/3533
https://mupdf.readthedocs.io/en/latest/C-API.html

[JoséQuintas]

Quando a Microsoft acrescentou o formato PDF ao word, ela foi obrigada a remover, por conta de direitos autorais.
Não sei se vai ter algo em Windows pra isso.
E sim, o formato é da Adobe.

[clodoaldomonteiro]

Olá.

https://forum.sumatrapdfreader.org/t/ho ... -text/3533
https://mupdf.readthedocs.io/en/latest/C-API.html

Você tem um exemplo usando essa biblioteca C em xHarbour ou Harbour?

Abreços

[JoséQuintas]

Olhando o texto é activex, e é passar mensagens usando API Windows.
activex tem em gtwvg, é colocar como sendo uma janela do aplicativo.
A partir daí é trocar mensagens com a janela.
SendMessage() mas tem que olhar manual desse componente.