XProfan

English

Roland has to that X11-pkg one demonstration QueryInterface.prf settled.

I have Uwes [...]

ocxPackages benefit want circa a bridge between the X11-htmlWin to that ocx To hit, gelang me but not.

it gelang me neither with the ocxPackage a https Page to open.

in short: i want whom of Browser begot View source of/ one https Page read How z.B. this: [...]

objectively have I it a low-down Workaround with urlDownloadToFileA hinbekommen because I JavaScripts the Page in a normal by http erreichbare Page stored have. The Browser calls then The by https erreichbaren Scripts ex - lead these from - and urlDownloadToFileA läd then whom begot HTML. If File however pub stored is, then functions the ploy not any more - what about me would like on a Hilfsseite dispense.

Since I of OCX & Co. no idea have Please I circa Help.

03/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

here one View source (Presentation of Roland) which The Page already correctly läd and shows, I only not on whom HTML heran come: [...]

03/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

have me until Document&,body durchgearbeitet and see by ocxBrowse() the one get innerHTML possible would - which at testing however by me only Abstürze causes - Perhaps because behind the interface-Pointer no Objekt standing heul...

03/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

it shining me the by the log https modes or properties not normal abrufbar are...

03/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

I can me well of Document To to quality bgcolor hangeln, but alike I with bgcolor eingebe - h& is always 0 NULL. give I however one not vorhandenes Attribut one then appear Correctly a Error Message.
Compile Mark Separation

var Document&=ocxGet(WebObject&,Document)klappt
var body&=ocxGet(Document&,body)klappt
var h&=ocxGet(body&,bgcolor)klappt nicht :(re>

03/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

its me been successful, I need Perhaps then still no Help More.

Compile Mark Separation

--Alle Links einer Webseite auflisten
--Es könnten noch weitere Eigenschaften (ID, Target usw.) ermittelt werden
window 10,100-780,400
 $H Windows.ph
 $H ocx2.ph
 $I ocx2.inc
 $I HtmlExtra.inc
 $I ocxinfo.inc
ocxInit()
cls
print jo
declare WebControl&
var WebObject&=ocxCreate(https://seite,%hwnd,500,10,250,100,$50800000,addr(WebControl&))

whilenot %mousekey

    sleep 50
    setText %hWnd,Läd: +ocxget(WebObject&,readystate)

endwhile

while %mousekey

wend

var Document&=ocxGet(WebObject&,Document)
var collection&=ocxGet(Document&,Body)
print ocxGet(collection&,innerHTML)
waitinput
end

The Source läd The Page and gives whom gerenderten HTMLText back. The crux: first after itself the ReadyState on 4 eingepegelt has - the must one well mind... (sure because here the Server The data chunked übermittelt)

The Vorlagen of UWE and the Include and the Headfile are simply large class - thanks Uwe!

of course could I yet The bridge of Uwes Include to that XProfan11schen htmlWIN not hit - but the get sure someone there the itself with the matter auskennt.

03/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

this Thread reminds one little on diverse AH-Threads...

...therefore texts I something in between...

03/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Yes, me too lol.

03/26/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Frank Abbing

this Thread reminds one little on diverse AH-Threads...

...therefore texts I something in between...

LOL on it felt I too reminds, with the Difference, that here no geheimnisvolles Geraune over not To postenden code auftaucht, separate nutzbarer View source!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

03/27/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

here a revised ocx2.ph (2 small Syntaxfehler removes) and XProfan 11 adjusted ocx2.inc and a example (around the it me solely went) which whom Body one html Dokumentes over https (mgl. SSL) abruft.

ocx.zip	566 kB

Hochgeladen:	03/27/08

Downloadcounter:
		Download

03/27/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Uwe
''Pascal''
Niemeier

Hello people!

Erstmal dank on iF for flowers

The Brückenschlag between XProfan11 and ocx should eigendlich so looks (ungetestet):
Compile Mark Separation

ocxInit()
var WebControl&=create(HTMLWin,%hwnd,www.xprofan.de,1,10,10,500,500)
var WebObject&=HTMLWin(QueryInterface,WebControl&)
var Document&=ocxGet(WebObject&,Document)pre>

or.
Compile Mark Separation

ocxInit()
declare WebControl&
var WebObject&=ocxCreate(about:blank,%hwnd,10,10,500,500,$50800000,addr(WebControl&))
HTMLWin(GoHome,WebControl&)pre>

so far I the see, ought to one Access to everything catch, what in the WebBrowser-Window displayed becomes, too ifs zB. over Scripts to Laufzeit created becomes. hairy becomes it though, if Frames include are, because each of them one own Document-Object contains.
but there can itself on diversen JavaScript-Codes orientieren, everybody can then to Profan portieren can.

BTW: I work already with the next ocx-Version, with the one Fehlermeldungen suppress can. will be with opportunity from it one new Package truss

PS: Have straight seen, I me yet not at all with Roland bedankt have for its interface-example...
the fetch I herewith to!
The Idea, one interface in a structure To transfer is genial! what about me Have me with Dutzenden(!) selbstdefinierter Header rumgeschlagen...

PPS: The asynchronen Ladefunktionen having me meanwhile already nerves cost[ed]...

SeeYou
Pascal

03/27/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

I have The Fehlermeldungsmessagebox simply ausgeklammert circa without Messagebox Verify to whether document.body.innerHTML already befüllt is - z.B. with .

sure is it too only then so tricky if in the Header Transfer-Encoding: chunked definiert is and so the Server The File häppchenweise to that Client brabbelt.

i am pleased definitiv on your OCX3.ZIP.

Compile Mark Separation

def $endZeit 22:30
def $appTitle myShutdown 0.1
var h&=findWindow($appTitle)

if h&

    sendMessage(h&,16,0,0)
    end

endif

windowStyle 16 | 1 | 2 | 4 | 8
windowTitle $appTitle
cls
useIcon knopf1
userMessages 16
setTimer 10000
mcls 42,16

while 1

    startPaint -1
    cls 0
    useFont Courier,10,0,0,0,0,0
    textColor $FFFFFF,.1
    drawText 0,0,time$(0)
    endPaint
    mCopySizedBmp 1,1 - 39,11 > 0,0 - width(%hWnd),height(%hWnd);0
    waitInput
    case %uMessage=16 : break

    if %wmTimer

        if time$(0)=$endZeit

            exitWindows 6
            break

        endif

    endif

wend

killTimer
end