XProfan

Français

Wieder un Fundstück de Andreas Miete - diesmal à aktuelle Adresse/ URL eines HTMLWin-Controls auszulesen:

Andreas Miethe, URL=paules-pc-forum.de/forum/XProfan/127403-adresse-aus-htmlwin-auslesen-2.html#poste780106, ZEITPUNKT=10.04.2010, 11:19

Versuchs la fois hiermit. Ist un quelque chose abgewandelter Code de Uwe "Pascal" Niemeier.
Kompilieren Marque Séparation

 $H Windows.ph

proc StringToGUID'---------------Umwandlung String > globally unique identifier

    parameters GUID$,GUID&
    declare Temp$
    Temp$=space$(80)
    ~MultiByteToWideChar(1,1,addr(GUID$),-1,addr(Temp$),80)
    external("ole32","CLSIDFromString",addr(Temp$),GUID&)

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

proc WideToMultiOLE'------------------------------WideChar to MultiByte für OLE

    parameters Text&
    declare Size&,Text$
    Size&=external("oleaut32","SysStringLen",Text&)
    Text$=char$(Text&,0,Size&*2)
    Text$=substr$(Text$,1,"zz")
    Text$=translate$(Text$,"z","")
    external("oleaut32","SysFreeString",Text&)
    return Text$

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

proc WebInfo'------------------------------------------------------------------

    parameters WebCtrl&,Method%
    declare IID#,IUnknown&,IWebBrowser&,VTable&
    declare Text$,Text&
    dim IID#,16
    external("atl","AtlAxGetControl",WebCtrl&,addr(IUnknown&))
    StringToGUID("{D30C1661-CDAF-11d0-8A3E-00C04FC9E26E}",IID#)'--IID von IWebBrowser2
    VTable&=long(IUnknown&,0)'------------------------------------IVTable von IUnknown
    Call(long(VTable&,0),IUnknown&,IID#,addr(IWebBrowser&))'------IUnknown::QueryInterface
    Call(long(VTable&,8),IUnknown&)'------------------------------IUnknown::Release
    VTable&=long(IWebBrowser&,0)'---------------------------------IVTable von IWebBrowser2
    call(long(VTable&,Method%*4),IWebBrowser&,addr(Text&))
    Text$=WideToMultiOLE(Text&)
    Call(long(VTable&,8),IWebBrowser&)'---------------------------IWebBrowser2::Release
    dispose IID#
    return Text$

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

window 0,0-800,600
Var ende& = 0
Var URL$="https://www.ampsoft.eu"'-----------Pfad oder URL
Var Web&=create("HTMLWin",%hwnd,url$,0,0,0,800,600)

whilenot ende&

    Waitinput 100
    WindowTitle WebInfo(Web&,30)'----IWebBrowser2::get_LocationURL

EndWhile

destroywindow(Web&)
f='./../../funktionsreferenzen/XProfan/end/'>Fin

avec cela wiederum peux on ensuite avec un paire einfachen Handgriffen une einfachen Web-Browser herstellen:

Herunterladen

appelez on WebInfo avec Wert 29 comme 2. paramètre sur ensuite erhält on scheinbar quelquefois sogar den Seitentitel - malheureusement mais pas toujours et j'ai je n'en sais rien pourquoi. qui URL hingegen scheint zuverlässig ermittelbar.