FiveTech Software tech support forums

I need to work with some FWH/Harbour code. When I try to compile it in xHarbour, the compiler complains that the following functions are missing. _HB_FUN_GETDEFAULTFONTNAME _HB_FUN_GETDEFAULTFONTHEIGHT _HB_FUN_GETINI _HB_FUN_SETGRADIENTBTNBMP _HB_FUN_ULRIMAGE _HB_FUN_VALEMPTY _HB_FUN_GETIMAGE _HB_F...

I need to work with some FWH/Harbour code. When I try to compile it in xHarbour, the compiler complains that the following functions are missing. _HB_FUN_GETDEFAULTFONTNAME _HB_FUN_GETDEFAULTFONTHEIGHT _HB_FUN_GETINI _HB_FUN_SETGRADIENTBTNBMP _HB_FUN_ULRIMAGE _HB_FUN_VALEMPTY _HB_FUN_GETIMAGE _HB_FU...

... \ Images \ I tried the filecopy () function but there are problems and last night I found in the folder fivewin (gallery) a procedure called copyfiles that seems to work better but has a 'interface with a dialog I wanted to try if you can remove this dialog and call the copying function directly ...

... cuando enchufo el cable de la tableta al pc nada sucede que él recarga solamente la batería Para copiar los archivos estoy usando el procedimiento copyfiles que podemos encontrar en la carpeta de ejemplo fwh. Normalmente uso este procedimiento y funciona. Lo uso cuando creo un año de ejercicio ...

... function ( samples folder of fwh) not run good because I cannot set the drive I not Know wich is the drive if id e or f or g or h function Main() CopyFiles( { "..\..\..\lib\five.lib", "..\..\..\lib\fivec.lib", "..\..\..\lib\winapi.lib" },; { "..\..\..\lib\five.bak", ...

... := {|| Eval( bAction, odlg ), oDlg:End(), SysRefresh() } oDlg:lhelpicon := .f. activate dialog oDlg centered on init(if(nTip=1,oAnimate:copyfiles(),; if(nTip=2,oAnimate:delfile(),; if(nTip=3,oAnimate:copyfile(),; if(nTip=4,oAnimate:emptycan(),; if(nTip=5,oAnimate:destfile(),; if(nTip=6,oAnimate:fileverif(),))))))) ...

Maybe this post can help you.
viewtopic.php?f=6&t=15657&hilit=copyfiles#p81071
Regards.

... AEVAL(aDirectorio, {|aFich| AADD(aFuente, aFich[F_NAME]), AADD(aDestino, Destino+"\"+aFich[F_NAME]), SysRefresh() } ) dbCloseall() CopyFiles(aFuente,aDestino) MsgInfo("Respaldo efectuado. Revise siempre la integridad del respaldo") MisAreas() ENDIF return nil //----------------------------------------------------------------------------// ...

... no lo han hecho). No es mia, venia como ejemplo en FW //----------------------------------------------------------------------------// function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. ...

gracias;
Lo probé y allí solo muestra lo que tiene la clase por defecto
oAnimate:Search()
oAnimate:FindFile()
oAnimate:Locate()
oAnimate:CopyFiles()
oAnimate:CopyFile()
oAnimate:DelFile()
oAnimate:EmptyCan()
oAnimate:DestFile()

otra sugerencia?
Uso FW27

... local oBrush,cBrush:="Fondo1.BMP" local nClrTxt:= RGB(0,0,0) DEFAULT lTodo:=.f. DEFINE BRUSH oBrush FILENAME cBrush DEFINE DIALOG oDlg RESOURCE "CopyFiles" BRUSH oBrush TRANSPARENT ; TITLE "Creando ficheros indices (Reindexando)" oAnimate = TAnimate():Redefine( 160, oDlg ) REDEFINE TSAYT oSay1 ...

... If !SiNo(CRLF+CRLF+"Directorio "+destino+" ya existe. ¿Lo sobre-escribe?","Esta Seguro?") return nil endif else lmkDir(Destino) endif dbCloseall() CopyFiles( { cPathDef+"\WMDATA.DBF",; cPathDef+"\proceso.dbf",; cPathDef+"\wcont32.ini" },; { DESTINO+"\WMDATA.DBF",; destino+"\proceso.dbf",; destino+"\wcont32.ini" ...

hi. Lore yo lo utilizo sin problemas cuando indexo mis archivos,,, oAnimate:CopyFiles() _tipoDeAnimacion(oAnimate,4) oAnimate:Play() * aqui mi proceso oAnimate:stop() function _tipoDeAnimacion( oAnimate, nAvi ) do case case nAVI == 1 oAnimate:Search() case nAVI ...

... AppName = "Test" InstallDir = "\Test" [SourceDisksNames] 1 = , "Common Files",,C:\Projects\Test [SourceDisksFiles] Test.Exe = 1 [DefaultInstall] CopyFiles = CopyToTest AddReg = RegData CEShortcuts = Shortcuts [DestinationDirs] CopyToTest = 0, %InstallDir% Shortcuts = 0, %CE11% [CopyToTest] "Test.Exe", ...

... = "\YourInstallDir" [SourceDisksNames] 1 = , "Common Files",,FullPathForPcExeFile [SourceDisksFiles] YourExeFile.Exe = 1 [DefaultInstall] CopyFiles = CopyToYourProg AddReg = RegData CEShortcuts = Shortcuts [DestinationDirs] CopyToYourProg = 0, %InstallDir% Shortcuts = 0, %CE11% [CopyToYourProg] ...