xHarbour 1.2.3 build 20141106 - 06/11/2014

kapiaba · November 28, 2014

Semana que vem, eu testo:

http://forums.fivetechsupport.com/viewtopic.php?f=16&t=29643

abs.

kleyber · November 28, 2014

Cuidado pra não quebrar a testa!!! kkkkkkkkkkkkkkkkk

tiaoFW · December 1, 2014

Bom dia.

Recompilei nosso sistema aqui nessa nova versão e aparentemente funcionou perfeitamente.

Apenas reparei até o momento que a função abaixo foi corrigida e agora retorna o numero de linhas do arquivo de forma correta, veja:

function leTXT()

local cFile := localexe+"SALC.INI", aLines := {}, nLine := 0, nCount := 0, nFile := 0

nFile := HB_FUse( cFile, 2 )

nCount := HB_FLastRec() // + 1 // antes era necessário acrescentar uma linha.

aLines := Array( nCount )

DO WHILE ++nLine <= nCount

aLines[ nLine ] := HB_FReadAndSkip()

sysrefresh()

ENDDO

HB_FUse()

return(aLines)

kapiaba · December 1, 2014

Veleu Tião, note que estão faltando estes executáveis: Não sei se foi feito alterações ou não, aguardando resposta do Liñares:

         1.072.128 hbdict.exe
         2.216.960 hbdoc.exe
           920.576 hbextern.exe
           961.024 hbformat.exe
           130.048 hblib.exe
         1.149.952 hbmake.exe
           232.960 hbpp.exe
           129.024 hbrc.exe
           121.856 hbrm.exe
         1.603.072 hbrun.exe
         1.660.416 hbrunmt.exe
         1.225.216 hbtest.exe
         1.282.560 hbtestmt.exe
         1.902.592 xbscript.exe

kapiaba · December 2, 2014

Agora está completo:

https://bitbucket.org/fivetech/harbour-xharbour-builds/downloads/xHarbour%201.2.3%20Intl.%20(SimpLex)%20(Build%2020141106)%20missing%20bin%20files.zip

Ou,

http://forums.fivetechsupport.com/viewtopic.php?f=16&t=29643

abs.

oribeiro · December 2, 2014

Dá para saber o que foi mudado no xHarbour ?

Existe algum log de atualizações?

aferra · December 4, 2014

bem, nesta versão não funciona mais a DLLCALL()

kapiaba · December 4, 2014

bem, nesta versão não funciona mais a DLLCALL()

Estás haciendo asi?

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=6009

Porque usas DLLCALL(), és modo consola?

Saludos.

aferra · December 4, 2014

faço assim:

 
METHOD SerialHD() CLASS ClassVar
LOCAL TDLL := LoadLibrary("DiskSerial.dll")
LOCAL RETPORTA1, lpBuffer := SPACE(512)
 
    IF TDLL == 0
          FreeLibrary( TDLL )
         RETURN( "Erro na DLL" )
    ENDIF
 
    RETPORTA1 := DLLCALL( TDLL, 32, "GetSerialNumber", 0, @lpBuffer )
 
    FreeLibrary( TDLL )
 
RETURN( lpBuffer )

kapiaba · December 4, 2014

Tente assim:



METHOD SerialHD() CLASS ClassVar


   STATIC  TDLL


   LOCAL RETPORTA1, lpBuffer := SPACE(512)


   TDLL := LoadLibrary( "DiskSerial.dll" )


   IF TDLL == 0

       FreeLibrary( TDLL )

      RETURN( "Erro na DLL" )

   ENDIF


   RETPORTA1 := DLLCALL( TDLL, 32, "GetSerialNumber", 0, @lpBuffer )


   FreeLibrary( TDLL )


RETURN( lpBuffer )

Veja:

Pasta de C:\FWH1306\samples

08/07/2013 19:46 30.588 testdski.prg - tem tudo o que você precisa.

http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=9322

