topic-22109

Posts: 10

Joined: Sun Aug 07, 2011 07:24 PM

Uso de DropBox

Posted: Sun Aug 07, 2011 09:50 PM

Hola amigos del foro

Estoy utilizando actualmente DropBox el cual me abre una espacio de 2Gb en una nube de datos en Internet para guardar cualquier tipo de informacion. Actualmente lo he utilizado para hacer los BackUp del sistema y me funciona bastante bien, a los clientes les ha gustado mucho la idea de poder almacenar en forma automatica la informacion en Internet.

He colocado asi mismo, un archivo de tipo TXT en la carpeta publica de DropBox el cual por medio del siguiente link http://dl.dropbox.com/u/32952686/EVOLUTIO/VERSION.txt puede ser abierto por el sistema
Me interesa saber de que forma puedo abrir dicho archivo desde el programa y leer su contenido ???
Actualmente usando INTERNET("http://dl.dropbox.com/u/32952686/EVOLUTIO/VERSION.TXT") el explorador me muestra el contenido del archivo, lo que deseo es recuperar el valor de Version.... si es posible como se utiliza GetPvProfString()

PROCEDURE INTERNET(URL)
LOCAL oIE
URL:=ALLTRIM(URL)
oIE:=TOleAuto():New( "InternetExplorer.Application" )
oIE:Visible := .T.
oIE:Invoke("Navigate", URL)
RETURN

Gracias por la ayuda

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: Uso de DropBox

Posted: Mon Aug 08, 2011 12:09 PM

Try this

Code (fw): Select all Collapse

oHTTP = CREATEOBJECT('WinHttp.WinHttpRequest.5.1')
WITH OBJECT oHttp
    :Open("GET", "http://dl.dropbox.com/u/32952686/EVOLUTIO/VERSION.TXT")   
    :Send()
    MsgInfo(:ResponseText)
    // MemoWrit("response.txt",:ResponseText ) If you need you can write the contents to a text file
END

You can filter the required data (version) from oHttp:ResponseText

Regards

Anser

FiveTech Support Forums

Uso de DropBox

Re: Uso de DropBox

Continue the discussion