Configurar a máquina para o xHarbour

[hyder]

Grings

voce disse em um destes tópicos para inserir no PATH do (painel de contrôle, sistema, avançado, variável de ambiente, variável do sistema) o seguinte:
PATH C:\XHARBOUR\BIN, C:\BORLAND\BCC55

Na minha máquina já existe o seguinte PATH

PATH c:\arquiv~1\borland\remoto~1\7.0\...


Pergunto

devo criar outro PATH ou colocar uma vírgula (,) naquele que já existe e inserir o que voce informou?


agradeço

Claudionor

[luiz antonio da silva]

Grings

voce disse em um destes tópicos para inserir no PATH do (painel de contrôle, sistema, avançado, variável de ambiente, variável do sistema) o seguinte:
PATH C:\XHARBOUR\BIN, C:\BORLAND\BCC55

Na minha máquina já existe o seguinte PATH

PATH c:\arquiv~1\borland\remoto~1\7.0\...


Pergunto

devo criar outro PATH ou colocar uma vírgula (,) naquele que já existe e inserir o que voce informou?


agradeço

Claudionor

no seu AUTOEXEC.NT (c:\windows\system32\autoexec.nt)
tente colocar isso:

SET PATH=C:\WINDOWS\SYSTEM32;C:\WINDOWS\SYSTEM32\WBEN;C:\BCC55\BIN;c:\arquiv~1\borland\remoto~1\7.0\...;\
C:\xharbour\bin;C:\BISON\BIN;
SET INCLUDE=C:\BCC55\include;C:\xHarbour\include
SET LIB=C:\BCC55\lib;c:\xHarbour\lib
SET HB_LEX=SIMPLEXSET BISON_SIMPLES=C:/bison/bison.simple
SET CFLAGS= -5 -OS -a8
SET HB_PATH=C:\XHARBOUR
SET DJGPP=C:\BISON\BIN

qq coisa estamos aqui...

[acelconsultoria]

Hyder, você pode configurar o Windows XP de duas formas:



1. É mais ou menos como vc falou, só que vc não deve criar outro PATH, e sim, editar o que já existe, acrescentando "ponto e vírgula (;)" e não "vírgula".

Vc deve também inserir outras variáveis de ambiente (LIB, BIN e INCLUDE):

LIB = C:\XHARBOUR\LIB;C:\BCC55\LIB
BIN = C:\XHARBOUR\BIN;C:\BCC55\BIN
INCLUDE = C:\XHARBOUR\INCLUDE;C:\BCC55\INCLUDE

Obs.: note que é tudo separado por ponto e vírgula.


2. A outra maneira, é exatamente como o amigo Luiz Antônio descreveu, que é editar o arquivo Autoexec.nt no diretório C:\WINDOWS\SYSTEM32.

[hyder]

Aos amigos que me ajudaram, repondendo a minha dúvida, obrigado.

Seguí as instruções do Grings.
Agora ocorre um outro problema. Não consigu mais compilar meu sistema no Clipper. Esta ocorrendo o seguinte erro:

BLINKERUNABLE TO OPEN FILE EXTEND.LIB

Pergunto:

com a alteração efetuada no AUTOEXEC.NT eu não consigo mais compilar e linkeditar o meu sistema na mesma máquina?


obs. ainda não tentei compilar com o xHarbour.

obrigado

Claudionor

[rochinha]

Amiguinho

Acho melhor voce fazer como eu fiz

Eu criei um .BAT para cada ambiente, exemplo:

SET52.BAT - Confirgura ambiente para Clipper 52
SET53.BAT - Confirgura ambiente para Clipper 52
HARB43 - Confirgura ambiente para Harbour 43
HARB44 - Confirgura ambiente para Harbour 44
HARB45 - Confirgura ambiente para Harbour 45

Alem de ter os diretorios para cada um deles \CLIPPER\52, \CLIPPER\53 e ai por diante:

Porque isto?

Pois assim consigo manter todos eles e trabalhar com qualquer um a qualquer momento sem problemas.

Agora falando dos .BAT

Seu arquivo de configuração para AUTOEXEC.NT ficou assim:

LIB = C:\XHARBOUR\LIB;C:\BCC55\LIB
BIN = C:\XHARBOUR\BIN;C:\BCC55\BIN
INCLUDE = C:\XHARBOUR\INCLUDE;C:\BCC55\INCLUDE

Isto quer dizer que ficou para sempre assim, mas se voce usar .bATs voce podera mudar o ambiente em tempo de desenvolcimento.

SET52.BAT

Código: Selecionar todos

LIB = C:\CLIPPER\52\LIB;C:\XHARBOUR\LIB;C:\BCC55\LIB 
BIN = C:\CLIPPER\52\BIN;C:\XHARBOUR\BIN;C:\BCC55\BIN 
INCLUDE = C:\CLIPPER\52\INCLUDE;C:\XHARBOUR\INCLUDE;C:\BCC55\INCLUDE

SET53.BAT

Código: Selecionar todos

LIB = C:\CLIPPER\53\LIB;C:\XHARBOUR\LIB;C:\BCC55\LIB 
BIN = C:\CLIPPER\53\BIN;C:\XHARBOUR\BIN;C:\BCC55\BIN 
INCLUDE = C:\CLIPPER\53\INCLUDE;C:\XHARBOUR\INCLUDE;C:\BCC55\INCLUDE

E assim por diante. Ou voce acha os .BAT anti-profissionais. Se acha não pense em usar nunca o Linux ou Unix.

[hyder]

Rochinha valeu!!!

Funcionou para o Clipper/Blinker. Agora quanto ao xHarbour, não consegui compilar por que não tenho o hbmake. Ao compilar, deu a seguinte mensagem de erro: HBMAKE NÃO É RECONHECIDO COMO UM COMANDO INTERNO OU EXTERNO, UM PROGRAMA OPERÁVEL OU UM ARQUIVO EM LOTES.

Terei que baixar outro xHarbour 0.99.60 com o HBMAKE. Vou procurar e depois farei novo teste.

Desde já agradeço aos amigos que me ajudaram.

[hyder]

Pessoal

Ainda estou tendo proglemas para executar o meu teste no xHarbour

meu .PRG de teste é o seguinte:

OI.PRG

FUNCTION MAIN()
? "HELLO WORLD"
RETURN .T.




meu .BAT de compilação é:


XCOMP.BAT

HBMAKE OI.BC /EX
HBMAKE OI.BC


porém, quando executo a compilação, continua aparecendo aseguinte
mensagem:


hbmake não é reconhecido como um comando interno ou externo,...


Devo informar que configurei a máquina conforme instruções do GRINGS.


Informo também que a instalação do xHARBOUR contém as seguintes pastas:


XHARBOUR - BIN
- CONTRIB - GD - INCLUDE
- HBZLIB - INCLUDE

- INCLUDE
- LIB


SERÁ QUE HÁ ALGUM ERRO NA INSTALAÇÃO DO xHARBOUR?


se algu[em puder me ajudar, agradeço


abraços

[Stanis Luksys]

Olá,

No Windows XP vc não precisa se preocupar com o autoexec...

Na janela propriedades do sistema, na parte de variáveis de ambiente, crie suas variáveis BIN, LIB, INCLUDE e OBJ apenas para o Clipper.

Para o xHarbour e o BCC coloque apenas a pasta BIN na variável PATH.

Utilizando o hbmake, ele já acha automaticamente onde estão bibliotecas e cabeçalhos, em geral pelo caminho relativo ..\lib e ..\include.

É isso aí...

[hyder]

Ola Stanis

Somente hoje é que pude entrar na internet, pois desde o domingo de Carnaval que tive um problema com o micro e fiquei todo esse tempo sem usar a internet.

Gostaria, se possível, em virtude de ser leigo em configurações, que voce fosse mais detalhista em suas observações anteriores, para que eu pudesse aplicar suas recomendações sem erro.

grato

[Eraldo]

alguem pode localizar onde esta o erro nesta função
uso um dbf que tem 2 campos cic,observacao

Código: Selecionar todos

function main()
//////////////////bra_b// observacoes
set cursor on
set key 290 to
set key -3 to
set key -4 to
set key -5 to
use cont_ob
inde on cic to xx
set inde to xx
save scre to sonia
stor 0 to ncta,ncta2,resposta,pega,posicao,rta,nc
private alinhas:={},xtexto:='',num,nelem:=0,_telaob,nct:=0,coldcor:=setcolor(),coldarea:=dbf(),laltera:=.f.,lalterou:=.t.
@24,16 clea to 24,60
daa=padc('[ALT]+[G] Grava [Esc]=retorna',66)
@24,16 say daa color('n/w')
rega=' '
//sele 1
acic=SPAC(11)
acic='110141455887'
//sele 5
seek acic
xtexto=spac(60)
seek acic
if found()
   while cic==acic .and. ! eof()
      xtexto=rtrim(observacao)+chr(13)+chr(10)
      skip
   end
end
xtexto:=ltrim(xtexto)
nc:=mlcount(' ')
set color to
set color to gr+/bg,n/W,,,n/bg
? ACIC
WAIT
quadro:=chr(201)+chr(205)+chr(187)+chr(186)+chr(188)+chr(205)+chr(200)+chr(186)
@11,15,21,77 BOX QUADRO+chr(255)
@12,16 clea to 20,76
set color to b/w,w/b
@11,16 say padc('OBSERVACOES',61,'Í') color('w+/gr')
xtexto=memoedit(xtexto,12,16,20,76,.t.,"edita")
if lastkey()=27
   rest scre from sonia
//   set key -3 to bra_a()
//   set key -4 to bra_b()
//   set key -5 to impficha
//   set key -6 to bra_i

//   sele 1
   set color to
   set color to w+/bg,w+/b,,w/bg,gr+/bg
   return
endif
stor 0 to num
num:=mlcount(xtexto,60,,.f.)
set color to
stor 0 to nct,ncq,ncc
stor spac(60) to vara,varb
for ncc=1 to num
   aadd(alinhas,memoline(xtexto,60,ncc,,.f.))
next
seek acic
while cic==acic.and. ! eof()
   nct++
   skip
enddo
seek acic
ncont=0
while cic==acic
   ncont++
   if ncont<=num
      if rlock() .and. observacao!=alinhas[ncont]
         repl observacao with alinhas[ncont]
      end
   else
      if rlock()
         dele
      end
   end
   unlock
   skip
end
ncont++
if ncont<=len(alinhas)
   for ncc=ncont to num
      if rlock()
         append blank
         repl cic with acic,observacao with alinhas[ncc]
      end
      unlock
   next ncc
end
rest scre from sonia
sele 1
return
//////////////////edita//
function edita (modo,linha,coluna)
local tecla
@23,0 clea to 23,25
@23,16 say 'L '+alltrim(strzero(linha,2)) color('n/w')
@23,21 say 'C '+alltrim(strzero(coluna,2)) color('n/w')
tecla=lastkey()
do case
   case modo=3
      @23,26 SAY chr(24)+''+chr(25)+''+chr(26)+chr(27)+ ' Move linha caracter' color('n/w')
      @23,42 say '[PageUP] [PageDown]=Sobe Desce p/tela ' color('n/w')
   case modo=2
      if tecla=23
         return(32)
      ENDIF
      if tecla=290
         set color to
         set color to w+/bg,w+/b,,w/bg,gr+/bg
         return(23)
      endif
endcase
return(tecla)
//procedure uma_coisa
//@24,5 say ''
//return
///////////////procea//////
return

[alxsts]

Olá!

Qual erro acusa?

Coloque teu código entre a tag code. É difícil analisar o código postado como fez... Veja como usar clicando aqui.