XProfan

Uwe ''Pascal'' Niemeier (30.11.11)

- Seite 4 -

@ iF: Die Sache mit der Listbox wäre so eine Art Stack?

Genau!

Uwe ''Pascal'' Niemeier (30.11.11)

Allerdings sind die im VARIANT-Array übergebenen Parameter nur während des Aufrufes von Invoke gültig...

Schon klar -

vlt. einfach den Wert in die Listbox kopieren.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

30.11.2011 ▲

- Seite 5 -

Uwe
''Pascal''
Niemeier

Hi Leute!

Anbei eine neue Version, die - trotz Fastmode 0 - anscheinend stabil läuft; selbst wenn man im Hauptprogramm Timer verwendet.
Habe den ASM-Anteil nochmal überarbeitet; es ist jetzt ein Busy-Flag drin, die Auswertung erfolgt dabei immer noch über eine Profan-Proc.
Vereinfachen könnte man vielleicht noch den Zugriff auf die VARIANT-Werte wegen der teilweise mehrfach indirekten Adressierung.

@Andreas: Mit der ZDF-Seite habe ich arge Probleme

Selbst ein MiniBrowser, der nur aus einem "nackten" HTMLWin besteht, schmiert nach wenigen Klicks ab. Nach mehreren Versuchen gab es sogar einen "schweren Systemfehler" mit anschließendem Neustart - wußte gar nicht, daß es sowas gibt...

Wer's testen will:
Kompilieren Markieren Separieren

window %maxx,%maxy
var Url$="https://www.zdf.de/ZDFmediathek/hauptnavigation/startseite/#/hauptnavigation/startseite"
var WebControl&=create("HTMLWin",%hwnd,Url$,1,10,10,width(%hwnd)-20,height(%hwnd)-20)

while 1

    waitinput

endwhile

Im Zweifelsfall vielleicht aktive Inhalte generell über die Sicherheitsoptionen blockieren?

SeeYou
Pascal

browser3.zip	3 kB

Kurzbeschreibung:	Links im gelichen Fenster öffnen

Hochgeladen:	01.12.2011

Ladeanzahl:
		Herunterladen

01.12.2011 ▲

AndreasS

Hallo Pascal,
schön das du wieder "Gerackert" hast

Das ZDF-Problem habe ich nun global gelöst, läuft aber noch etwas haklig. Ich unterbinde einfach den Aufruf von Fenstern die außerhalb des eigenen Progs zum "laufen kommen wollen". Teste als nächstes natürlich deine NEWS.

Bis bald
Andreas

01.12.2011 ▲

AndreasS

Hallo Pascal,
und hier schon das Ergebnis:
Seltsamerweise hat die Geschwindigkeit ganz schön gelitten. Nach dem Rückkehren aus dem Vollbildmodus kann man das Browserfenster jedoch nur noch mit einem Systemabsturz beenden.
Wat nu ?

LG
Andreas

01.12.2011 ▲

Uwe
''Pascal''
Niemeier

Hi Andreas!

Das ZDF-Problem habe ich nun global gelöst, läuft aber noch etwas haklig. Ich unterbinde einfach den Aufruf von Fenstern die außerhalb des eigenen Progs zum "laufen kommen wollen".

Nach dem Rückkehren aus dem Vollbildmodus kann man das Browserfenster jedoch nur noch mit einem Systemabsturz beenden.

Vollbildmodus zeigt aber doch, daß du immer noch mit Flash zugange bist. Und da scheint es grundsätzliche Probleme unter Profan zu geben.
Hast du die betroffenen Seiten mal mit dem oben geposteten Minicode getestet? Wenn's nämlich da schon klemmt...
Mich würde viel mehr interessieren, wie sich Browser3 bei "normalen" Webseiten verhält...

BTW: Aus gutem Grund habe ich normalerweise aktive Inhalte im IE blockiert; von solchen Spielereien wie Flash oder Shockwave halte ich persönlich nicht viel. Wenn's denn sein muß, verwende ich für sowas FF.

SeeYou
Pascal

02.12.2011 ▲

AndreasS

Moin,moin Pascal,

Browser3 habe ich nun ca. 3 Stunden mit allen möglichen Seiten konfrontiert. Hier das Ergebnis für Win7 64bit:
-keine Abstürze
-Problem bei goback wenn Flash ins Spiel kommt (Seiten werden übersprungen)
-Probleme mit z.B.:
www.ardmediathek.de/ard/servlet/content/3517136?documentId=8915056
prinzipiell wird pro Windowssitzung nur ein Film im Flashformat angezeigt, danach nur noch als Miniatur im Flashfenster oben links. Startet man Windows neu, hat man wieder die Chance.

So, das wars vorerst, meld mich natürlich wieder.

Bye
Andreas

02.12.2011 ▲

Uwe
''Pascal''
Niemeier

Hi Leute!

Pascal

Vereinfachen könnte man vielleicht noch den Zugriff auf die VARIANT-Werte wegen der teilweise mehrfach indirekten Adressierung.

Hier mal umgesetzt zum Selbsteinbau; nebenbei werden nun auch die Menüpunkte Vor und Zurück bei Bedarf blockiert.
Kompilieren Markieren Separieren

