Function ver_update
local oHttp, oExe, oEmpresa, oExecutavel, oUrl, oTamanho, oProgress
use mat shared alias mat
go top
oEmpresa:= alltrim(mat->update)
oExecutavel:= alltrim(mat->executavel)
close mat
oUrl := "http://www.gsinformatica.inf.br/"+oEmpresa+"/"+oExecutavel
oHttp:= TipClientHttp():New( "http://www.gsinformatica.inf.br/"+oEmpresa+"/"+oExecutavel )
oHttp:open()
oExe := oHttp:readAll()
oHttp:close()
MemoWrit(oExecutavel,oExe)
EXECUTE FILE oExecutavel
Main.release
Return
Agora quero colocar uma barra de progresso neste download, mas não faço a minima ideia de como implementar.
Desde ja agradeço qualquer ajuda.