TWebBrowser Source

Der er en property på komponenten i min Delphi der hedder THTML.ViewSource. Men det er måske en anden komponent?

Sorry...
It's not the ViewSource..
I need that command for the TWebBrowser.. Det er IE5's browser jeg har importeret.

Hej,

Her er hvad du mangler:

mvh
lindsoe

----------->>>>>>>>

const

  HTMLID_VIEWSOURCE = 2;


procedure TMainForm.InvokeIE(Value: Integer);
const
    CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
  CmdTarget : IOleCommandTarget;
  vaIn, vaOut: OleVariant;
  PtrGUID: PGUID;
begin
    New(PtrGUID);
  PtrGUID^ := CGID_WebBrowser;
  if WebBrowser1.Document <> nil then
      try
        WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
        if CmdTarget <> nil then
            try
            CmdTarget.Exec( PtrGUID, Value, 0, vaIn, vaOut);
          finally
            CmdTarget._Release;
          end;
      except
    // Nothing
    end;
  Dispose(PtrGUID);
end;





procedure TMainForm.DocumentSource1Click(Sender: TObject);
begin
  InvokeIE(HTMLID_VIEWSOURCE);
end;

....must...close....old...questions...