http://forums.fivetechsupport.com/viewtopic.php?t=524

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=10672&p=71567&hilit=SerialNumber#p71567

http://forums.fivetechsupport.com/viewtopic.php?f=7&t=6951&p=31531&hilit=SerialNumber#p31531

Abs,

aferra · December 4, 2014

é não vai, coloquei até uma lib ( use_dll ) que vem junto, que não tem na versão anterior.. ,mas não funciona...rsrsrsrs ai ai ai....troca de versão. kkkkkkkkkkkkkk é uma dureza. klklklklklklklklklkl

kapiaba · December 4, 2014

Para controlar contrasenha eo numero do terminal eu uso assim:



PUBLIC XSERIALHD


   XSERIALHD := ALLTRIM( STR( nSerialHD( "C:\" ) ) )


   NNUMERHD    := XSERIALHD  //-> Numero do Hd do Terminal em Uso

   NNUMERHDSUP := NNUMERHD   //-> Para Liberar Contra Senha no Meu Micro

Não sei se é o seu caso.

aferra · December 4, 2014

pode ser, embora não mostre corretamente o serial e sim o volume, o serial não tem como mudar o volume sim...não sei se na sua versão foi corrigida, na minha não tem jeito...dá diferença e se formatar já era....dor de cabeça, com essa dll o kra pode até trocar a placa mae que retorna correto....então vamos aguardar o AL. postei no inter, vlw por enquanto, nem é tão importante pois está tudo bem usando a versão antiga, mas sempre tem melhoras então é bom atualizar ( acho kkkkkkkkkkkkkkk, quer dizer não acho kkkkkkkkkkkkkkkkkk )

kapiaba · December 4, 2014

Alessandro, descobri o segredo:

Falta em C:\xhb061114\bin

1.660.416 hbrunmt.exe

1.282.560 hbtestmt.exe

Copiei e compilei e nao gera mais o erro de DLLCALL()como deveria ser na nova versão:



07/10/2013  11:53           738.816 harbour.exe

07/10/2013  11:54         1.072.128 hbdict.exe

07/10/2013  11:54         2.216.960 hbdoc.exe

07/10/2013  11:54           920.576 hbextern.exe

07/10/2013  11:54           961.024 hbformat.exe

07/10/2013  11:53           130.048 hblib.exe

07/10/2013  11:54         1.149.952 hbmake.exe

07/10/2013  11:54           232.960 hbpp.exe

07/10/2013  11:53           129.024 hbrc.exe

07/10/2013  11:53           121.856 hbrm.exe

07/10/2013  11:54         1.602.560 hbrun.exe

07/10/2013  11:54         1.660.416 hbrunmt.exe

07/10/2013  11:54         1.225.216 hbtest.exe

07/10/2013  11:54         1.282.560 hbtestmt.exe

07/10/2013  11:54         1.902.592 xbscript.exe

              15 arquivo(s)     15.346.688 bytes

Testa ahi vey() e informe ao Enrico.

Tays ficando vey() mesmo, heim?? kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

Abs.

kapiaba · December 4, 2014

Se bem que, não gera erro na compilação, mas não retorna nada.



#include "FiveWin.ch"


Function Main()


   alert(SERIAL_HD())  // nada retorna.


Return


*****************

FUNCTION SERIAL_HD


   Local TDLL:=LoadLibrary("DiskSerial.dll"), RETPORTA1, lpBuffer:=SPACE(512)


   IF TDLL=0

      RETURN("Erro na DLL")

      FreeLibrary( TDLL )

   ENDIF


   RETPORTA1:=DLLCALL(TDLL,32,"GetSerialNumber",0,@lpBuffer )


   FreeLibrary( TDLL )


RETURN(lpBuffer)

O que está errado Alessandro?

abs.

Jmsilva · December 4, 2014

Show de bola esta nova versão, para NÃO dar erro por falta das funções freelibrary() e loadlibrary() tem que alterar dll.c (fwh\source\winapi) e compilar junto com o projeto.

#include <Windows.h>

#include <hbapi.h>

//com a versão 06/11/2014 xHarbour teve q alterar - erro loadlibrary e freelibrary

//e compilar junto com projeto

//#if defined( _WIN64 ) //ESTA LINHA FOI COMENTADA

//----------------------------------------------------------------------------//

HB_FUNC( FREELIBRARY ) // ( hDll ) --> nil

{

#ifndef _WIN64

hb_retnl( FreeLibrary( ( HINSTANCE ) hb_parnl( 1 ) ) );

#else

hb_retnl( FreeLibrary( ( HINSTANCE ) hb_parnll( 1 ) ) );

#endif

}

//---------------------------------------------------------------------------//

HB_FUNC( LOADLIBRARY ) // ( cDllName ) --> hDll

{

#ifndef UNICODE

#ifndef _WIN64

hb_retnl( ( LONG ) LoadLibrary( hb_parc( 1 ) ) );

#else

hb_retnll( ( LONGLONG ) LoadLibrary( hb_parc( 1 ) ) );

#endif

#else

LPWSTR pW = AnsiToWide( ( char * ) hb_parc( 1 ) );

hb_retnl( ( LONG ) LoadLibrary( pW ) );

hb_xfree( pW );

#endif

}

//---------------------------------------------------------------------------//

//#endif //ESTA LINHA FOI COMENTADA

Dica do Linhares.

oribeiro · December 8, 2014

Sem essa correção dá erro também no LoadLib32() / FreeLib32() ???

kapiaba · December 8, 2014

Favor aguardar... o Alessandro tem novidades, em breve. abs.

kapiaba · December 8, 2014

Nova Versão baixada pelo Alessandro no SVN, ele está estudando como deixar para download para os demais.



xHarbour 1.2.3 Intl. (SimpLex) (Build 20141206)

Copyright 1999-2014, http://www.xharbour.org http://www.harbour-project.org/


Syntax:  C:\XHB061214\bin\harbour.exe <file[s][.prg]> [options]

Very Good!!!

Quem o tiver no skype, peçam a ele.

abs;

aferra · December 8, 2014

bem acho que vai dar certo, reportem senão der para baixar...estou aprendendo esse bitbucket agora.. então....não estessem. pq eu já fiquei,. jkkkkkkkkkkkkk

https://bitbucket.org/alessandrofsilva/xharbour/downloads <- se alguem sabe como compartilhar o arquivo e quiser ajudar.....agradeço.

http://www.4shared.com/get/FiUn332Vce/xHarbour.html <- esse está indo....

kapiaba · December 9, 2014

Testando esta nova versão, parece que tudo voa de boa... Continuando os testes. Excelente, por enquanto, very thanks, Alessandro.

abs.

oribeiro · December 9, 2014

Baixei essa versão e vou fazer os testes.

Obrigado Alessandro.

aferra · February 28, 2015

Novo xHarbour 24/02/2015

http://www.4shared.com/rar/kfprtzgece/xHarbour.html?

olhem o changeLog para saber sobre as alterações...

só queria fazer o mesmo com o Harbour, porem tudo que encontrei na net é para mingw e não consegui faze-lo se alguém souber para BCC e quiser passar o caminho das pedras eu mantenho atualizado da mesma forma.

um grande abraço

sygecom · March 1, 2015

No link abaixo se encontra o xharbour(svn) compilado para varios compiladores C

http://whosaway.com/

aferra · March 2, 2015

Legal tb seria se tivesse para Harbour os mesmos compiladores....eu sei que o bcc é velho, pero não mutcho, pois o bcc69 é de 2014, então o pessoal poderia fazer como o pessoal do xharbour e deixar para varios compiladores...mas vamos nessa continuando a procurar...

xHarbour 1.2.3 build 20141106 - 06/11/2014

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation