XProfan

Français

Frank
Tretter

suis récente ici et c'est mon erste Frage.
je voulais mir selber une kleinen Browser bricoler et habe aussi déjà viel im Netz pour trouvé. mon Programme benutzt IWebBrowser2.ph.
cela Demo cela comme Beispiel dabei était fonctionne aussi bien. eh bien voudrais je mais cela menu erweitern et qui Befehle comment Marque, Kopieren insérer.

malheureusement peut cela erzeugte Browserfenster aussi pas qui Tastenkompination STRG+A trop.
Hoffe es peux mir quelqu'un aider et montrer comment on cela menu erweitert.
avec den Befehlen AppendMenuBar komm je bien sûr, mais pas avec qui Procedure CallMethod qui im Demo benutzt wir.

ici cela Demo
Kompilieren Marque Séparation

 $H c:XProfan 8.0INCLUDEWindows.ph
 $H c:XProfan 8.0INCLUDEIWebBrowser2.ph
Declare a$, a&, a#, b#, Error&, ATLdll&, WebControl&, IUnknown&, IWebBrowser&
Dim a#,1024
Dim b#,256
Def CLSIDFromString(2) !ole32,CLSIDFromString
Def AtlAxWinInit(0) !atl.dll,AtlAxWinInit
Def AtlAxGetControl(2) !atl.dll,AtlAxGetControl

Proc CallMethod-----------------------------------------------Interface-Methoden aufrufen

    Parameters IFace&,Method&
    Declare VTable&
    VTable&=long(IFace&,0)
    Method&=long(VTable&,Method&*4)
    case %pcount=2:return call( Method&,IFace& )
    case %pcount=3:return call( Method&,IFace&,&(3) )
    case %pcount=4:return call( Method&,IFace&,&(3),$(4) )
    case %pcount=5:return call( Method&,IFace&,&(3),&(4),&(5) )
    case %pcount=6:return call( Method&,IFace&,&(3),&(4),&(5),&(6) )
    case %pcount=7:return call( Method&,IFace&,&(3),&(4),&(5),&(6),&(7) )
    case %pcount=8:return call( Method&,IFace&,&(3),&(4),&(5),&(6),&(7),&(8) )

EndProc

