FiveTech Software tech support forums

Usas esto en tu MENU PRINCIPAL? Se no, no usas BORLAND.    LOCAL hBorland   hBorland := LoadLibrary('BWCC32.DLL')   BWCCRegister( GetResources() )//-----------------------------------------------------------------------------DLL32 FUNCTION BWCCRegister( ...

Mr. Tim

Please try using LoadLib32() instead of LoadLibrary()

... FROM "I2PDF_MakePDF" LIB hLib  Note: @ r,c PRINT commands are translated to :SayText() calls. You use LoadLib32( ) and I'm using LoadLibrary( ) When I used LoadLib32(), it is working correctly. When I changed to LoadLibrary() no pdf is generated but an hb_out.log file is generated ...

Vilian, I have tried your code which is almost identical to mine. The differences: You use LoadLib32( ) and I'm using LoadLibrary( ) You are using the additional call: iErr := I2PDF_MetaTextFitBoundingRect() When I run it with your setup, I get 7 pop-up boxes saying Error: 0. Loading: ...

... #Define DC_CALL_STD 0x0020 FUNCTION Generar_QR(cStr,cFile) LOCAL nResp LOCAL qrDLL qrDLL := LoadLibrary("QRCodelib.Dll" ) nResp := DllCall(qrDLL,DC_CALL_STD,"FastQRCode",cStr,cFile) FreeLibrary(qrDLL) RETURN (NIL)

... de FW function GetTextW( nHandle,cT,nMax ) ; local _hDLL := If( ValType( "user32.dll" ) == "N", "user32.dll", LoadLibrary( "user32.dll" ) ) ; local uResult ; local cFarProc ; if Abs( _hDLL ) > 32 ; cFarProc = GetProcAdd( _hDLL, If( Empty( "GetWindowTextA" ...

Another , how use ftp over TLS ? hLib = LOADLIBRARY( "wininet.dll" ) hInternet := INETOPEN( "Anystring", 1, 0, 0, 0 ) hConnect := INETCONNECT( hInternet, "www.xtech.com.cn",21, "xxx@xtech.com.cn", "erp6.5", ...

... n4 AS LONG, n5 AS LONG,;    n6 AS LONG ) AS LONG PASCAL ;    FROM "InternetConnectA" LIB iDLL  iDLL is defined: PRIVATE iDLL := LoadLibrary( "wininet.dll" ) As I said, this code is fine with xHarbour, but not Harbour. I've tried other approaches but all are problematic. ...

... _Vueltas:=0 LOCAL cDllName:="SCLib.DLL" ,_cuantos:=0 lOCAL Block := 5 , Fsalir1:=.T. ,fRetCode1,fRetCode2 ,Datos:=1 ACR120libHandle2 := LoadLibrary(cDllName) do while Fsalir1 fRetCode1:=SCLeer() IF fRetCode1==1 fRetCode2:= SCGrabar(Block,Datos) IF fRetCode2==1 alert("EXITO") ...

... ) local hItem1 local hItem2 local marray := {} local i, OPRINTER local ownd, OWAITDLG , ODIALOG, WORKTEXT, OSAY, MDLL altd(1) altd() hDLL = LoadLibrary( "DLL-DON2.DLL" ) SET RESOURCES TO DEFINE DIALOG owaitdlg FROM 1, 1 TO 222, 333 ; STYLE nOR( WS_VISIBLE, WS_POPUP ) PIXEL OWAITDLG:CTITLE ...

... Librería de Soporte","Improcedente") Return(NIl) EndIF cStr := cTexto //"Texto a QR Code" cFile := cPath + cBmp qrDLL:=LoadLibrary("QRCodelib.Dll" ) nResp:=DllCall(qrDLL,DC_CALL_STD,"FastQRCode",oP:Codigobarras,cFile) FreeLibrary(qrDLL) RETURN (cFile)

... de esta manera @Largo cuando es un string.. function incios... OCAL cDllName:="SCLib.DLL" Local fHandle:=0 Local ACR120libHandle := LoadLibrary( cDllName) HaveTag :=space(150) SerialNum :=space(110) Largo :=0 TagType :=space(50) RTag :=0 RSn :=space(7) fRetCode := ACR120_Select(fHandle, ...

...     lRetorno:=.T.   Else      MsgInfo( Str( nError ) )   EndIf  o con LoadLibrary()? Saludos

... Len(<aArray>|<cString>|<hHash>)->nCount LenNum(<nNumber>)->nLength LoadLibrary(<cDLLFile>)->nDllHandle Log(<nExp>)->nNaturalLog Log10(<nValue>)->nLog10 Lower(<cString>)->cLowerString ...

... IsUpper IsUpper IsXDigit JustLeft JustRight KbdStat KeySec KeyTime KSetIns KSetNum KSetScroll L2Bin LastDayoM LastKey LastRec Left Len LenNum LoadLibrary Log Log10 Lower LtoN LTrim LUpdate MakeDir Mantissa Max MaxCol MaxLine MaxRow MCol MDblClk MDY MemoEdit MemoLine MemoRead Memory MemoTran ...