TWebbrowser Gridshow und Snap-to-grid CtoPas

[Mavarik]

Zitat:

Zitat von marabu

Delphi-Quellcode:

function TForm1.QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
begin
  Result := S_OK;
  if IsEqualGUID(IID, IID_IElementBehaviorFactory) then
    IInterface(Obj) := self as IElementBehaviorFactory else
  if IsEqualGUID(IID, IID_IElementBehavior) then
    IInterface(Obj) := self as IElementBehavior else
  if IsEqualGUID(IID, IID_IHTMLPainter) then
    IInterface(Obj) := self as IHTMLPainter else
  Result := inherited QueryInterface(IID, Obj);
end;

marabu

Ojee ja genau... Wusste nicht, das man auch auf der zuweisenden Seite Typcasten kann. :wall:

Folgende events kommen in dieser Procedure in dieser Reihenfolge an:

Delphi-Quellcode:

  IID_IElementBehaviorFactory:{3050F429-98B5-11CF-BB82-00AA00BDCE0B}
  IID_IElementBehavior:{3050F425-98B5-11CF-BB82-00AA00BDCE0B}
  IID_IProxyManager:TGUID ='{00000008-0000-0000-C000-000000000046}'
??? {3050F4FA-98B5-11CF-BB82-00AA00BDCE0B}
  IID_IPersistPropertyBag2:TGUID ='{22F55881-280B-11D0-A8A9-00A0C90C2004}'
  IID_IPersistPropertyBag:TGUID ='{37D84F60-42CB-11CE-8135-00AA004BB851}'
  IID_CPC:TGUID = '{B196B284-BAB4-101A-B69C-00AA00341D07}'
  IID_IHTMLPainter:{3050F6A6-98B5-11CF-BB82-00AA00BDCE0B}
??? {3050F6DE-98B5-11CF-BB82-00AA00BDCE0B}
  IID_IHTMLPainterOverlay: TGUID = '{3050F7E3-98B5-11CF-BB82-00AA00BDCE0B}';
  IID_IHTMLPainterEventInfo: TGUID = '{3050F6DF-98B5-11CF-BB82-00AA00BDCE0B}';
  IID_IElementBehaviorCategory: TGUID = '{3050F4ED-98B5-11CF-BB82-00AA00BDCE0B}';
  IID_IOleCommandTarget = "{B722BCCB-4E68-101B-A2BC-00AA00404770}"
  IID_IElementBehaviorLayout: TGUID = '{3050F6BA-98B5-11CF-BB82-00AA00BDCE0B}';

Leider wird die IHTMLPainter.Draw nie aufgerufen...

Hast Du noch eine Idee?

Ach ja die Behavior setze ich so: (Ich hasse Interfaces)

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  vFactory : OleVariant;
  Body : IHTMLElement;
  Body2 : IHTMLElement2;
  Doc : IHTMLDocument2;
begin
  (Webbrowser1.Document as IHTMLDocument2).designMode := 'on';
  (Webbrowser1.Document as IHTMLDocument2).execCommand('2D-Position', false,true);
  (Webbrowser1.Document as IHTMLDocument2).execCommand('MULTIPLESELECTION',false,true);
  (Webbrowser1.Document as IHTMLDocument2).execCommand('Liveresize',false,true);

  Doc := (Webbrowser1.Document as IHTMLDocument2);
  Body := Doc.createElement('body');
  if Body = NIL then
    exit;

  Body.QueryInterface(IID_IHTMLElement2,Body2);

  if Body2 = NIL then
    begin
      Body._Release;
      exit;
    end;

  VFactory := IElementBehaviorFactory(Self);
  Body2.addBehavior('',vFactory);
  Body._Release;
  Body2._Release;
end;

mfg Frank :coder:

[Mavarik]

PS.: Die Aufrufreihenfolge ist

FindBehavior
Init
GetPainterInfo
Notify
Detach

Jedoch liefert ein PaintSite.InvalidateRect(NIL);
einen Fehler $8000FFFF

{ Catastrophic failure }
E_UNEXPECTED = HRESULT($8000FFFF);


Frank :gruebel:

[Mavarik]

hähem.... Push :oops:

Hat das von Euch noch niemand verwenden?

Frank :angel:

[marabu]

Ich habe diese Schnittstellen in noch keinem Projekt gebraucht, aber wenn du Code-Fragmente zum debuggen hast, dann stelle sie ruhig ein.

marabu

[Mavarik]

Zitat:

Zitat von marabu

Ich habe diese Schnittstellen in noch keinem Projekt gebraucht, aber wenn du Code-Fragmente zum debuggen hast, dann stelle sie ruhig ein.

marabu

:roll: aäääähh ok... Muss mal sehen wie ich die Zeilen aus dem Project raushole...

Werde ich machen...Danke für das Angebot.

Frrank

[Mavarik]

Zitat:

Zitat von marabu

Ich habe diese Schnittstellen in noch keinem Projekt gebraucht, aber wenn du Code-Fragmente zum debuggen hast, dann stelle sie ruhig ein.

marabu

OK eMail ist mit dem Testprogramm an Dich raus!

Mfg Frank

[marabu]

Hallo Frank,