proc WebOpen-------------------------------------------------------------Irgendwas öffnen

    Parameters X$
    ~RedrawWindow(%hwnd,0,0,$485)
    casenot len(x$):return
    ~MultiByteToWideChar(0,0,addr(x$),-1,a#,250)
    clear b#
    CallMethod(IWebbrowser&,~Navigate,a#,b#,b#,b#,b#)

EndProc

*****************************************************************************************
windowstyle 16+8+4+2+1
window 10,10-700,500
usermessages 16
ATLdll&=usedll(atl.dll)
AtlAxWinInit()
WebControl&=control(AtlAxWin,Shell.Explorer.1,$50000000,0,0,0,0,%hwnd,0,0,$200)
~GetClientRect(%hwnd,b#)
setwindowpos WebControl&=0,0-long(b#,8),long(b#,12)
Werte von Error& und IUnknown& im Fehlerfall ausgeben lassen!
Error&=AtlAxGetControl(WebControl&,addr(IUnknown&))
IWebBrowser2-Interface ermöglicht Kontrolle über das WebControl
clear a#,b#
a$=~IID_IWebBrowser2
~MultiByteToWideChar(1,1,addr(a$),-1,a#,80)-------------ANSI zu WideChar
CLSIDFromString(a#,b#)----------------------------------String zu Interface-ID
Error&=CallMethod(IUnknown&,~QueryInterface,b#,addr(IWebBrowser&))
--damit es beim Start nicht so leer aussieht
CallMethod(IWebBrowser&,~GoHome)
--------------------------------------------------------------------FensterMenü
appendmenubar 101,Zurück
appendmenubar 102,Vorwärts
appendmenubar 103,Abbrechen
appendmenubar 104,Aktualisieren
appendmenubar 105,Startseite
appendmenubar 106,Suchen
appendmenubar 107,Datei öffnen
appendmenubar 108,Ordner öffnen
appendmenubar 109,URL öffnen
--------------------------------------------------------------------Eingabeschleife

while 1

    if %key=4----------------------------------------------Grössenänderung des Fensters

        ~GetClientRect(%hwnd,b#)
        setwindowpos WebControl&=0,0-long(b#,8),long(b#,12)

    elseif menuitem(101)-----------------------------------Zurück

        CallMethod(IWebBrowser&,~GoBack)

    elseif menuitem(102)-----------------------------------Vorwärts

        CallMethod(IWebBrowser&,~GoForward)

    elseif menuitem(103)-----------------------------------Abbrechen

        CallMethod(IWebBrowser&,~Stop)

    elseif menuitem(104)-----------------------------------Aktualisieren

        CallMethod(IWebBrowser&,~Refresh)

    elseif menuitem(105)-----------------------------------Startseite

        CallMethod(IWebBrowser&,~GoHome)

    elseif menuitem(106)-----------------------------------Suchen

        CallMethod(IWebBrowser&,~GoSearch)

    elseif menuitem(107)-----------------------------------Datei öffnen

        a$=loadfile$(Bitte Bild oder HTML-Datei wählen,*.*)
        WebOpen a$

    elseif menuitem(108)-----------------------------------Ordner  öffnen

        a$=choosedir$(Bitte Ordner wählen)
        WebOpen a$

    elseif menuitem(109)-----------------------------------URL öffnen

        a$=input$(Bitte Web-Adresse eingeben:,URL:,)
        WebOpen a$
        endif----------------------------------------------------------------------

        while 1----------------------------Warten, bis Aktion ausgeführt ist

            sleep 200
            CallMethod(IWebBrowser&,~get_Busy,addr(a&))
            casenot a&:break
            endwhile------------------------------------------------------------
            waitinput
            case %umessage=16:break-----------Ende
            endwhile-----------------------------------------------------------------Ende Eingabeschleife
            destroywindow(WebControl&)
            case ATLdll&:freedll ATLdll&
            Fin

Salut Fränki

Seit 2008 endlich XProfan 10, ist einfach klasse

19.02.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

alors zum Ersten devrait Du Deinen Quellcode aussi avec
Kompilieren Marque Séparation

quellcode

ummanteln (c'est dans allen Foren üblich) - Codes avec Smilies drin wird sich aucun anschauen. tu peux Dein Posting oui Travailler. et ensuite wäre es encore hilfreich si Du qui zusätzliche PH aussi comme DateiAnhang beifügst - car cet est pas zum XProfanumfang.

nous savons aussi pas quelle XProfanversion Du utilise (la hâte oui nix angegeben) - cela könntest Du mais aussi dans Votre Signatur écrivons.

qui Bereiche a# et b# volonté pas disposed

.

jusqu'à denne.

@Admins: je trouve cet Postingform venez dans dernier Zeit très souvent avant - wir devrait avant dem Poste un Vorstellungsgespräch mener - inform einer Erklärungsseite howTo poste. je werd cela la fois zusammenbasteln.

19.02.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Nachtrag: le contenu qui iwebbrowser2.ph
Kompilieren Marque Séparation

IID_IUnknown={00000000-0000-0000-C000-000000000046};
QueryInterface=0;
AddRef=1;
Release=2;
IID_IWebBrowser2={D30C1661-CDAF-11d0-8A3E-00C04FC9E26E};
GetTypeInfoCount=3;
GetTypeInfo=4;
GetIDsOfNames=5;
Invoke=6;
GoBack=7;
GoForward=8;
GoHome=9;
GoSearch=10;
Navigate=11;
Refresh=12;
Refresh2=13;
Stop=14;
get_Application=15;
get_Parent=16;
get_Container=17;
get_Document=18;
get_TopLevelContainer=19;
get_Type=20;
get_Left=21;
put_Left=22;
get_Top=23;
put_Top=24;
get_Width=25;
put_Width=26;
get_Height=27;
put_Height=28;
get_LocationName=29;
get_LocationURL=30;
get_Busy=31;
Quit=32;
ClientToWindow=33;
PutProperty=34;
GetProperty=35;
get_Name=36;
get_HWND=37;
get_FullName=38;
get_Path=39;
get_Visible=40;
put_Visible=41;
get_StatusBar=42;
put_StatusBar=43;
get_StatusText=44;
put_StatusText=45;
get_ToolBar=46;
put_ToolBar=47;
get_MenuBar=48;
put_MenuBar=49;
get_FullScreen=50;
put_FullScreen=51;
Navigate2=52;
QueryStatusWB=53;
ExecWB=54;
ShowBrowserBar=55;
get_ReadyState=56;
get_Offline=57;
put_Offline=58;
get_Silent=59;
put_Silent=60;
get_RegisterAsBrowser=61;
put_RegisterAsBrowser=62;
get_RegisterAsDropTarget=63;
put_RegisterAsDropTarget=64;
get_TheaterMode=65;
put_TheaterMode=66;
get_AddressBar=67;
put_AddressBar=68;
get_Resizable=69;

19.02.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Tretter

Sorry, kenne mich là encore pas so aus.
j'ai XProfan 8. iwebbrowser2.ph wurde de Dir déjà ici angezeigt, merci.

maintenant versuch je cela avec dem Code encore einmal.
Kompilieren Marque Séparation

 $H c:XProfan 8.0INCLUDEWindows.ph
 $H c:XProfan 8.0INCLUDEIWebBrowser2.ph
Declare a$, a&, a#, b#, Error&, ATLdll&, WebControl&, IUnknown&, IWebBrowser&
Dim a#,1024
Dim b#,256
Def CLSIDFromString(2) !ole32,CLSIDFromString
Def AtlAxWinInit(0) !atl.dll,AtlAxWinInit
Def AtlAxGetControl(2) !atl.dll,AtlAxGetControl

Proc CallMethod-----------------------------------------------Interface-Methoden aufrufen

    Parameters IFace&,Method&
    Declare VTable&
    VTable&=long(IFace&,0)
    Method&=long(VTable&,Method&*4)
    case %pcount=2:return call( Method&,IFace& )
    case %pcount=3:return call( Method&,IFace&,&(3) )
    case %pcount=4:return call( Method&,IFace&,&(3),$(4) )
    case %pcount=5:return call( Method&,IFace&,&(3),&(4),&(5) )
    case %pcount=6:return call( Method&,IFace&,&(3),&(4),&(5),&(6) )
    case %pcount=7:return call( Method&,IFace&,&(3),&(4),&(5),&(6),&(7) )
    case %pcount=8:return call( Method&,IFace&,&(3),&(4),&(5),&(6),&(7),&(8) )

EndProc

proc WebOpen-------------------------------------------------------------Irgendwas öffnen

    Parameters X$
    ~RedrawWindow(%hwnd,0,0,$485)
    casenot len(x$):return
    ~MultiByteToWideChar(0,0,addr(x$),-1,a#,250)
    clear b#
    CallMethod(IWebbrowser&,~Navigate,a#,b#,b#,b#,b#)

EndProc

*****************************************************************************************
*****************************************************************************************
windowstyle 16+8+4+2+1
window 10,10-700,500
usermessages 16
ATLdll&=usedll(atl.dll)
AtlAxWinInit()
WebControl&=control(AtlAxWin,Shell.Explorer.1,$50000000,0,0,0,0,%hwnd,0,0,$200)
~GetClientRect(%hwnd,b#)
setwindowpos WebControl&=0,0-long(b#,8),long(b#,12)
Werte von Error& und IUnknown& im Fehlerfall ausgeben lassen!
Error&=AtlAxGetControl(WebControl&,addr(IUnknown&))
IWebBrowser2-Interface ermöglicht Kontrolle über das WebControl
clear a#,b#
a$=~IID_IWebBrowser2
~MultiByteToWideChar(1,1,addr(a$),-1,a#,80)-------------ANSI zu WideChar
CLSIDFromString(a#,b#)----------------------------------String zu Interface-ID
Error&=CallMethod(IUnknown&,~QueryInterface,b#,addr(IWebBrowser&))
--damit es beim Start nicht so leer aussieht
CallMethod(IWebBrowser&,~GoHome)
--------------------------------------------------------------------FensterMenü
appendmenubar 101,Zurück
appendmenubar 102,Vorwärts
appendmenubar 103,Abbrechen
appendmenubar 104,Aktualisieren
appendmenubar 105,Startseite
appendmenubar 106,Suchen
appendmenubar 107,Datei öffnen
appendmenubar 108,Ordner öffnen
appendmenubar 109,URL öffnen
--------------------------------------------------------------------Eingabeschleife

while 1

    if %key=4----------------------------------------------Grössenänderung des Fensters

        ~GetClientRect(%hwnd,b#)
        setwindowpos WebControl&=0,0-long(b#,8),long(b#,12)

    elseif menuitem(101)-----------------------------------Zurück

        CallMethod(IWebBrowser&,~GoBack)

    elseif menuitem(102)-----------------------------------Vorwärts

        CallMethod(IWebBrowser&,~GoForward)

    elseif menuitem(103)-----------------------------------Abbrechen

        CallMethod(IWebBrowser&,~Stop)

    elseif menuitem(104)-----------------------------------Aktualisieren

        CallMethod(IWebBrowser&,~Refresh)

    elseif menuitem(105)-----------------------------------Startseite

        CallMethod(IWebBrowser&,~GoHome)

    elseif menuitem(106)-----------------------------------Suchen

        CallMethod(IWebBrowser&,~GoSearch)

    elseif menuitem(107)-----------------------------------Datei öffnen

        a$=loadfile$(Bitte Bild oder HTML-Datei wählen,*.*)
        WebOpen a$

    elseif menuitem(108)-----------------------------------Ordner  öffnen

        a$=choosedir$(Bitte Ordner wählen)
        WebOpen a$

    elseif menuitem(109)-----------------------------------URL öffnen

        a$=input$(Bitte Web-Adresse eingeben:,URL:,)
        WebOpen a$
        endif----------------------------------------------------------------------

        while 1----------------------------Warten, bis Aktion ausgeführt ist

            sleep 200
            CallMethod(IWebBrowser&,~get_Busy,addr(a&))
            casenot a&:break
            endwhile------------------------------------------------------------
            waitinput
            case %umessage=16:break-----------Ende
            endwhile-----------------------------------------------------------------Ende Eingabeschleife
            destroywindow(WebControl&)
            case ATLdll&:freedll ATLdll&
            Fin

IWebBrowser2.ph	2 kB

Hochgeladen:	19.02.2007

Downloadcounter:
		Download

Seit 2008 endlich XProfan 10, ist einfach klasse

19.02.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Uwe
''Pascal''
Niemeier

allô Frank!

cela WebBrowser-Contrôle wird komplett sur sogenannte COM-Interfaces gesteuert; cela gilt sogar pour Clipboard-Aktionen. avec Messages (comment chez Edits) ist là rien trop machen; pour muss sogar un nouveau Interface aufgerufen volonté.
cet Procédure sollte aider:
Kompilieren Marque Séparation

proc CopyToClipBoard----------------------------------------------------------

    declare IOleCommandTarget&,CLSID$
    CLSID$={b722bccb-4e68-101b-a2bc-00aa00404770}--IID_IOleCommandTarget
    ~MultiByteToWideChar(1,1,addr(CLSID$),-1,a#,80)--ANSI zu WideChar
    CLSIDFromString(a#,b#)---------------------------String zu Interface-ID
    CallMethod(IWebBrowser&,~QueryInterface,b#,addr(IOleCommandTarget&))
    CLSID$={de4ba900-59ca-11cf-9592-444553540000}--CGID_MSHTML (Kommandomodus)
    ~MultiByteToWideChar(1,1,addr(CLSID$),-1,a#,80)--ANSI zu WideChar
    CLSIDFromString(a#,b#)---------------------------String zu Interface-ID
    CallMethod(IOleCommandTarget&,4,b#,15,0,0,0)-----Exec : IDM_COPY
    CallMethod(IOleCommandTarget&,~Release)----------Interface freigeben
    endproc----------------------------------------------------------------------

une Routine zum Marque reiche je encore pour!

@ iF: es du sûrement, dass DISPOSE am Programmende so wichig ist?

HTH
Pascal

20.02.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

Uwe Pascal Niemeier

@ iF: es du sûrement, dass DISPOSE am Programmende so wichig ist?

chez Win9x (en supplément est aussi Win ME) grundsätzlich oui, là sonst qui grenier oiftmals pas avant dem prochain Neustart freigegeben wird.
Win2000/XP/Vue regelt cela Betriebssystem chez Programmende qui Freigabe dans aller règle nötigenfalls selbst.

Trotz allem sollte on sich angewöhnen avec DIM reservierten grenier grundsätzlich par DISPOSE wieder freizugeben. Sollte on cet z.B. la fois dans einer Procédure oublier qc, hat on très vite Probleme ...

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

20.02.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Tretter

Vielen Dank erstmal pour qui schnelle Aider. cela bringt mich déjà plus.
si je ensuite encore qui Routine pour cela Markiern bekomm suis je Glücklich et es hat mir très geholfen.

peux malheureusement pas toujours juste répondre, suis pas toujours am PC et zum Programmieren fehlt comme qui Zeit.

Salut Fränki

Seit 2008 endlich XProfan 10, ist einfach klasse

21.02.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation