FiveTech Software tech support forums

Hello,

See this project for harbour and Harbour++

https://github.com/marcosgambeta/sqlrddpp

Hello Vilian,

See if this helps you:

#include "hbcompat.ch"function mainlocal nHandletry nHandle := hb_hrbload( memoread( "file.hrb" ) )catch oErr ? "Error load in hrb" quitendif empty( nHandle ) ? "Error call hrb" quitendif? call_func( nHandle, "p1", "1" )? call ...

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 MAINcChave := 'TIAO'cTeste1 := 'UR010801733' // FIELD OF THE FOURTH The DBF ...

Olá George,

Veja este link: http://forums.fivetechsupport.com/viewtopic.php?f=6&t=17985&p=93983&hilit=_OleUIPasteSpecialA#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 65FUNCTION MAIN() LOCAL oDlg LOCAL cVar := SPACE(10) CGETFILE( "*.*", "Select a file" ) DEFINE DIALOG oDlg @ 1, 1 GET cVar @ 2, 1 BUTTON oBtn PROMPT "Button1" oBtn:bGotFocus = &#123 ...

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 OFFCLSECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ECHO ³ FiveWin for Harbour 9.01 (MSVC++) Jan. 2009 Harbour development power ³ÜECHO ³ (c) FiveTech, 1993 ...

Olá Antonio,

Ao tentar compilar os exemplos do fivewin com MSVC me é retornado estes erros:

Lines 3711, Functions/Procedures 3Generating C source output to 'toolbar3.c'... Done.Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 15.00.30729.01 for 80x86Copyright (C) Microsoft ...

Olá Antonio,

Agora está 100% 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 xtpControlPopup 2#define xtpControlButtonPopup 3#define xtpControlSplitButtonPopup 4 ...

Olá Antonio,

A sintaxe correta é :

function RibbonBarEvent( cEvent, aParams, pParams, aButtons, oWnd )   do case      case cEvent == "Execute" .and. Len( aButtons ) > 0           do case          &nbsp ...

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