Mini Webbrowser Demo

[toms]

Hallo,

Ich habe ein Demo Projekt zusammengestellt rund um die Verwendung der TWebbrowser Komponente.

Es wird folgendes demonstriert:

• Druckerdialog anzeigen
• Drucker Setup anzeigen
• Drucker Vorschau anzeigen
• Suchen Dialog anzeigen
• Eigenschaften Dialog anzeigen
• Speichern Dialog

• QuellCode anzeigen
• Links auslesen
• Bilder Namen auslesen
• Felder Namen auslesen
• Frame Namen auslesen
• Objekt View (by shima)

• Zonen Icon, Zonen Name anzeigen
• Progressbar in Statusbar anzeigen
• Kleiner Popup Blocker
• Zoom Funktion
• Design Modus
• Codierung festlegen
• Globales Offline setzen
• Border Style festlegen
• Integrierte Google Suche
• Suchen & Highlight
• Element Info under der Maus anzeigen
• Scrollen: ganz nach oben/unten

• Multi Tabbed Browsing
• Browser Duplizieren
• Verlauf im Menü
• Enter, Backspace usw. Tasten, Drag & Drop aktivieren
• Ctrl+N behandeln
• Eigenes Popupmenu (resp. Default Popupmenu deaktivieren)
• Schliessen abfangen (z.B bei Javascript)
• HTML Code direkt in den Webbrowser laden
• Webbrowser dynamisch erzeugen

• Kopieren übers Menü
• Einfügen übers Menü
• Löschen übers Menü
• Ausschneiden übers Menü
• Alles markieren übers Menü
• Zurück, Vorwärts navigieren
• Zur Startseite navigieren

und vieles mehr.

Viel Spass....

MSHTML

[toms]

Update: Version 1.3.7:

- Kleine Änderungen
- Unterstützt Delphi 2009

[Florian H]

Wenn man z.B. nach "c:\" surft und 'Show element under mouse cursor' aktiviert hat, kommt jede Sekunde eine Fehlermeldung - Benutzung unmöglich ...

[toms]

Zitat von Florian H:

Wenn man z.B. nach "c:\" surft und 'Show element under mouse cursor' aktiviert hat, kommt jede Sekunde eine Fehlermeldung - Benutzung unmöglich ...

Danke für den Hinweis. Das kann mit dieser Abfrage im OnTimer behoben werden:
if Supports(CurrentWB.Document, IHtmlDocument2, Doc) then

[globetrotter77]

Tolle Sache, was du da auf die Beine gestellt hast!
Vielen Dank dafür!

Bin mal gespannt, was ich alles lernen kann.

Frage 1:

Im Quelltext sind die Units
madExcept,
madLinkDisAsm,
madListHardware,
madListProcesses,
madListModules,

in der uses-List aufgeführt, die nicht enthalten sind (oder habe ich sie übersehen?).
Die habe ich auskommentiert, und dann ließ es sich compilieren (W2K Prof. + Turbo Delphi Explorer).
Könnte es irgendwann zu Problemen führen, wenn die Units nicht enthalten sind?

Die Namen machen mich übrigens durchaus neugierig ...

Frage 2:

Ist irgendwo die Option versteckt, sich den Quelltext bzw. den Plain Text eines Einzelframes anzeigen zu lassen?

PS: Die Exe ließ sich übrigens ohne Neucompilierung auf Anhieb starten, hängte sich aber nach ein paar Klicks leider auf.

[toms]

Zitat von globetrotter77:

Tolle Sache, was du da auf die Beine gestellt hast!
Vielen Dank dafür!

Bin mal gespannt, was ich alles lernen kann.

Frage 1:

Im Quelltext sind die Units
madExcept,
madLinkDisAsm,
madListHardware,
madListProcesses,
madListModules,

