Jump to content
Fivewin Brasil

Jmsilva

Membros
  • Posts

    718
  • Joined

  • Last visited

  • Days Won

    14

Posts posted by Jmsilva

  1. Olá pessoal, parece que a solução não é de domínio amplo do pessoal, apenas o Alexandre contibuiu, obrigado!.

    Fiz umas consultas e testes, parece que resolvi!

    O SQL usa "\" reconhecer o caracter especiais sem apresentar erros. Como uso a Classe TMySQLServer() da lib TMySQL.LIB, tem uma função DATATOSQL(cString) faz a correção da string compatibilizando com o SQL.

    Se alguém gostou da dica.....poste uma msg......

  2. Olá Amigo, obrigado pela dica.....

    Fiz alguns testes com SQLLIB mas não obtive sucesso, qdo compilo gera o erro abaixo.

    Error: Unresolved external '_hb_set' referenced from C:\SQLLIB\LIB\SQLLIB_XHB_V1.2.1_REV.6406.LIB|sqllib_api

    0 Files, 0 Warnings, 1 Errors

    Uso xHarbour 1.2.1

  3. Olá Pessoal, preciso de ajuda....talvez o VAILTOM pode me dar uma dica.

    Tenho um arquivo DBF que alguns campos criptografados, logo tem diversos caracteres epeciais, na rotina de conversão do DBF para MySQL apresenta erro devido a esses caracteres epeciais, no cmd "INSERT INTO...." do SQL.

    Fiz um teste com o executável DBF2SQL do VAILTOM gravou corretamente ou seja no MySQL ficou idêntico ao DBF.

    Alguém pode me dar uma dica.

    Obrigado

    xHarbour/Fivewin

  4. Olá Pessoal, preciso de ajuda....talvez o VAILTOM pode me dar uma dica.

    Tenho um arquivo DBF que alguns campos criptografados, logo tem diversos caracteres epeciais, na rotina de conversão do DBF para MySQL apresenta erro devido a esses caracteres epeciais, no cmd "INSERT INTO...." do SQL.

    Fiz um teste com o executável DBF2SQL do VAILTOM gravou corretamente ou seja no MySQL ficou idêntico ao DBF.

    Alguém pode me dar uma dica.

    Obrigado

    xHarbour/Fivewin

  5. Olá!

    Uso o xHarbour para gerar a minha aplicação, resolvi fazer um teste com Harbour. Gerei arquivo.hbp com o comando HBMK2 arquivo.hbp, consegui compilar e gerar o executável.

    O tamanho do executável dobrou e ao executar aparecem duas janelas uma do DOS outra do sistema.

    Como faço para eliminar a janela do DOS harbour?

    Segue o arquivo e comando utilizado.

    >hbmk2 arquivo.hbp

    #compila so os alterados

    -inc

    #-debug

    # modulo principal sem parenteses

    -main=MENU

    #icone do executável

    -icon=menu.ico

    #path dos arquivos .ch e .h includes

    -incpath=C:\HARBOUR\INCLUDE;C:\BCC55\INCLUDE;C:\FWH\INCLUDE

    #path da lib

    -LC:\HARBOUR\LIB;C:\BCC55\LIB;C:\BCC55\LIB\PSDK;C:\FWH\LIB

    #path onde sao gerados os arquivos .c e .obj

    -workdir=hobj

    #outro parametro nÆo sei para q e

    -head=native

    # compactar com UPX no=compacta yes=nao compacta

    #-compr //da um pau de memoria

    # bibliotecas usadas --- GTWIN eh que inicia a aplicação

    -lGTWIN

    -lHBLANG

    -lHBVM

    -lHBRTL

    -lHBRDD

    -lHBMACRO

    -lHBCOMMON

    -lHBCPAGE

    -lHBWIN

    -lXHB

    -lHBCT

    -lHBSIX

    -lRDDNTX

    -lRDDCDX

    -lRDDFPT

    -lHARBOUR-20-BCC

    #Libs da Fivewin

    -lFIVEH

    -lFIVEHC

    #Libs da BCC

    -lODBC32

    -lMSIMG32

    -lCW32

    -lIMPORT32

    #Libs Harbour

    #-lHBSQLIT3

    #-lSQLITE3

    # nome do executavel

    -oMENU

    # .prg, .c e .rc com extensÆo # rem ECHO c0w32.obj

    MENU.PRG MENU2.PRG.....ETC

    Valeu!

    Caraguatatuba-SP

    Editado por - jmsilva on 30/06/2010 14:45:11

  6. Olá!

    Uso o xHarbour para gerar a minha aplicação, resolvi fazer um teste com Harbour. Gerei arquivo.hbp com o comando HBMK2 arquivo.hbp, consegui compilar e gerar o executável.

    O tamanho do executável dobrou e ao executar aparecem duas janelas uma do DOS outra do sistema.

    Como faço para eliminar a janela do DOS harbour?

    Segue o arquivo e comando utilizado.

    >hbmk2 arquivo.hbp

    #compila so os alterados

    -inc

    #-debug

    # modulo principal sem parenteses

    -main=MENU

    #icone do executável

    -icon=menu.ico

    #path dos arquivos .ch e .h includes

    -incpath=C:\HARBOUR\INCLUDE;C:\BCC55\INCLUDE;C:\FWH\INCLUDE

    #path da lib

    -LC:\HARBOUR\LIB;C:\BCC55\LIB;C:\BCC55\LIB\PSDK;C:\FWH\LIB

    #path onde sao gerados os arquivos .c e .obj

    -workdir=hobj

    #outro parametro nÆo sei para q e

    -head=native

    # compactar com UPX no=compacta yes=nao compacta

    #-compr //da um pau de memoria

    # bibliotecas usadas --- GTWIN eh que inicia a aplicação

    -lGTWIN

    -lHBLANG

    -lHBVM

    -lHBRTL

    -lHBRDD

    -lHBMACRO

    -lHBCOMMON

    -lHBCPAGE

    -lHBWIN

    -lXHB

    -lHBCT

    -lHBSIX

    -lRDDNTX

    -lRDDCDX

    -lRDDFPT

    -lHARBOUR-20-BCC

    #Libs da Fivewin

    -lFIVEH

    -lFIVEHC

    #Libs da BCC

    -lODBC32

    -lMSIMG32

    -lCW32

    -lIMPORT32

    #Libs Harbour

    #-lHBSQLIT3

    #-lSQLITE3

    # nome do executavel

    -oMENU

    # .prg, .c e .rc com extensÆo # rem ECHO c0w32.obj

    MENU.PRG MENU2.PRG.....ETC

    Valeu!

    Caraguatatuba-SP

    Editado por - jmsilva on 30/06/2010 14:45:11

  7. //AQUI VC PEGA O TAMANHO CORRETO

    aVET := DBF_TABXXX() //SEM PARAMETROS

    nTOT := 0

    FOR nCT:=1 TO LEN(aVET)

    nTOT := nTOT + aVET[nCT,3] //totaliza o tamanho dos campos

    NEXT

    //tamanho do dbf

    //verifica o tamanho do arquivo do cliente

    USE FILE

    aVET := FILE->(DBSTRUCT())

    FILE->(DBCLOSEAREA())

    nDBF := 0

    FOR nCT:=1 TO LEN(aVET)

    nDBF := nDBF + aVET[nCT,3] //tamanho do campo

    NEXT

    IF nDBF != nTOT

    //SE FOR DIFERENTE ATUALIZA A ESTRUTURA

    ENDIF

    RETURN(NIL)

    **----------------------------------------------------------------------

    FUNCTION DBF_TABXXX(cDIR)

    ** cDIR diretorio

    **----------------------------------------------------------------------

    LOCAL aVET:={}

    AADD(aVET,{"NOME" ,"C", 25, 00})

    AADD(aVET,{"CODIGO" ,"C", 05, 00})

    AADD(aVET,{"FILTRO" ,"C", 01, 00})

    //verificar estrutura de arquivo

    IF PCOUNT() == 0 ; RETURN(aVET) ; ENDIF

    DBCREATE(cDIR+"TABXXX",aVET)

    RETURN NIL

  8. include "FiveWin.ch"

    function Main()

    local hBmp := ReadBitmap( 0, "test.bmp" )

    MsgInfo( hBmp )

    MemoWrit( "another.bmp", BmpToStr( hBmp ) )

    DeleteObject( hBmp )

    return nil

    Para Converter um BMP para String usa-se BmpToStr() e o Inverso, Alguém sabe?

    Fivewin 9.11

    Caraguatatuba-SP

    Editado por - Jmsilva on 13/12/2009 12:31:55

  9. include "FiveWin.ch"

    function Main()

    local hBmp := ReadBitmap( 0, "test.bmp" )

    MsgInfo( hBmp )

    MemoWrit( "another.bmp", BmpToStr( hBmp ) )

    DeleteObject( hBmp )

    return nil

    Para Converter um BMP para String usa-se BmpToStr() e o Inverso, Alguém sabe?

    Fivewin 9.11

    Caraguatatuba-SP

    Editado por - Jmsilva on 13/12/2009 12:31:55

×
×
  • Create New...