FiveTech Software tech support forums

Hello Vilian, See if this helps you: #include "hbcompat.ch" function main local nHandle try       nHandle := hb_hrbload( memoread( "file.hrb" ) ) catch oErr       ? "Error load in hrb"       quit end if empty( nHandle )    ? "Error call hrb"    quit endif ? ca...

Olá Tião, Teu erro está nesta linha: cteste3 := Decrypt(alltrim(cTeste2),cChave) tem que ser assim: cteste3 := alltrim(hb_Decrypt(cTeste2,cChave)) // olha o alltrim() segue exemplo compilado em harbour puro: function MAIN cChave := 'TIAO' cTeste1 := 'UR010801733' // FIELD OF THE FOURTH The DBF THAT ...

Olá George,

Veja este link: http://forums.fivetechsupport.com/viewt ... alA#p93992

Olá,

Como faço para declarar a função abaixo:

function myfunc( var1: OleVariant): Boolean

DLL32 FUNCTION myfunc( var1 AS ??? ) AS BOOL PASCAL lib hWnd

Obrigado,

Hi, See if this works to you : #include "Fivewin.ch" #define VK_LMENU  164 #define VK_A       65 FUNCTION MAIN()     LOCAL oDlg     LOCAL cVar := SPACE(10)     CGETFILE( "*.*", "Select a file" )     DEFINE DIALOG oDlg     @ 1, 1 GET cVar     @ 2, 1 BUTTON oBtn PROMPT &q...

Ok Manuel, Gracias

Olá pessoal,

Qual a última versão de tsbrowse e de onde posso baixá-lo ?

Olá Antonio,

Usa la version en contruida para C, no para C++.

Mas onde achar esta LIB pois harbour é que constrói ela para mim

Olá antonio,

Veja que dentro de hbwin.lib compilado para msvc eu tenho "hb_oleAnsiToWide" e não "_hb_oleAnsiToWide"

Olá Antonio, Estas enlazando hbwin.lib ? Sim. Veja meu fluxo de compilação: @ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for Harbour 9.01 (MSVC++) Jan. 2009      Harbour development power ³Ü ECHO ³ (c) FiveTech, 1993-2009     for Mi...

Olá Antonio, Ao tentar compilar os exemplos do fivewin com MSVC me é retornado estes erros: Lines 3711, Functions/Procedures 3 Generating C source output to 'toolbar3.c'... Done. Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 15.00.30729.01 for 80x86 Copyright (C) Microsoft Corporation.  All...

Olá Antonio, Agora está 100% :shock: Deixo aqui o exemplo funcionando com a codejock: // FWH ActiveX Call Codejock Ocx Sample // // Richard                              // #include "FiveWin.ch" #define xtpControlError              0 #define xtpControlButton             1 #define xtpControl...

Olá Antonio, A sintaxe correta é : function RibbonBarEvent( cEvent, aParams, pParams, aButtons, oWnd )    do case       case cEvent == "Execute" .and. Len( aButtons ) > 0            do case               case aButtons[ 1 ]:Id == aParams[ 1 ]:Id                    MsgInfo( "Button 1&qu...

Olá Antonio, Deste jeito realmente não dá mais erro mas também não executa nenhuma das ações abaixo: function RibbonBarEvent( cEvent, aParams, pParams, aButtons, oWnd )    do case       case cEvent == "Execute" .and. Len( aButtons ) > 0            do case               case aButtons[ 1 ]:_...

Olá Antonio, Sí, porque ahora la DATA hObj se llama __hObj en Harbour OK Eu mudei o código para isto: function RibbonBarEvent( cEvent, aParams, pParams, aButtons, oWnd )    do case       case cEvent == "Execute" .and. Len( aButtons ) > 0            do case               case aButtons[ 1 ]:...