in der uses-List aufgeführt, die nicht enthalten sind (oder habe ich sie übersehen?).
Die habe ich auskommentiert, und dann ließ es sich compilieren (W2K Prof. + Turbo Delphi Explorer).
Könnte es irgendwann zu Problemen führen, wenn die Units nicht enthalten sind?

Hallo, es handelt sich hierbei um Units von madExcept.
Es hilft u.a. bei Programm Abstürzen die Stelle zu finden, wo der Fehler auftritt.
Die Units kannst du ohne weiteres entfernen (hätte ich eigentlich vor dem Upload machen sollen....)

Zitat:

Frage 2:

Ist irgendwo die Option versteckt, sich den Quelltext bzw. den Plain Text eines Einzelframes anzeigen zu lassen?

Ist nicht direkt implementiert in der Demo. Sollte jedoch nicht allzu schwierig sein: Frame Source TWebbrowser

Zitat:

PS: Die Exe ließ sich übrigens ohne Neucompilierung auf Anhieb starten, hängte sich aber nach ein paar Klicks leider auf.

Hast du eine bestimmte Option aktiviert? Was genau hast du gemacht?


PS: Neue Version hochgeladen.

[globetrotter77]

Zitat:

Hast du eine bestimmte Option aktiviert? Was genau hast du gemacht?

Habe überhaupt nichts Besonderes gemacht außer mich durch ein paar Websites durchgehangelt.
Also keine Einstellungen geändert, nichts.
Ich kann's noch mal ausprobieren, wenn du willst.
Vielleicht kann ich's reproduzieren.

[toms]

Zitat von globetrotter77:

Zitat:

Hast du eine bestimmte Option aktiviert? Was genau hast du gemacht?

Habe überhaupt nichts Besonderes gemacht außer mich durch ein paar Websites durchgehangelt.
Also keine Einstellungen geändert, nichts.
Ich kann's noch mal ausprobieren, wenn du willst.
Vielleicht kann ich's reproduzieren.

Gerne.

[youuu]

Hi, vorab super von dir Toms.

Ich habe allerdings ein Problem es in Delphi 2010 zum laufen zu bekommen.
Ich bekomme diese Fehlermeldungen beim compilieren:

[DCC Fehler] WBFuncs.pas(167): E2003 Undeklarierter Bezeichner: 'VarType'
[DCC Warnung] WBFuncs.pas(167): W1023 Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden erweitert
[DCC Fehler] WBFuncs.pas(181): E2003 Undeklarierter Bezeichner: 'Unassigned'
[DCC Fehler] WBFuncs.pas(253): E2003 Undeklarierter Bezeichner: 'null'
[DCC Fehler] WBFuncs.pas(490): E2003 Undeklarierter Bezeichner: 'EmptyParam'
[DCC Fehler] WBFuncs.pas(490): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
[DCC Fehler] WBFuncs.pas(679): E2003 Undeklarierter Bezeichner: 'Null'
[DCC Fehler] WBFuncs.pas(755): E2003 Undeklarierter Bezeichner: 'VarIsEmpty'
[DCC Fehler] WBFuncs.pas(967): E2003 Undeklarierter Bezeichner: 'VarIsEmpty'
[DCC Fehler] WBFuncs.pas(1057): E2003 Undeklarierter Bezeichner: 'VarArrayCreate'
[DCC Fehler] WBFuncs.pas(1769): E2003 Undeklarierter Bezeichner: 'VarArrayHighBound'
[DCC Fehler] WBFuncs.pas(1769): E2003 Undeklarierter Bezeichner: 'VarArrayLowBound'
[DCC Fehler] WBFuncs.pas(1770): E2003 Undeklarierter Bezeichner: 'VarArrayLock'
[DCC Fehler] WBFuncs.pas(1775): E2003 Undeklarierter Bezeichner: 'VarArrayUnlock'
[DCC Fataler Fehler] uMain.pas(15): F2063 Verwendete Unit 'units\WBFuncs.pas' kann nicht compiliert werden

[toms]

Hallo, setze mal die Unit Variants in die Uses-Klausel.