Hello, has anyone used 2D bar code library with FWH? If so, can you provide details?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour 2D bar code printing
For printing I use a barcode font.
Here is a sample of my routine to check for barcode and install it if necessary.
In my program I just do CheckBarCode() if I want it installed automatically.
Here is a sample of my routine to check for barcode and install it if necessary.
In my program I just do CheckBarCode() if I want it installed automatically.
#define HKEY_LOCAL_MACHINE (0x80000002)
Function CheckBarCode( lInstall )
local cWinFontsFolder, cFontFile, oFontBarCode
local cKey, oReg
if lInstall == nil
lInstall := .t.
endif
cKey := "Software\Microsoft\Windows NT\CurrentVersion\Fonts"
oReg := TReg32():New( HKEY_LOCAL_MACHINE, cKey )
// need name of font to install here
cFontFile := oReg:Get( '3 of 9 Barcode (TrueType)' )
oReg:Close()
lIsBarcode := !empty( cFontFile )
if .not. lIsBarCode .and. lInstall
InstallBarCode()
cFontFile := oReg:Get( '3 of 9 Barcode (TrueType)' )
oReg:Close()
lIsBarcode := !empty( cFontFile )
endif
return( lIsBarcode)
Function InstallBarCode()
local cWindowsDir
local oShellApplication
local oShell
local oShellFSO
local cFontFile
local cFontDir
local cWinFontsFolder
cWindowsDir := gete( "systemroot" )
oShell = CreateObject("Shell.Application")
oShellApplication := CreateObject( "Shell.Application" )
oShell := TOleAuto():New( "WScript.Shell" )
oShellFSO := TOleAuto():New( "Scripting.FileSystemObject" )
// need full path name of font to install.
cFontDir := '\\trg401\VOL0\Install\Fonts\'
cFontFile := '3of9.ttf'
oNameSpace := oShellApplication:Namespace( cFontDir )
oFont := oNameSpace:ParseName( cFontFile )
oFont:InvokeVerb("Install")
return nil
cdmmaui wrote:Hello, has anyone used 2D bar code library with FWH? If so, can you provide details?
Try Cayetano's barlib library.
EMG