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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
TInternet:WriteFile
TInternet:WriteFile
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
>
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
>