ich habe ein Rahmenprojekt implementiert, welches ohne die von dir verwendete EditHost-Komponente auskommt. Ist nicht viel Code, tut nicht viel, aber soll möglichst deutlich die Vorgehensweise beim Implementieren der Schnittstelle IHTMLEditHost zeigen. Ich habe den von dir verwendeten EmbeddedWebBrowser zugrunde gelegt. Die Unit MSHTML_TLB verwende ich nicht direkt, sondern schlachte sie nach Bedarf aus. Wenn Interesse besteht, dann baue ich das Projekt noch weiter aus. Kann aber dauern, da ich momentan bei einem Kunden eingespannt bin und zusammenhängende Zeit zu finden nicht einfach ist.

Grüße vom marabu

[Mavarik]

Hallo!

Sorry, aber das war es leider nicht...

Es ging darum, das der QueryService NUR aufgerufen wird, wenn diese EmbeddedWebBrowser komponente verwendet wird.
Diese Komponente nutzt übrigens auch die MSHTML_TLB und Du hast die Indirekt auch verwendet, den
MSHTML ist das gleiche - nur von Borland und veraltet.

Es ging mir darum die Paintsite implementierung zu erhalten um das Grid zu zeichnen...

Ich hatte Dir doch ein Demo-Programm geschickt...

Trotzdem Danke für Deine Mühe...

LG Frank

PS.: Vielleicht kannst Du ja nochmal schauen, warum QueryService in einem "normalen" Form nicht funktioniert, bzw. ein PaintSite.Invalidate eine
Catrastrophic failure liefert...

[marabu]

Hallo Frank.

Zitat:

Zitat von Mavarik

Sorry, aber das war es leider nicht...

Das war eine Fingerübung von mir - ich brauche schließlich sauberen Code um darauf aufzubauen. Insbesondere wollte ich deine Komponente eliminieren, damit ich diese nicht unnötigerweise auf meiner Maschine installieren muss.

Zitat:

Zitat von Mavarik

Es ging darum, das der QueryService NUR aufgerufen wird, wenn diese EmbeddedWebBrowser komponente verwendet wird.

Das ist nicht verwunderlich. Wenn du EWB nicht verwenden willst, dann musst du eine eigene Komponente von TWebBrowser ableiten, welche die Schnittstelle IServiceProvider implementiert. Oder du verzichtest auf die Komponente TWebBrowser und hostest direkt MSHTML - zu aufwendig finde ich.

Zitat:

Zitat von Mavarik

Diese Komponente nutzt übrigens auch die MSHTML_TLB und Du hast die Indirekt auch verwendet, den MSHTML ist das gleiche - nur von Borland und veraltet.

Ich weiß genau was ich tue - meistens. Unter MSHTML_TLB verstehe ich eine beliebige mit TLIBIMP erzeugte Unit, im Gegensatz zur Original-Unit MSHTML von Borland. Ich verwende eine (nicht deine) bei mir installierte EWB-Komponente und diese verwendet die original MSHTML Unit.

Zitat:

Zitat von Mavarik

Es ging mir darum die Paintsite implementierung zu erhalten um das Grid zu zeichnen...

Eines nach dem anderen. Ich hatte ja schon erwähnt, dass ich diese Schnittstellen noch nicht verwendet habe, also habe ich auch keinen fertigen Code für dich - den muss ich erst noch schreiben.

Zitat:

Zitat von Mavarik

Vielleicht kannst Du ja nochmal schauen, warum QueryService in einem "normalen" Form nicht funktioniert, bzw. ein PaintSite.Invalidate eine Catrastrophic failure liefert...

Nochmal mit anderen Worten: deine normale Form ist kein Host für das WebBrowser Control. Eine Host-Object-Beziehung erzeugst du z.B. wenn du mit TOleContainer arbeitest.

Freundliche Grüße

marabu

[Mavarik]

Zitat:

Zitat von marabu

Hallo Frank.

Zitat:

Zitat von Mavarik

Sorry, aber das war es leider nicht...

Das war eine Fingerübung von mir - ich brauche schließlich sauberen Code um darauf aufzubauen. Insbesondere wollte ich deine Komponente eliminieren, damit ich diese nicht unnötigerweise auf meiner Maschine installieren muss.

OK

Zitat:

Zitat von marabu

Zitat:

Zitat von Mavarik

Es ging darum, das der QueryService NUR aufgerufen wird, wenn diese EmbeddedWebBrowser komponente verwendet wird.

Das ist nicht verwunderlich. Wenn du EWB nicht verwenden willst, dann musst du eine eigene Komponente von TWebBrowser ableiten, welche die Schnittstelle IServiceProvider implementiert. Oder du verzichtest auf die Komponente TWebBrowser und hostest direkt MSHTML - zu aufwendig finde ich.

Ach... Das ist der ganze Trick? Muss ich sofort mal ausprobieren...

Zitat:

Zitat von marabu

Eines nach dem anderen. Ich hatte ja schon erwähnt, dass ich diese Schnittstellen noch nicht verwendet habe, also habe ich auch keinen fertigen Code für dich - den muss ich erst noch schreiben.

OK kein Problem...

Zitat:

Zitat von marabu

Zitat:

Zitat von Mavarik

Vielleicht kannst Du ja nochmal schauen, warum QueryService in einem "normalen" Form nicht funktioniert, bzw. ein PaintSite.Invalidate eine Catrastrophic failure liefert...

Nochmal mit anderen Worten: deine normale Form ist kein Host für das WebBrowser Control. Eine Host-Object-Beziehung erzeugst du z.B. wenn du mit TOleContainer arbeitest.

Ahh... Wo ist der Unterschied? Bzw. wie funktioniert es, dass ein XY TForm ein HOST wird?

LG Frank :coder: