Xailer & OZ Software

Hola: necesito escribir en un archivo en internet, el ejemplo de lectura
anda muy bien pero intento con TInternet:WriteFile y no lo logro, sera algun
flag del :OpenURL
LOCAL hData
LOCAL cData
WITH OBJECT TInternet():New( Self )
IF :Open()
IF !Empty( hData := :OpenURL(
"http://www.metrico.com.ar/pru.txt" ) )
cData := ::oMemo1:Value
IF :WriteFile( hData, cData, 65536 )
Msginfo("Ok")
ENDIF
:CloseURL( hData )
ENDIF
:Close()
ENDIF
END
Gracias, un saludo.
--
Rolando Sarrailh
Teléfono,
internacional +54-221-489-1480
nacional 0221-489-1480
local 489-1480
rsarrailh@gmail.com

Rolando,
Es poco probable que puedas escribir directamente via HTTP en un servidor
remoto ya que logicamente deberías estar autentificado, por eso, normalmente
todas las actualizaciones de las páginas Web se hacen vía FTP. Microsoft se
invento las extensiones de FrontPage para poder hacer actualizaciones en la
web que supongo utilizaran el protocolo HTTP pero no lo se a ciencia cierta.
Un saludo,
"Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
news:[email=452e4da3@news.xailer.com...]452e4da3@news.xailer.com...[/email]
> Hola: necesito escribir en un archivo en internet, el ejemplo de lectura
> anda muy bien pero intento con TInternet:WriteFile y no lo logro, sera
> algun flag del :OpenURL
>
>
> LOCAL hData
> LOCAL cData
>
> WITH OBJECT TInternet():New( Self )
> IF :Open()
> IF !Empty( hData := :OpenURL(
> "http://www.metrico.com.ar/pru.txt" ) )
> cData := ::oMemo1:Value
> IF :WriteFile( hData, cData, 65536 )
> Msginfo("Ok")
> ENDIF
> :CloseURL( hData )
> ENDIF
> :Close()
> ENDIF
> END
>
> Gracias, un saludo.
> --
> Rolando Sarrailh
> Teléfono,
> internacional +54-221-489-1480
> nacional 0221-489-1480
> local 489-1480
> rsarrailh@gmail.com
>