Jmsilva

Olá pessoal, preciso de mais uma ajuda... A rotina abaixo, grava em um campo MEMO do DBF sem problemas mas não consigo gravar MySQL. Alguém tem a solução? #include "FiveWin.ch" INIT function Main() local cStr,cQry ,oServer LOCAL cHost := "127.0.0.1" //ou "localhost" LOCAL cUser := "root" LOCAL cPsw := "" LOCAL nPort := 3306 LOCAL cDb2 := "dbfoto" local hBmp := ReadBitmap( 0, "FOTO.BMP" ) cStr := BmpToStr( hBmp ) //estabelece a conexão oServer:= TMySQLServer():New( cHost, cUser, cPsw, nPort ) //abre o banco de dados IF !oServer:SelectDb(cDb2) //abre o banco de dados MsgStop("Banco de Dados "+cDB2+" não existe. VerIFique!") RETURN .F. ENDIF //tratamento de caracteres especiais para sql cSTR := DATATOSQL(cSTR) IF !oServer:Execute('set global max_allowed_packet = 16777216') MSGINFO("Erro na execução do variável global") ENDIF cQry := "INSERT INTO RF2010 (imgrf) value('"+Cstr+"')" IF !oSERVER:EXECUTE(cQRY) MSGSTOP(oSERVER:ERROR()) ENDIF oSERVER:DESTROY() DeleteObject( hBmp ) return nil O Erro apresentado é o seguinte: DATA TOO LONG FOR COLUMN IMGRF AT ROW 1. AGRADEÇO AJUDA.... FIVEWIN+XHARBOUR. Caraguatatuba/SP

ESTA ATUALIZAÇÃO EH SOMETE PARA VERSÃO COMERCIAL OU PARA FREE TB, PQ TENTEI FAZER UNS TESTES NA VESÃO FREE, PARA PODER ADQUIRIR UMA VESÕ COMERCIAL APRESENTOU O MESMO PROBLEMA. "_hb_set" xHabour 1.2.1 e FWH 9.12

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......

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

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

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

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

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

//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

Olá Amigos. Alguém sabe se é possivel gerar arquivo KMZ para Google Earth com a Fivewin. JMSILVA Caraguatatuba-SP

Olá Amigos. Alguém sabe se é possivel gerar arquivo KMZ para Google Earth com a Fivewin. JMSILVA Caraguatatuba-SP

Obrigado, valeu a ajuda.

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

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

Olá realmente foi um sucesso, parabéns ao José Carlos que foi resposável pela organização do Congresso. Este foi o meu primeiro congresso e espero poder estar em BH/2010 se Deus assim me permitir. José M. Silva CARAGUATATUBA/SP FIVEWIN + xHARBOUR Abraço a todos.

Alguém já consegui usar a Lib do Terralib com o Fivewin ?

Alguém já consegui usar a Lib do Terralib com o Fivewin ?

No meu sistema uso a FAST.LIB para criar gráficos, gostaria de saber de alguém conhece alguma lib que pudesse substituí-la nos mesmo molde.

No meu sistema uso a FAST.LIB para criar gráficos, gostaria de saber de alguém conhece alguma lib que pudesse substituí-la nos mesmo molde.

Onde econtro a libnf.lib para xHarbour

Onde econtro a libnf.lib para xHarbour