Erro Compilar Xharbour + Fivewin no Xdev

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Responder
gilsonpaulo
Usuário Nível 3
Usuário Nível 3
Mensagens: 135
Registrado em: 02 Fev 2008 11:30
Localização: Quatro Barras

Erro Compilar Xharbour + Fivewin no Xdev

Mensagem por gilsonpaulo »

Boa noite, ao compilar o sistema ocorre o seguinte erro:

Código: Selecionar todos

Preparando Script "C:\Arquivos de programas\xDevStudio\scripts\FiveWin32.xCompiler"...
Script em Anexo.. "FiveWin.xCompiler.prg"...
Preset atual .... xHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 7.12
         PATH ... C:\Borland\BCC55\Bin;C:\FWH;C:\xHarbour\bin
         INCLUDE. C:\Borland\BCC55\include;C:\FWH\include;C:\xailer\xharbour\include;C:\xHarbour\include
         LIB .... C:\Borland\BCC55\lib;C:\Borland\BCC55\lib\psdk;C:\FWH\lib;C:\xailer\xharbour\lib;C:\xHarbour\lib

Variaveis de Ambiente:
         PATH ... C:\Borland\BCC55\Bin;C:\FWH;C:\xHarbour\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Medcl\xbapi\bin\build1000
         INCLUDE. C:\Borland\BCC55\include;C:\FWH\include;C:\xailer\xharbour\include;C:\xHarbour\include;;
         LIB .... C:\Borland\BCC55\lib;C:\Borland\BCC55\lib\psdk;C:\FWH\lib;C:\xailer\xharbour\lib;C:\xHarbour\lib;;

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\ARQUIVOS.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\ARQUIVOS.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
ARQUIVOS.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CAIXA.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CAIXA.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CAIXA.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CARTAO.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CARTAO.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CARTAO.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX1.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX1.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX1.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX2.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX2.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX2.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX3.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX3.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX3.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX4.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX4.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX4.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX5.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX5.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX5.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX6.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX6.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX6.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX7.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX7.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX7.c:

Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\FUNCOES.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\FUNCOES.c"   /M  /N 
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/

Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
FUNCOES.c:

Executando: ILINK32 @B32.BC
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_GETPREVALI' referenced from FUNCOES.OBJ
Error: Unresolved external '_HB_FUN_GETAPPLYKE' referenced from FUNCOES.OBJ
Error: Unresolved external '_HB_FUN_GETPOSTVAL' referenced from FUNCOES.OBJ
Segue o prg com problema

Código: Selecionar todos

procedure funcoes()
** Msg1(Arg1,Arg2)  Mansagem com uma opcao
**              Arg1 = Texto Linha 1
**               Arg2 = Texto Linha 2

** MsgBox1(Arg1,Arg2)  Mansagem com uma opcao
**               Arg1 = Texto Linha 1
**              Arg2 = Texto Linha 2
**
** MsgBox2(Arg1,Arg2)  Mensagem com duas opcoes
**               Arg1 = Texto Linha 1
**               Arg2 = Texto Linha 2
**
** MsgBox3(Arg1,Arg2)  Mensagem com tres opcoes
**               Arg1 = Texto Linha 1
**               Arg2 = Texto Linha 2
**
** Win(l1,c1,l2,c2,Arg1) Desenha Janela na Tela
**               Arg1 = Titulo
** Win_(l1,c1,l2,c2,Arg1) Desenha Janela na Tela     VERMELHO
**               Arg1 = Titulo
** jan(l1,c1,l2,c2) Desenha Janela na Tela
**
** obs() escreve a observa‡Æo 

function obs(var01)
set color to 0/15
@ 24,01 say var01
set color to 15/1


Function Desktop()
    set color to 7/1
    clear
    @ 24, 0 SAY Space(80) Color "0/15"
    @ 24, 0 say " ESC - Sair ³ F12 - Usu rio ³"  color "0/15"  
    set color to 0/15
    @ 24,70 say "³KRšGER³"
    @ 24,59 say "³" + usu_log
    @ 24,49 say "³" + nom_sis
    set color to 7/1


Function MsgBox1(Arg1,Arg2)
    Set cursor off
    MB1t=savescreen(08,11,16,75)
    do while .t.
    set color to 0/15
    @ 08,11 clear to 15,69
    sombra(08,11,15,69)
    arg3 = space(59)
    set color to 7/4
    @ 08,11 say arg3
    @ 08,11 say padc("Aten‡„o",59)
    set color to 0/15
    @ 10,15 say padc(Arg1,51)
    @ 11,15 say padc(Arg2,51)
    set color to 8/15
    @ 14,36 say "ßßßßßßßßßß"
    @ 13,45 say "Ü"
    set color to 8/0,15/1
    @ 13,35 prompt "    OK    "
    
    menu to MB1op
    if lastkey() = 27
       restscreen(08,11,16,75,MB1t)
       return 0
       exit
    endif
    do case
       case MB1op = 1
       restscreen(08,11,16,75,MB1t)
       return 1
       exit
    endcase
  enddo


Function MsgBox2(Arg1,Arg2)
    Set cursor off
    MB2t=savescreen(08,11,16,75)
    do while .t.
    set color to 0/15
    @ 08,11 clear to 15,69
    sombra(08,11,15,69)
    aaa = space(59)
    set color to 7/4
    @ 08,11 say aaa
    @ 08,11 say padc("Atencao",59)
    set color to 0/15
    @ 10,15 say padc(Arg1,51)
    @ 11,15 say padc(Arg2,51)
    set color to 8/15
    @ 14,29 say "ßßßßßßßßßß"
    @ 13,38 say "Ü"
    @ 14,43 say "ßßßßßßßßßß"
    @ 13,52 say "Ü"

    set color to 8/7,15/9
    @ 13,28 prompt "    OK    "
    @ 13,42 prompt " Cancelar "
    menu to MB2op
    if lastkey() = 27
       restscreen(08,11,16,75,MB2t)
       return 0
       exit
    endif
    do case
    case MB2op = 1
       restscreen(08,11,16,75,MB2t)
       return 1
       exit
    case MB2op = 2
       restscreen(08,11,16,75,MB2t)
       return 2
       exit

    endcase
  enddo


Function MsgBox3(Arg1,Arg2)
    Set cursor off
    MB3t=savescreen(08,11,16,75)
    do while .t.
    set color to 0/7
    @ 08,11 clear to 15,69
    sombra(08,11,15,69)
    aaa = space(59)
    set color to 7/4
    @ 08,11 say aaa
    @ 08,11 say padc("Aten‡„o",59)
    set color to 0/7
    @ 10,15 say padc(Arg1,51)
    @ 11,15 say padc(Arg2,51)
    set color to 8/7
    @ 14,24 say "ßßßßßßßßßß"
    @ 13,33 say "Ü"
    @ 14,36 say "ßßßßßßßßßß"
    @ 13,45 say "Ü"
    @ 14,48 say "ßßßßßßßßßß"
    @ 13,57 say "Ü"


    set color to 1/7,15/1
    @ 13,23 prompt "    Sim   "
    @ 13,35 prompt "    NÆo   "
    @ 13,47 prompt " Cancelar "
    menu to MB3op
    if lastkey() = 27
       restscreen(08,11,16,75,MB3t)
       return 0
       exit
    endif
    do case
    case MB3op = 1
       restscreen(08,11,16,75,MB3t)
       return 1
       exit
    case MB3op = 2
       restscreen(08,11,16,75,MB3t)
       return 2
       exit
    case MB3op = 3
       restscreen(08,11,16,75,MB3t)
       return 3
       exit


    endcase
  enddo


      

Function Win(l1,c1,l2,c2,Arg1)
    set color to 0/15
    @ l1,c1 clear to l2,c2
    sombra(l1,c1,l2,c2)
    arg2 = c1 - c2
    arg3 = arg2 * -1 + 1
    set color to 15/1
    @ l1,c1 say padc(Arg1,Arg3)
    set color to 15/1


Function Winx(l1,c1,l2,c2,Arg1,arg2,arg3)
    set color to 0/15
    @ l1,c1 clear to l2,c2
    sombra(l1,c1,l2,c2)
    arg2 = c1 - c2
    arg3 = arg2 * -1 + 1
    set color to arg2/arg3
    @ l1,c1 say padc(Arg1,Arg3)
    set color to 15/1


Function Win_(l1,c1,l2,c2,Arg1)
    set color to 0/15
    @ l1,c1 clear to l2,c2
    sombra(l1,c1,l2,c2)
    arg2 = c1 - c2
    arg3 = arg2 * -1 + 1
    set color to 15/4
    @ l1,c1 say padc(Arg1,Arg3)
    set color to 15/1


Function Jan(l1,c1,l2,c2)
    set color to 0/15
    @ l1,c1 to l2,c2
    sombra(l1,c1,l2,c2)


function verif_(arg1)
if arg1 = " "
   return .f.
else
   return .t.
endif



/*--------------------------------------------------------*/
function Sombra(_Li, _Ci, _Lf, _Cf)
Local Tela1, Tela2, Tela3, Tela4
Tela3 := savescreen(_Li + 1, _Cf + 1, _Lf + 1, _Cf + 2)
Tela4 := savescreen(_Lf + 1, _Ci + 2, _Lf + 1, _Cf + 2)
for Tela1:= 2 to len(Tela3) step 2
   Tela2:= shadow(asc(substr(Tela3,Tela1,1)))
   Tela3:= stuff(Tela3,Tela1,1,Tela2)
end
for Tela1:= 2 to len(Tela4) step 2
   Tela2:= shadow(asc(substr(Tela4, Tela1,1)))
   Tela4:= stuff(Tela4,Tela1,1,Tela2)
end
restscreen(_Li + 1, _Cf + 1, _Lf + 1, _Cf + 2, Tela3)
restscreen(_Lf + 1, _Ci + 2, _Lf + 1, _Cf + 2, Tela4)
return NIL

/*--------------------------------------------------------*/
function Shadow(_Car)
   Local Var1, Var2, Var3
   Var1:= _Car % 16
   Var2:= (_Car - Var1) / 16
   Var3:= {0, 0, 8, 8, 0, 8, 0, 8, 0, 1, 2, 3, 4, 5, 6, 7}
   Var1:= Var3[Var1 + 1]
   Var2:= Var3[Var2 + 1]
return Chr(16 * Var2 + Var1)


function getsen(p1)
   local L2, L3, L4
   if getprevali(P1)
      P1:setfocus()
      P1:cargo := ""
      do while P1:EXITSTATE() == 0
         if P1:TYPEOUT()
            P1:EXITSTATE := 5
         endif
         do while P1:EXITSTATE() == 0
            L2 := INKEY(0)
            if L2 >= 32 .AND. L2 <= 255
               P1:CARGO := P1:CARGO() + CHR(L2)
               GETAPPLYKE(P1, 42)
            elseif L2 = 8
               P1:CARGO := SUBSTR(P1:CARGO(), 1, LEN(P1:CARGO()) - 1)
               GETAPPLYKE(P1, L2)
            elseif L2 = 13  // Sai com tecla ENTER e retorna a senha digitada
               GETAPPLYKE(P1, L2)
            elseif L2 = 27  // Sai com Tecla ESC e retorna vazio
               GETAPPLYKE(P1, L2)
            endif
         enddo
         if  .NOT. GETPOSTVAL(P1)
            P1:EXITSTATE := 0
         endif
      enddo
      P1:KILLFOCUS()
   endif
   if P1:EXITSTATE() <> 7
      P1:VARPUT(P1:CARGO())
   endif
return


* -----------------------------------------------------------------------------
function visor_21(arg1,arg2,arg3,arg4,arg5,arg6)
* -----------------------------------------------------------------------------
local m,j,e1,e2,d1,d2
win_visor:=savescreen( 21, 26, 23, 79 )
* arg1 : linha a ser impressa (matriz 3x1)
* arg2 : linha
* arg3 : coluna
 arg4 := '15/1'
 arg5 := '1/15'
@ 21,26 Say Space(55)        color '15/1'
@ 22,26 Say Space(55)        color '15/1'
@ 23,26 Say Space(55)        color '15/1'
arg2 := 20
arg3 := arg3 - 3
for m=1 to len(arg1)
   for j=1 to len(arg1[m])
      if subs(arg1[m],j,1)=chr(219)
         @ arg2+m,j+arg3 say ' ' color arg5
      elseif subs(arg1[m],j,1)=chr(220)
         @ arg2+m,j+arg3 say chr(223) color arg5
      else
         @ arg2+m,j+arg3 say subs(arg1[m],j,1) color arg4
      endi
   next
next
return NIL

* -----------------------------------------------------------------------------
func visor_monta(arg1)  // Û 219 / 235
* -----------------------------------------------------------------------------
* parametros passados :
*     arg1 = valor no formato a ser impresso
*
m_visor := {}
declare g1[3],g2[3],g3[3],g4[3],g5[3],g6[3],g7[3],g8[3],g9[3],g0[3],ga[3],gb[3]
g1[1] = 'ÜÛ   '
g1[2] = ' Û   '
g1[3] = 'ßßß  '
g2[1] = 'ßßßÛ '
g2[2] = 'Ûßßß '
g2[3] = 'ßßßß '
g3[1] = 'ßßßÛ '
g3[2] = ' ßßÛ '
g3[3] = 'ßßßß '
g4[1] = 'Û  Û '
g4[2] = 'ßßßÛ '
g4[3] = '   ß '
g5[1] = 'Ûßßß '
g5[2] = 'ßßßÛ '
g5[3] = 'ßßßß '
g6[1] = 'Ûßßß '
g6[2] = 'ÛßßÛ '
g6[3] = 'ßßßß '
g7[1] = 'ßßßÛ '
g7[2] = ' Üß  '
g7[3] = ' ß   '
g8[1] = 'ÛßßÛ '
g8[2] = 'ÛßßÛ '
g8[3] = 'ßßßß '
g9[1] = 'ÛßßÛ '
g9[2] = 'ßßßÛ '
g9[3] = 'ßßßß '
g0[1] = 'ÛßßÛ '
g0[2] = 'Û  Û '
g0[3] = 'ßßßß '
stor '' to l1,l2,l3
for _y = 1 to len(arg1)
   _yi = subs(arg1,_y,1)
   for _z = 1 to 3
      _ya = str(_z,1)
      l0=''
      do case
      case _yi = ' '
         l0 = l0 + '     '
      case _yi = ','
         l0 = iif(_z=3,l0+' þ ','   ')
      case _yi = '.'
         l0 = iif(_z=3,l0+' þ ','   ')
      case _yi = '}'
         l0 = iif(_z=3,l0+' þ ','   ')
      case _yi = '/'
         l0 = iif(_z=3,l0+' þ ','   ')
      case _yi = '1'
         l0 = l0+g1[_z]
      case _yi = '2'
         l0 = l0+g2[_z]
      case _yi = '3'
         l0 = l0+g3[_z]
      case _yi = '4'
         l0 = l0+g4[_z]
      case _yi = '5'
         l0 = l0+g5[_z]
      case _yi = '6'
         l0 = l0+g6[_z]
      case _yi = '7'
         l0 = l0+g7[_z]
      case _yi = '8'
         l0 = l0+g8[_z]
      case _yi = '9'
         l0 = l0+g9[_z]
      case _yi = '0'
         l0 = l0+g0[_z]
      endcase
      l&_ya = l&_ya + l0
   next
next
aadd(m_visor,l1)
aadd(m_visor,l2)
aadd(m_visor,l3)
return( m_visor)


function sobre()
tela = savescreen(00,00,24,79)
set color to 0/15
@ 10,20 clear to 15,60
@ 10,20 to 15,60
set cursor off
sombra(10,20,15,60)
@ 11,22 say "Desenvolvimento:"
@ 12,22 say "Jorge A. Krger Junior"
@ 13,22 say "041 3675 0309"
@ 14,22 say "www.krugereletronica.com.br" 

inkey(0)
restscreen(00,00,24,79,tela)



Function Msg1(Arg1)
    Set cursor off
    MB1t=savescreen(08,11,16,75)
    do while .t.
    set color to 0/7
    @ 08,11 clear to 14,69
    @ 08,11 to 14,69
    sombra(08,11,14,69)
    @ 10,15 say padc(Arg1,51)
    set color to 8/15
    @ 13,36 say "ßßßßßßßßßß" color "8/7"
    @ 12,45 say "Ü" color "8/7"
    set color to 15/3
    @ 12,35 prompt "    OK    "
    
    menu to MB1op

    set color to 7/1
    if lastkey() = 27
       restscreen(08,11,16,75,MB1t)
       return 0
       exit
    endif
    do case
       case MB1op = 1
       restscreen(08,11,16,75,MB1t)
       return 1
       exit
    endcase
  enddo

RETURN NIL
Voltar ao topo
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Re: Erro Compilar Xharbour + Fivewin no Xdev

Mensagem por gvc »

O compilador esta "reclamando" que não encontrou as funções GETPREVALI, GETAPPLYKE, GETPOSTVAL.
Em qual PRG eles estão? Vc esta compilando e linkando esse PRG?
Elas não estão na documentação (comercial) que eu tenho.

Boa sorte. Espero ter ajudado.
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Voltar ao topo
gilsonpaulo
Usuário Nível 3
Usuário Nível 3
Mensagens: 135
Registrado em: 02 Fev 2008 11:30
Localização: Quatro Barras

Re: Erro Compilar Xharbour + Fivewin no Xdev

Mensagem por gilsonpaulo »

De fato, estas funções do clipper não existem no xharbour, removi as funções e o sistema compilou normalmente.

Obrigado pela ajuda.
Voltar ao topo
Responder

Voltar para “[x]Harbour”