FiveTech Software tech support forums

... FUNCTION _XmlQuery()

local cURL := "https://xxx.com/token" , ;
cSaveAs := "c:\winapps\onasset\xml\inbox\" , ;
lPass := .F. , ;
oProg := 0 , ;
cHttpSend2 := "" , ;
oHttp2 , ;
cHttpSend3 := "" , ;
oHttp3 , ;
cWinResp := "" , ;
cTokenId := "" , ;
cDateFrom := "" , ;
cDateTo ...

... Tengo una aplicaciòn con opcion de Copias de Respaldo, con la siguiente linea

lOk:= HB_ZipFile( cNameZip, aFile, 9,{|x,i| PINTAR(i, nLast, oProg) } ,;
TRUE, cCodAlm, TRUE, FALSE ) //, pFileProgress )

donde cCodAlm es una variable alfanumerica de 3 digitos que constituye el password

ahora ...

... msgrun.prg

Antonio, muchas gracias. He revisado el código de la siguiente manera:

static function fTimer( cMsg, bAction, nInterval )
local oDlg, oProg, oTmr

DEFINE DIALOG oDlg TITLE cMsg
@ 2, 3 PROGRESS oProg POSITION 0 SIZE 120, 10
oDlg:bStart = { || WaitRun(bAction, 0), oDlg:End ...

... lo consigo. He puesto en el ON INIT un codeblock, pero no marcha.

Este es el código de la función:

static function fTimer( cFile )

local oDlg, oProg, oTmr

DEFINE DIALOG oDlg TITLE "Conexión dispositivo"
@ 1, 3 PROGRESS oProg POSITION 0 SIZE 120, 10
@ 2.5, 10 BUTTON "Conectar" ACTION (WaitRun ...

Hi Ramesh,

I use xHarbour Builder Sep. 2008 and FWH 8.10.

IF wfSaveURL(cURL, cSaveAs, oProg, nFileSize)
... File is there AND downloaded as cSaveAs

You are right. It should be.

Yes oProg is a Progress Bar object. like


@ 80, 010 PROGRESS oProg POSITION 0 SIZE 212, 12 ...

Hello Mr.Horizon

A Small correction :


IF wfReadURL(cURL, cSaveAs, oProg, nFileSize)
... File is there AND downloaded as cSaveAs


should be


IF wfSaveURL(cURL, cSaveAs, oProg, nFileSize)
... File is there AND downloaded as cSaveAs


And oProg ...

... of the total number of indexes. Also you have defined the range as 0-100. So, try this--take out the first two lines and add the last line.

// oProg:StepIt()
// oProg:nPosition += nPercent
oProg:setPos( nPercent )

Regards,
James

Mr.James's solution solved my problem.

But now another ...

... looks like the nPercent you are calculating is the percent of the total number of indexes. Also you have defined the range as 0-100. So, try this--take out the first two lines and add the last line.

// oProg:StepIt()
// oProg:nPosition += nPercent
oProg:setPos( nPercent )

Regards,
James

@ 0.3, 0.3 PROGRESS oProg POSITION nValue SIZE 80, 12 OF oStatusBar

... sistema\progres.prg(9) Error E0030 Syntax error: "parse error at '@'"

este es el ejemplo :

#include "fivewin.ch"

function Mainp()

local oDlg, oProg, nValue := 30, oProg2, nValue2 := 20

DEFINE DIALOG oDlg resource "ODLG_browali" TITLE "Progress Bars"

linea 9 @ 1, 1 PROGRESS oProg POSITION ...