ProgressBar

[carlos]

Hola a Todos.
Quisiera mostrar un Progreso de una barra mientras leo la tasa de cambio de
una pagina de internet.
lo que tengo como codigo es esto, si alguien me puede ayudar, estare muy
agradecido.
//---------------------------------------------------------- --------------------
METHOD BajarTC( oSender ) CLASS TPrincipal
LOCAL cURL, DC1, DV1, cDoc, cDoc1, oDoc, oBody
LOCAL hData, dc, dv
LOCAL cData
LOCAL cError, oIE *::hWnd := GetActiveWindow()
TRY
::oStatusBar1:aItems[2]:cText := "Importamdo Tasa de Cambio"
::oPrgBar:nMin := 1
::oPrgBar:lvisible := .T.
oIE := TOleAuto():New( "InternetExplorer.Application") //
CreateObject( "InternetExplorer.Application" )
cURL := " http://www.bancomer.com.mx/casadebolsas ... a_main.asp"
oIE:Navigate2( cURL ) //"http://www.google.com" )
WHILE oIE:Busy
::oPrgBar:nValue := Seconds()
ProcessMessages()
END
TCursor():Create(IDC_APPSTARTING)
oDoc := oIE:Get( "Document" )
WITH OBJECT oDoc
oBody := :Get( "Body" )
cData := oBody:Get("InnerText")
cDoc := ALLTRIM(SUBSTR(cData,AT("Dólar C", cData)),15)
cDoc1 := ALLTRIM(SUBSTR(cData,AT("Dólar V", cData)),15)
DC := HB_RegexSplit( ">", cDoc )
DV := HB_RegexSplit( ">", cDoc1 )
DC1 := Substr(AllTrim(DC[1]),14,6)
DV1 := Substr(AllTrim(DV[1]),13,6)
AppData:nDCompra := DC1 //::oMkCompra:Value
AppData:nDVenta := DV1 //::oMkVenta:Value
TCursor():Create(IDC_ARROW)
::oPrgBar:lvisible := .f.
::oStatusBar1:aItems[2]:cText := ""
END WITH
oIe:Quit()
CATCH cError
MsgStop( "¡Error!, al Abrir la Pagina. Teclee el Tipo de Cambio " )
oIe:Quit()
Return .F.
END
RETURN Nil
Saludos

[carlos]

Definitivamente, nadie me puede decir?
Saludos nuevamente
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
news:[email=4654d433@ozsrv2.ozlan.local...]4654d433@ozsrv2.ozlan.local...[/email]
> Hola a Todos.
>
> Quisiera mostrar un Progreso de una barra mientras leo la tasa de cambio
> de una pagina de internet.
>
> lo que tengo como codigo es esto, si alguien me puede ayudar, estare muy
> agradecido.
>
> //---------------------------------------------------------- --------------------
> METHOD BajarTC( oSender ) CLASS TPrincipal
> LOCAL cURL, DC1, DV1, cDoc, cDoc1, oDoc, oBody
> LOCAL hData, dc, dv
> LOCAL cData
> LOCAL cError, oIE *::hWnd := GetActiveWindow()
> TRY
> ::oStatusBar1:aItems[2]:cText := "Importamdo Tasa de Cambio"
> ::oPrgBar:nMin := 1
> ::oPrgBar:lvisible := .T.
> oIE := TOleAuto():New( "InternetExplorer.Application") //
> CreateObject( "InternetExplorer.Application" )
> cURL :=
> " http://www.bancomer.com.mx/casadebolsas ... a_main.asp"
> oIE:Navigate2( cURL ) //"http://www.google.com" )
> WHILE oIE:Busy
> ::oPrgBar:nValue := Seconds()
> ProcessMessages()
> END
> TCursor():Create(IDC_APPSTARTING)
> oDoc := oIE:Get( "Document" )
> WITH OBJECT oDoc
> oBody := :Get( "Body" )
> cData := oBody:Get("InnerText")
> cDoc := ALLTRIM(SUBSTR(cData,AT("Dólar C", cData)),15)
> cDoc1 := ALLTRIM(SUBSTR(cData,AT("Dólar V", cData)),15)
> DC := HB_RegexSplit( ">", cDoc )
> DV := HB_RegexSplit( ">", cDoc1 )
> DC1 := Substr(AllTrim(DC[1]),14,6)
> DV1 := Substr(AllTrim(DV[1]),13,6)
> AppData:nDCompra := DC1 //::oMkCompra:Value
> AppData:nDVenta := DV1 //::oMkVenta:Value
> TCursor():Create(IDC_ARROW)
> ::oPrgBar:lvisible := .f.
> ::oStatusBar1:aItems[2]:cText := ""
> END WITH
> oIe:Quit()
> CATCH cError
> MsgStop( "¡Error!, al Abrir la Pagina. Teclee el Tipo de Cambio " )
> oIe:Quit()
> Return .F.
> END
> RETURN Nil
> Saludos
>
>
>