OCX para previsualizar impressões.

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

OCX para previsualizar impressões.

Mensagem por rochinha »

Amiguinhos,

Esta dica serve para aqueles que estão migrando seus aplicativos console para Windows mas ainda não teve tempo de programar seus relatórios na nova linguagem que está usando.

Bastará que seu aplicativo possa fazer automação OLE e acionar a OCX.

Para o demonstrativo, bastará registrar a OCX em seu sistema operacional via regsvr32 pmenphys.ocx.

Dentro de seu aplicativo a programação segue:

Código: Selecionar todos

   ...
   LOCAL oPrintPreview, cFileName

   cFileName := "0000649.txt"

   oPrintPreview:= TOLEAuto():New( "PMenphys.printMenphys" ) 
   oPrintPreview:chama_p( cFileName )

   ...
Use a automação que mais se adeque ao seu modo de programar como CreateOLEObject(), etc.
Anexos
PreviewTXT.rar
Previsualiza textos no windows
(50.45 KiB) Baixado 105 vezes
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

OCX para previsualizar impressões.

Mensagem por fladimir »

Ele não funciona no Windows 64?

Eu registrei e rodei o exemplo e escolhei o arquivo mas dá erro
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

OCX para previsualizar impressões.

Mensagem por rochinha »

Amiguinho,

Eu uso Windows Seven Ultimate 64bits. Rodou normalmente.

Ao registrar abra o Prompt do DOS no modo administrador e registre a .OCX.

Informe o erro.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

OCX para previsualizar impressões.

Mensagem por fladimir »

Abri o prompt como Administrador

Registrei com o comando regsvr32 PMenphys.ocx

Apareceu registrado com sucesso

Rodei o Project1.exe

Escolhi Abrir Arquivo

Escolhi o arquivo q veio no zip "0000649.txt"

Apareceu o erro:

Run-time error '380'
Invalid property Value

Ai pressiono Ok e aparece outro erro:

Run-time error '440'
Automation Error

Ai pression Ok e sai sem mostrar mais nada.

O q estou errando?
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

OCX para previsualizar impressões.

Mensagem por rochinha »

Amiguinho,

Não sei o que pode ser, acabei de registrar novamente a .OCX, rodei o Project1.exe e fluiu normalmente.

Crie o seu próprio executor usando a dica acima.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

OCX para previsualizar impressões.

Mensagem por JoséQuintas »

Faltou um printscreen da tela de preview.

Nota:
Talvez seja igual CAPICOM e XML5.
Tem duas versões de REGSVR32 no Windows 64 bits, e somente uma delas é pra 32 bits.
O default do Windows é na pasta \windows\system32, mas apenas por ser o default do Windows, não que a pasta seja pra 32 bits.

Código: Selecionar todos

 Pasta de c:\Windows\System32

13/07/2009  22:39            19.456 regsvr32.exe
               1 arquivo(s)         19.456 bytes

 Pasta de c:\Windows\SysWOW64

13/07/2009  22:14            14.848 regsvr32.exe
               1 arquivo(s)         14.848 bytes
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder