Posted: Tue Aug 26, 2008 3:39 pm
Function FeedPuching( cURL )
local oHyperlink
oHyperlink :=CreateObject( "Microsoft.XmlHttp" )
oHyperlink:Open( "GET", cURL, .F. )
oHyperlink:Send( "" )
cResponseText := oHyperlink:ResponseText
oHyperlink:end()
return cResponseText
it is write ?
it make error
Application
===========
Path and name: C:\work\errori\feedrss\feedrss.Exe (32 bits)
Size: 1,414,144 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 08/26/08, 17:38:34
Error description: Error Microsoft.XmlHttp/16389 E_FAIL: END
Args:
Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:END(0)
Called from: feedrss.prg => FEEDPUCHING(210)
Called from: feedrss.prg => (b)FEEDLOADERARRAY(120)
Called from: MSGRUN.PRG => (b)MSGRUN(0)
Called from: DIALOG.PRG => (b)TDIALOG:TDIALOG(0)
Called from: => TDIALOG:DISPLAY(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOXINDIRECT(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: MSGRUN.PRG => MSGRUN(0)
Called from: feedrss.prg => FEEDLOADERARRAY(120)
Called from: feedrss.prg => FEEDREADER(33)
Why not re - pubblish the good source code here thanks
local oHyperlink
oHyperlink :=CreateObject( "Microsoft.XmlHttp" )
oHyperlink:Open( "GET", cURL, .F. )
oHyperlink:Send( "" )
cResponseText := oHyperlink:ResponseText
oHyperlink:end()
return cResponseText
it is write ?
it make error
Application
===========
Path and name: C:\work\errori\feedrss\feedrss.Exe (32 bits)
Size: 1,414,144 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 08/26/08, 17:38:34
Error description: Error Microsoft.XmlHttp/16389 E_FAIL: END
Args:
Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:END(0)
Called from: feedrss.prg => FEEDPUCHING(210)
Called from: feedrss.prg => (b)FEEDLOADERARRAY(120)
Called from: MSGRUN.PRG => (b)MSGRUN(0)
Called from: DIALOG.PRG => (b)TDIALOG:TDIALOG(0)
Called from: => TDIALOG:DISPLAY(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOXINDIRECT(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: MSGRUN.PRG => MSGRUN(0)
Called from: feedrss.prg => FEEDLOADERARRAY(120)
Called from: feedrss.prg => FEEDREADER(33)
Why not re - pubblish the good source code here thanks