PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

Harbour + Visual LIB

https://pctoledo.org/viewtopic.php?t=9390

Página 4 de 5

Re: Harbour + Visual LIB

Enviado: 29 Mai 2009 20:19
por Antonio
Acabei de corrigir para Wvt_SetFont, eu havia copiado e colado de uma mensagem anterior.

A MsgBox fica com os caracteres anormais, feios, desconfigurados o que me leva a crer que não foram aplicados.
Cada mudança de numero dentro dos laços for => i levam uma eternidade.

Eu não sei, algo esta muito errado.

[]
Antonio Carlos

Re: Harbour + Visual LIB

Enviado: 30 Mai 2009 10:13
por janio
Antonio,

Vc mencionou que está usando Windows XPsp3, teria como vc testar numa maquina com XPsp2 ???

Vc está usando o hbmake para compilar??? Se não, teste primeiro com ele...

Me passa teu e-mail que te mando meu arquivo .bc e dois prgs que utilizei (teste.prg e vlib.prg)

Re: Harbour + Visual LIB

Enviado: 31 Mai 2009 18:32
por Antonio
Ola Janio!

So tenho SP3 mesmo.

Com xHarbour eu uso hbmake mesmo. (No Harbour eu uso hbmk2, só para esclarecer.)
Os teste que estou fazendo é no xHarbour 1.1.0 enviado pela asimoes.

tonyenoe@terra.com.br
[]
Antonio Carlos

Re: Harbour + Visual LIB

Enviado: 01 Jun 2009 09:55
por asimoes
Olá Antônio,

Veja os programas exemplos que você mandou e o bcc que gerou o executável:

Crie uma pasta nova só com estes arquivos: VISUAL.BC, VISUAL.PRG E VLIB.PRG
USe o HBMAKE para gerar o executável:

hbmake visual.bc

VISUAL.BC

Código: Selecionar todos

#BCC
VERSION=BCB.01
!ifndef CC_DIR
CC_DIR = $(MAKE_DIR)
!endif

!ifndef HB_DIR
HB_DIR = $(HARBOUR_DIR)
!endif
 
RECURSE= NO 
 
SHELL = 
COMPRESS = NO
EXTERNALLIB = YES
XFWH = NO
FILESTOADD =  5
WARNINGLEVEL =  0
USERDEFINE = 
USERINCLUDE = 
USERLIBS = 
EDITOR = edit
HWGUI = 
CGI = NO
GUI = YES
MT = NO
SRC05 = obj 
PROJECT = visual.exe $(PR) 
OBJFILES = $(SRC05)\VISUAL.obj $(SRC05)\VLIB.obj $(OB) 
PRGFILES = VISUAL.PRG VLIB.PRG $(PS) 
OBJCFILES = $(OBC) 
CFILES = $(CF)
RESFILES = 
RESDEPEN = 
TOPMODULE = VISUAL.PRG
LIBFILES = hwgui.lib procmisc.lib hwg_qhtm.lib  lang.lib vm.lib rtl.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib gtgui.lib codepage.lib ct.lib tip.lib pcrepos.lib hsx.lib hbsix.lib zlib.lib debug.lib   GTWVG.LIB WHAT32.LIB
EXTLIBFILES = GTWVG.LIB WHAT32.LIB
DEFFILE = 
HARBOURFLAGS =  -b  -w0
CFLAG1 =  -OS $(SHELL)  $(CFLAGS) -d -c -L$(HB_DIR)\lib 
CFLAG2 =  -I$(HB_DIR)\include;$(CC_DIR)\include
RFLAGS = 
LFLAGS = -L$(CC_DIR)\lib\obj;$(CC_DIR)\lib;$(HB_DIR)\lib -Gn -M -m -s -Tpe -x -aa -L$(HWGUI)\lib
IFLAGS = 
LINKER = ilink32
 
ALLOBJ = c0w32.obj $(OBJFILES) $(OBJCFILES)
ALLRES = $(RESDEPEN)
ALLLIB = $(USERLIBS) $(LIBFILES) import32.lib cw32.lib
.autodepend
 
#DEPENDS
 
#COMMANDS
.cpp.obj:
$(CC_DIR)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**
 
.c.obj:
$(CC_DIR)\BIN\bcc32 -I$(HB_DIR)\include $(CFLAG1) $(CFLAG2) -o$* $**
 
.prg.obj:
$(HB_DIR)\bin\harbour -D__EXPORT__ -n -go -I$(HB_DIR)\include $(HARBOURFLAGS) -I$(HWGUI)\include -o$* $**
 
.rc.res:
$(CC_DIR)\BIN\brcc32 $(RFLAGS) $<
 
#BUILD
 
$(PROJECT): $(CFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
    $(CC_DIR)\BIN\$(LINKER) @&&!  
    $(LFLAGS) +
    $(ALLOBJ), +
    $(PROJECT),, +
    $(ALLLIB), +
    $(DEFFILE), +
    $(ALLRES) 
!
VISUAL.PRG E VLIB.PRG

Re: Harbour + Visual LIB

Enviado: 01 Jun 2009 10:50
por Antonio
Bom dia asimoes,

vamos la:

Não acontece nada, alem de um makefile.lnk (com tamanho (0))

Re: Harbour + Visual LIB

Enviado: 01 Jun 2009 12:57
por asimoes
Antônio,

Cara nunca vi isso!

Faz o seguinte, em off line (internet), desabilita o anti-virus, tenta descobrir se tem algum programa atrapalhando a geração do programa.

Outra coisa cria um programa modo console só com isso:

FUNCTION MAIN
cls
? "Hello World"
RETURN Nil

[]´s

Re: Harbour + Visual LIB

Enviado: 01 Jun 2009 15:30
por Antonio
Ola Janio,

Eu tambem nunca vi nada assim não.

As suas linhas

Código: Selecionar todos

FUNCTION MAIN
cls
? "Hello World"
RETURN Nil
compilam e rodam normalmente.

Re: Harbour + Visual LIB

Enviado: 01 Jun 2009 15:33
por Antonio
Ha, peguei os EXEs compilados aqui + a visuallib.ttf fui tentar rodar num XP SP2... não funfou, da mesma forma que não funfou aqui com XP SP3.

Re: Harbour + Visual LIB

Enviado: 01 Jun 2009 16:11
por Antonio
asimoes e/ou Janio, olhem só:

Compilei aqui gerando o meu proprio .BC;

VT.BC

Código: Selecionar todos

#BCC
VERSION=BCB.01
!ifndef CC_DIR
CC_DIR = $(MAKE_DIR)
!endif

!ifndef HB_DIR
HB_DIR = $(HARBOUR_DIR)
!endif
 
RECURSE= NO 
 
SHELL = 
COMPRESS = NO
EXTERNALLIB = NO
XFWH = NO
FILESTOADD =  5
WARNINGLEVEL =  0
USERDEFINE = 
USERINCLUDE = 
USERLIBS = 
EDITOR = edit
GUI = NO
MT = NO
SRC02 = obj 
PROJECT = vt.exe $(PR) 
OBJFILES = $(SRC02)\VISUAL.obj $(SRC02)\VLIB.obj $(OB) 
PRGFILES = VISUAL.PRG VLIB.PRG $(PS) 
OBJCFILES = $(OBC) 
CFILES = $(CF)
RESFILES = 
RESDEPEN = 
TOPMODULE = VISUAL.PRG
LIBFILES = lang.lib vm.lib what32.lib gtwvg.lib rtl.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib gtwin.lib codepage.lib ct.lib tip.lib pcrepos.lib hsx.lib hbsix.lib zlib.lib
EXTLIBFILES =
DEFFILE = 
HARBOURFLAGS =  -w0
CFLAG1 =  -OS $(SHELL)  $(CFLAGS) -d -c -L$(HB_DIR)\lib 
CFLAG2 =  -I$(HB_DIR)\include;$(CC_DIR)\include
RFLAGS = 
LFLAGS = -L$(CC_DIR)\lib\obj;$(CC_DIR)\lib;$(HB_DIR)\lib -Gn -M -m -s -Tpe -x -ap
IFLAGS = 
LINKER = ilink32
 
ALLOBJ = c0x32.obj $(OBJFILES) $(OBJCFILES)
ALLRES = $(RESDEPEN)
ALLLIB = $(USERLIBS) $(LIBFILES) import32.lib cw32.lib
.autodepend
 
#DEPENDS
 
#COMMANDS
.cpp.obj:
$(CC_DIR)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**
 
.c.obj:
$(CC_DIR)\BIN\bcc32 -I$(HB_DIR)\include $(CFLAG1) $(CFLAG2) -o$* $**
 
.prg.obj:
$(HB_DIR)\bin\harbour -D__EXPORT__ -n -go -I$(HB_DIR)\include $(HARBOURFLAGS) -o$* $**
 
.rc.res:
$(CC_DIR)\BIN\brcc32 $(RFLAGS) $<
 
#BUILD
 
$(PROJECT): $(CFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
    $(CC_DIR)\BIN\$(LINKER) @&&!  
    $(LFLAGS) +
    $(ALLOBJ), +
    $(PROJECT),, +
    $(ALLLIB), +
    $(DEFFILE), +
    $(ALLRES) 
!
Compila, quando vou rodar:

Código: Selecionar todos

        Please mail or fax this error report to:
             +---------------------------+
SYSTEM
------
Error date:01/06/2009 time:16:05:59
Application: C:\aa\vt.exe
What32.Lib ver.0.g, 21/08/2002

ERROR INFORMATION
-----------------
Arguments     { NIL, 1024 }
Description   Erro nos parƒmetros
Filename      <none>
GenCode       1: EG_ARG
Operation     >=
Severity      2
SubCode       1076
SubSystem     BASE
Tries         0
Alias()       <none>
Open DBFs     0
DOS Error     (not an operating system error)
Windows Error 183


PROCEDURE STACK
---------------
VISUAL.PRG->MOLDER$(35)
======================================================================

Re: Harbour + Visual LIB

Enviado: 01 Jun 2009 19:51
por janio
Eita, Antonio.

Tá difícil o negócio. Parece que agora ele tá se queixando da what32.lib.

Me manda teu arquivo .bc e o visual.prg e vlib.prg pra eu compilar aqui.

janioaguiar@ig.com.br

Re: Harbour + Visual LIB

Enviado: 01 Jun 2009 20:31
por Antonio
É janio... eu não sei se é só isso. Na realidade ele reclama disso:
Case HB_gtinfo(HB_GTI_DESKTOPWIDTH)>= 1024

Se eu por = passa.

Na what32 tem algo estranho pois esse trecho

Código: Selecionar todos

 STATIC FUNCTION AddFont()
       Local nRet := AddFontResource("VISUALLIB.TTF")
       If nRet == 0
            MsgBox("A fonte VISUALLIB.TTF não foi adicionada ao sistema.")
       Else
           MsgBox("A fonte VISUALLIB.TTF foi adicionada ao sistema.")
       EndIf
    RETURN Nil
é executado e a MsgBox é exibida, mas verificando em windows\system32\fonts a mesma não esta la.

O meu .BC esta lago acima os prgs tambem estão, são os mesmos postados pelo asimoes.

Re: Harbour + Visual LIB

Enviado: 02 Jun 2009 08:32
por software_facil
Meu amigo Antonio, no trecho onde vc informa existir erro, isso ocorre pq se vc comparar :

Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 1024

não vai dar certo, não tem lógica comparar MAIOR ou IGUAL a 1024, pois se for maior, não vai avaliar o igual, e se isso não tem lógica, não vai pra frente mesmo. Tente usar <= (menor igual)

Abraços

Re: Harbour + Visual LIB

Enviado: 02 Jun 2009 21:17
por Antonio
Fala Marcelão!!!


Da na mesma:

Código: Selecionar todos

Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) > 1024
Se eu usar:

Código: Selecionar todos

Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) = 1024
Ai passa.

Re: Harbour + Visual LIB

Enviado: 02 Jun 2009 22:01
por janio
Se colocar Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) > 1023 passa??

Quanto a aquela função da what32 que não está acrescentando a visualib.ttf na pasta fontes do windows, também acontece comigo, porém a fonte é exibida direitinho quando o programa é executado

Re: Harbour + Visual LIB

Enviado: 02 Jun 2009 22:50
por Antonio
Não passa Janio.

Se eu usar o sinal de = passa o problema eu não sei porque são os sinais > e <, ai esbarro na instalação do fonte com what32. Dai instalo na mão. Mas independente disso aqui a fonte mesmo instalada manualmente o sistema não mostra.


O melhor que consegui aqui foi no esquema do cygecon e ficou assim:

Imagem
Todos os horários são UTC-03:00
Página 4 de 5

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB