{{tag>category:"OpenInsight 32-Bit" author:"Martin Drenovac" author:"Bob Carten" author:"Richard Bright" author:"Warren Auyong" author:"Bryan Shumsky" author:"dsigafoos"}}

[[https://www.revelation.com/the-works|Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community]]


==== OLE_GET_WEBPAGE   - where's the code (OpenInsight 32-Bit) ====
=== At 18 DEC 2007 11:48:30PM Martin Drenovac wrote: ===
 
 
<QUOTE>
What's new in 8.0.3 states "Added OLE_GET_WEBPAGE with source as an example of using Microsoft Xmlhttp object"..



Ok, where is it? I've looked in SYSPROG and EXAMPLES?



Thanks
</QUOTE>
----

=== At 19 DEC 2007 09:26AM Bob Carten wrote:  ===

<QUOTE>



Source should be in SYSPROG

I meant to ship it; must've been stripped out by the build tools







See Below



Note: I tend to use [url=http://msdn2.microsoft.com/en-us/library/ms766431.aspx]MsXml2.ServerXmlHttp[/url] because it has the ability to send logon credentials.  











pre.code {

   background-color: #E5E5E5;

   border: 1px solid #000000;

   width: 640px;

   padding: 5px;

   font-family: courier, verdana, arial, serif;

   margin: 0px 10px auto;

}




<code>

function Ole_GetWebpage(url, method, payload)

/*
** Wrapper around XMLHttp object
** Used by URLBFS
** Assumes Win2k or better, as MsXml2.ServerXmlHttp is part of MSXML3
**
** 07-07-07 rjc   Created
*/

if assigned(url) else url='
if assigned(method) else method='
if assigned(payload) else payload='

equ sync$ to 0
equ async$ to 1

convert @lower.case to @upper.case in method
if method=POST' else method=GET'
oHttp=OleCreateInstance('MsXml2.ServerXmlhttp')
x=oHttp-&gt;Open(method, url, sync$)
x=oHttp-&gt;Send(payload)
html=oHttp-&gt;ResponseText

return html

</code>


</QUOTE>

----

=== At 19 DEC 2007 09:16PM Richard Bright wrote:  ===

<QUOTE>Uh, 

Does this constitute #923 in bug tracker read? 

</QUOTE>

----

=== At 20 DEC 2007 12:07AM Martin Drenovac wrote:  ===

<QUOTE>Boom Boom!! - I'll do that in future. 



I've not had the exposure for subtlety until now - Thank you Richard...Read BUGS register before whining.

</QUOTE>

----

=== At 20 DEC 2007 12:16AM Warren Auyong wrote:  ===

<QUOTE>"The squeaky wheel gets the grease"



Merely reading the bug tracker wouldn't have gotten you the code :)

</QUOTE>

----

=== At 20 DEC 2007 04:21AM Martin Drenovac wrote:  ===

<QUOTE>Bob - thanks very much,



What's URLBFS?

</QUOTE>

----

=== At 20 DEC 2007 06:08AM Richard Bright wrote:  ===

<QUOTE>We are all (that is, those that where waiting for it with baited breath) grateful to get the code.  

What I had meant, was that presumably Bob could mark the bug report off as having been read.  But as usual it is foot in mouth - but Martin is forgiving of lesser cousins.

</QUOTE>

----

=== At 20 DEC 2007 11:54AM Bob Carten wrote:  ===

<QUOTE>

thanks for that Richard.



URLBFS is a bfs which can read and write to a url.

Only read and write are supported.

It is a VERY simple implementation.  Write will just POST the record to the website, the website must know how to deal with it.



In 8.03 system monitor try



run ATTACH_TABLE 'URL'

run read_row "http://www.revelation.com"









</QUOTE>

----

=== At 20 DEC 2007 01:37PM Bryan Shumsky wrote:  ===

<QUOTE>What I believe Bob _meant_ to say as an example was:



RUN ATTACH_TABLE "URL"

RUN READ_ROW "URL", "http://www.revelation.com"



(Note the specification of the 'table' URL, while the 'item id' is the actual website to read or 'write' to)



As an aside, in addition to implementing a URL BFS, we also (re-)implemented a DOS BFS.  So for example:



RUN ATTACH_TABLE "DOS"

RUN READ_ROW "DOS","C:\TEST.TXT"



For the DOS BFS, you can use either the table name "DOS" or "DOSTXT". The DOS table reads/writes records to the filing system in a "raw" format, while the DOSTXT table reads/writes records after converting @FM to cr/lf (and vice versa).  You can even "read" directory information by specifying a directory path (with or without file specs) as the "record" to read, as in:



RUN READ_ROW "DOS","C:\*.TXT"



- Bryan Shumsky

Revelation Software

</QUOTE>

----

=== At 20 DEC 2007 02:36PM dsigafoos wrote:  ===

<QUOTE>BFS BFS .. those other mv guys are really missing the boat 

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=WORKS_READ&SUMMARY=1&KEY=1C185235C163E4DB852573B6001A69D2|View this thread on the Works forum...]]