oBrowser field $data

Michael Mantkowski michaelj at clientrax.com
Wed Nov 15 12:36:46 UTC 2023

Hi Mike,

Does this help you?  I have this in my $event method and I believe the part
about calculating "ivResponseText" is for doing what you're looking for.  I
wrote this several years back and just did not have time this morning to go
over it to be sure what is going on.  But I know that I have needed to look
at what is in the page I am looking at to decide on next actions.  So, this
might be it.

Sorry if I am wasting your time and this misses the mark.


On evBrowserLoadStateChange
If not(['pLoading'])
If ivColorIntensity=1     ;; Use Lighter Icons
Calculate $cinst.$objs.Back.$enabled as
Calculate $cinst.$objs.Forward.$enabled as
End If
Calculate $cinst.$objs.Back.$enabled as $cinst.$objs.OBrowser.$cangoback
Calculate $cinst.$objs.Forward.$enabled as
Calculate ivURLCurrent as $cinst.$objs.OBrowser.$currenturl
Calculate ivURLDisplayed as ivURLCurrent
Redraw {ivURLDisplayed}
If pos('?code=',ivURLCurrent)
Calculate ivResponseCode as '200 OK'
Calculate ivResponseText as ivURLCurrent
Queue cancel
End If
End If
If pos('///',pURL)=0
Calculate $cinst.$objs.OBrowser.$left as 0
End If
If pos('/ui/done',$cinst.$objs.OBrowser.$currenturl)>0
;  Clicked the Idexx Order Button - v3 Integration - Close Browser Window
Queue cancel
End If
If pos('navigationComplete.jsf',$cinst.$objs.OBrowser.$currenturl)>0
;  # # Clicked the Idexx Close Button - Close Browser Window
Queue cancel
End If
Calculate ivResponseText as $cinst.$objs.OBrowser.$currenturl
End If

On evBrowserOpenUrl
Do $cinst.$objs.OBrowser.$urlorcontrolname.$assign(pURL)

Michael Mantkowski
ClienTrax Software

-----Original Message-----
From: omnisdev-en On Behalf Of Mike Matthews - Omnis via omnisdev-en
Sent: Wednesday, November 15, 2023 6:49 AM
To: OmnisDev List - English <omnisdev-en at lists.omnis-dev.com>
Cc: Mike Matthews - Omnis <omnis at lineal.co.uk>
Subject: Re: oBrowser field $data

Hello Kelly,

I have thought about this, but the sticking point is I only want to do an
action if the page has certain info.  So a double fetch is not really the
answer, but a last resort.


Lineal Software Solutions
Commercial House, The Strand<x-apple-data-detectors://1/1> Barnstaple,
Devon, EX31 1EU<x-apple-data-detectors://1/1>

omnis at lineal.co.uk<mailto:mike.matthews at lineal.co.uk>



On 15 Nov 2023, at 02:57, Kelly Burgess
<kellyb at montana.com<mailto:kellyb at montana.com>> wrote:

Caution: This is a message which has originated from outside the
organisation. Ensure the sender is trusted and the content is safe before
opening links or attachments.

Hi Mike,

This isn't getting it directly from the oBrowser, but if what you want is
worth another fetch....

       HTTPPage ($cinst.$objs.xBrowser.$urlorcontrolname) Returns htmlText
## get the page
       Calculate htmlText as mid(htmlText,pos(chr(13,10,13,10),htmlText)+4)
## strip the headers

Manage your list subscriptions at
Start a new message -> mailto:omnisdev-en at lists.omnis-dev.com

Manage your list subscriptions at https://lists.omnis-dev.com Start a new
message -> mailto:omnisdev-en at lists.omnis-dev.com 

More information about the omnisdev-en mailing list