proc GetVar'---------------------------------------------------GetVar

    parameters Var&,Index%
    Var&=Var&+Index%*16'----Index in Array 0-basiert
    var vt%=long(Var&,0)'---Typ
    var Val&=long(Var&,8)'--Wert
    case vt%=~VT_BSTR:return stringw$(Val&,0)
    return Val&

endproc'-------------------------------------------------------------

proc InvokeProc'-------------------------------------------InvokeProc

    parameters DispID&,Var&
    '--------------------------------Bei Parametern umgekehrte Reihenfolge gegenüber Doku beachten!

    if DispID&=250'------------------DISPID_BEFORENAVIGATE2

        var Pointer&=GetVar(Var&,5)'--6. Parameter VT_VARIANT | VT_BYREF => Ergebnis: Pointer auf VT_VARIANT (Typ darin: VT_BSTR)
        Url$=GetVar(Pointer&,0)'------VT_BSTR => Ergebnis: String

        if NewWindow%'----------------Navigation blockieren: BEFORENAVIGATE2 wurde nach NEWWINDOW3 aufgerufen

            Pointer&=GetVar(Var&,0)'---1. Parameter VT_BOOL | VT_BYREF => Ergebnis: Pointer auf BOOL
            long Pointer&,0=~VARIANT_TRUE

        else'-------------------------Navigation wird ausgeführt

            sendmessage(%hwnd,5001,0,0)'--Nachicht an Hauptfenster: Url$ aktualisiert

        endif

    elseif DispID&=273'--------------DISPID_NEWWINDOW3

        NewUrl$=GetVar(Var&,0)'-------1. Parameter VT_BSTR => Ergebnis: String
        var Pointer&=GetVar(Var&,3)'--4. Parameter VT_BOOL | VT_BYREF => Ergebnis: Pointer auf BOOL
        long Pointer&,0=~VARIANT_TRUE
        NewWindow%=1
        sendmessage(%hwnd,5000,0,0)'--Nachicht an Hauptfenster: Linkumleitung angesprochen

    elseif DispID&=105'--------------DISPID_COMMANDSTATECHANGE

        var a&=GetVar(Var&,0)'--------1. Parameter VT_BOOL => Ergebnis: BOOL
        var b&=GetVar(Var&,1)'--------2. Parameter VT_I4 => Ergebnis: LONG
        case b&=1:enablemenu 102,not(a&)'--CSC_NAVIGATEFORWARD
        case b&=2:enablemenu 101,not(a&)'--CSC_NAVIGATEBACK

    endif

endproc'-------------------------------------------------------------

Andreas

-Problem bei goback wenn Flash ins Spiel kommt (Seiten werden übersprungen)
-Probleme mit z.B.:
www.ardmediathek.de/ard/servlet/content/3517136?documentId=8915056
prinzipiell wird pro Windowssitzung nur ein Film im Flashformat angezeigt, danach nur noch als Miniatur im Flashfenster oben links. Startet man Windows neu, hat man wieder die Chance.

Kann ich bestätigen. Aber wie gesagt: Mit Flash hat das profane WebControl generell Probleme; wenn überhaupt müßte sich RGH das mal ansehen...
Darum nochmal mein Vorschlag, auf aktive Inhalte zu verzichten (oder sicherzustellen, daß nur getestete Seiten geöffnet werden können; durch Erweiterung des BEFORENAVIGATE-Zweiges in der InvokeProc wäre
das relativ einfach zu realisieren).

Zu dumm: Je mehr Möglichkeiten es gibt, etwas zu tun, umso mehr Maßnahmen sind nötig, es zu unterbinden

SeeYou
Pascal

02.12.2011 ▲

AndreasS

Hallo Pascal,

zunächst einmal: Ich habe die neue Version nun mit ca. 1000 unterschiedlichen Seiten getestet und ein Problem tauchte nicht auf. Vielleicht kannst du mir aber noch bei meinem letzten Problem helfen ?
Ein anderes Prog mit folgender Sache:
Statt Bildbutton möchte ich gern Bilder als Schaltflächen verwenden. Soweit kein Problem. Allerdings kam ich auf die Idee, dies mit einem Rollovereffekt zu versuchen, heißt: Maus drauf Bild wird ausgetauscht, Mausklick Aktion, Maus runter Bild wird ausgetauscht. Feine Sache solang man mit Mausbereichen arbeiten kann. Aber: durch das Abfragen der Mausposition wird vielzuviel Prozessorleistung verbraucht und eine Waitinput-Funktion ist auch nicht mehr möglich. Gibt es eine Möglichkeit einen reinen Bildbutton (ohne Ränder) zu erstellen der auf Mausover,Mausklick und Mausout reagiert ?
So, vielleicht hast du oder ein Anderer ja ne Idee.
Bis bald

Andreas

Jörg
Sellmeyer

Am Besten, Du machst mal einen neuen Thread mit aussagekräftigem Titel auf und stellst dort Deine Frage neu. So wird das zu unübersichtlich.

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

AndreasS

Würde ich gern machen, aber das neue Thema hab ich mindesten schon 3 mal in der Eingangshalle hinterlegt und auch schon versucht eigenständig als neues Thema einzutragen. Nichts funktioniert.

Jörg
Sellmeyer

Ich hab's gerade getestet. Wenn nicht gerade mit Deinem Account was nicht stimmt, sollte es gehen.
Mach's nicht in der Eingangshalle. Einfach unter "Programmierung" - "XProfan".
Wenn das nicht klappt, muß David sich mal drum kümmern.

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