oBrowser field $data

[Michael Mantkowski]

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.

Michael

On evBrowserLoadStateChange
If not(['pLoading'])
If ivColorIntensity=1     ;; Use Lighter Icons
Calculate $cinst.$objs.Back.$enabled as
pick($cinst.$objs.OBrowser.$cangoback<>0,72446,72441)
Calculate $cinst.$objs.Forward.$enabled as
pick($cinst.$objs.OBrowser.$cangoforward<>0,72447,72442)
End If
Calculate $cinst.$objs.Back.$enabled as $cinst.$objs.OBrowser.$cangoback
Calculate $cinst.$objs.Forward.$enabled as
$cinst.$objs.OBrowser.$cangoforward
If
($cinst.$objs.OBrowser.$currenturl>'')&(ivURLCurrent<>$cinst.$objs.OBrowser.
$currenturl)
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
Breakpoint
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
1-614-875-2245
*********************************************************************


-----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.

Mike

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>

www.lineal.co.uk<http://www.lineal.co.uk/>

www.sqlworks.co.uk<http://www.sqlworks.co/>



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

Kelly
_____________________________________________________________
Manage your list subscriptions at
https://linkprotect.cudasvc.com/url?a=https%3a%2f%2flists.omnis-dev.com&c=E,
1,PrmpU85wVuMGxialpv4Fx4gZqTEd5JDMJ1lerWhg4bIR_rMnSrRD3uiQouYkuTLK8rVqTbXI1Y
pjXBC0rySv3Oox_hQNgbn8yZvtrSaCLVYnZzwMoA,,&typo=1
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