Luiz Arruda (ICO) Posted July 16, 2014 Report Share Posted July 16, 2014 Bom dia pessoal... Em todos os relatórios sempre que clico no preview está retornando este erro Error BASE/1004 Class: 'NIL' has no exported method: GETDC e aborta o programa... dei uma procurada no forum e não consegui achar, talvez algo sobre isso se perdeu no antigo forum ... desde já obrigado... Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 16, 2014 Report Share Posted July 16, 2014 08/07/2013 18:46 54.784 prev64.dll Esta no local correcto? abs, Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 16, 2014 Report Share Posted July 16, 2014 Veja se sua classe está assim, senão vais ter que atualizar tú vérsion. METHOD BuildWindow() CLASS TPreview local oIcon, cTitle := "FiveWin Printing Preview", oCursor, oBar, nCol := 325 local oThis := Self local nRow := 7 DEFAULT ::oWndMain := WndMain() ::hOldRes := GetResources() if ! File( ::cResFile ) #ifdef __CLIPPER__ ::cResFile := "Preview.dll" #else if ! IsWin64() ::cResFile := "Prev32.dll" else ::cResFile = "Prev64.dll" endif #endif endif abs, Luiz Arruda (ICO) 1 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 16, 2014 Author Report Share Posted July 16, 2014 Ai é que tá a kka amigo... Esse preview não é original do FW, a muuuuuuuuito tempo peguei de alguém no antigo forum que nem lembro mais de quem é , veja que ele mostra miniaturas na esquerda da tela, tudo funfa normalmente como mostro na imagem em anexo. só não posso clicar dentro da imagem do preview que arrebenta tudo... mesmo assim esse method está igualzinho esse ai ... Tentei tira-lo e deixar o oficial do FWH mas ai nem compila, já dá erro de cara na compilação sem mesmo mexer em nem uma linha dos PRGs... muito estranho Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 16, 2014 Author Report Share Posted July 16, 2014 Por hora resolvido comentei as linha 1735 e 1736 // BitBlt( ::oBmp:getDC(), 0, 0, nArea, nArea, ::MetaDC, x, y, 13369376 ) // ::oBmp:ReleaseDC() e o erro parou ... obrigado por tentar ajudar... Quote Link to comment Share on other sites More sharing options...
Ariston Santos Posted July 17, 2014 Report Share Posted July 17, 2014 Amigo, tem como mandar uma cópia do teu preview com miniaturas para meu e-mail? ariston.ap@hotmail.com Grato. Luiz Arruda (ICO) 1 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 17, 2014 Author Report Share Posted July 17, 2014 Arilston ... foi pro seu email... sói pra lembrar... veja minha versões no rodaopé ... Abraços... Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.