Hello there.

I am trying to subclass Internet Explorer_Server Message but i got
some trouble. Let me give u some details.

I have a form Tform wich have a Twebbrowser inside this Twebbrowser is
aligned client and i want to know when the mouse is over it or not.
I already managed to do it with a hook but i think it's a bit heavy
because i send a message to my host form everytime the mouse move

I am trying to use something like this

once i got the handle to my Internet Explorer_Server i do
  OldWindowProc := Pointer(SetWindowLong(IEHWND, GWL_WNDPROC,
LongInt(@NewWindowProc)));

then my window proc is

function NewWindowProc(WindowHandle : hWnd;
  Message   : LongInt;
  ParamW       : LongInt;
  ParamL       : LongInt) : LongInt stdcall;
begin


   if (Message=WM_MOUSEMOVE) AND (mdhook=false) AND (MTCdrag=false) then
   begin
     if tmyform(extobj).opacity<255 then
     begin
     twidgetfrm(extobj).fadeout;
     twidgetfrm(extobj).resetftimer;
     end;
   end;


  if (Message=WM_LBUTTONDOWN) AND (MDHook=true) then
   begin
   Tmyform(extobj).hookedmd;
     if MDcancel=true then
     begin
     result:=1;
     exit;
     end;
   end;

   Result := CallWindowProc(OldWindowProc, WindowHandle, Message,
ParamW, ParamL);
end;

mdhook,mtcdrag and extobj are defined below the implementation and
problem is seems to be shared by all my Twidgetfrm and of course it
create a bug.

extobj is a back reference to the form that host the webbrowser but it
always contain the last form created and then the opacity public
property is not the good one.

any idea how i can access private or public property withing new
windowproc ? i tried to define newwindowproc as a member of tmyform
but it does not compile

thx for ur help.

You can always use something like the X-Appl engine to do this. It
works for me and it is free for all internet users.

--- In delphi-webbrowser@yahoogroups.com, "MARICOR MARAVILLA"
<marics_corner@...> wrote:
>
> Instead of going to a URL in a <a href="URL"> tag in html webbrowser
in
> delphi, i want to popup a form when clicking <a href> tag. guys pls
> help me on this :'C
>

Hi Sham,

The MSXML library (like IE) makes use of the URLMoniker functions of
Windows. This means that all the config settings are consolidated in
the Internet Options dialog.

It does not matter whether your request comes from MSXML or IE, the
request will always take the same path. If IE can correctly access
your proxy server, the so will MSXML. There are no special settings
for MSXML.

Also, please note that once a process (like IE) has been
authenticated by your proxy server, then all other requests from
within that process will share that authentication info.

Lastly, Fiddler is a very usefull tool and I use it all the time,
but it can sometime mess around with you. Fiddler will effectively
take over all requests and then fake a response back to you. Fiddler
is also unable to log requests that were returned from IE's cache.

I am currently working on a web scope that overcomes the limitations
of Fiddler. It is not ready for release yet, but you can check my
web site http://www.alfega.com for more info.

Francois Rautenbach


--- In delphi-webbrowser@yahoogroups.com, "shamresh1"
<shamresh1@...> wrote:
>
> Basically, I have a xml document and an xslt document that I load
via
> MSXML dom (msxml2_tlb), which applies the xslt transformation to
the
> xml document. The xml document has a number of nodes that have url
> request strings in and the xslt document uses the 'document()' xslt
> syntax to make http requests to get the urls and the does some
> transformations on the data it has retrieved.
>
> What I found is that if we have a proxy server with authentication
> (username and password), the MSXML dom code bypasses it.
>
> What we need is to work out how to set the proxy settings in code
and
> to ensure that when we apply the transformation it uses those proxy
> settings.
>
> For testing we have set up fiddler2 and set the require
authentication
> option (username and password are 1, and 1) and MSXML dom simply
does
> not use it. Careful that fiddler2 sets IE settings to use the proxy
> server so you may have to disable the flag in
> options->connections->Lan Settings.
>
> I tried using the wininet InternetSetOptions() api but for username
> and password settings I need to provide a resource handle which
> according to msdn is a web page (via httpOpenRequest). Since we are
> using MSXML dom, we do not have access to any sort of handle.
>
> I have an application that does the transformation that I can
provide.
>
> Regards
> Sham.
>
> Ps. I have posted explanations to the delphi.xml newsgroup but have
> not had too much help.
>

I'm hoping that there is a simple answer that I am just missing.  I am
trying to automate data entry & navigation on a secure website.  When
a button is clicked a new window opens which prompts for information
to be added.  When this new window is closed, the focus should return
to the original window...but I can't get this to work!  I have two
embeddedwebbrowsers on a form.  The first (ewb1) I used to navigate
through the site until this new window popped up.  When the new window
opens, I am using ppdisp := ewb2.defaultdispatch in the NewWindow2
event which seems to work fine at displaying the new window and
allowing the data to be entered in the second embedweb (ewb2).
However after ewb2 has been closed, the original browser window
is 'greyed-out' and I'm stuck.  I am using Delphi 5.

Any help with this would be much appreciated!!

I am automating a web site login. I fill a couple of fields and click a
form button - no problems there and the actual login takes place and
proceeds.

At this point there is an authentication cookie that I can see in
Fiddler, but when I retrieve TEmbeddedWB.Cookie it is not listed.

What would make the cookie invisible to TEmbeddedWB? I need to grab all
the cookies including the authentication one for using an Indy HTTP
client component.

Thanks!

Johnnie

Basically, I have a xml document and an xslt document that I load via
MSXML dom (msxml2_tlb), which applies the xslt transformation to the
xml document. The xml document has a number of nodes that have url
request strings in and the xslt document uses the 'document()' xslt
syntax to make http requests to get the urls and the does some
transformations on the data it has retrieved.

What I found is that if we have a proxy server with authentication
(username and password), the MSXML dom code bypasses it.

What we need is to work out how to set the proxy settings in code and
to ensure that when we apply the transformation it uses those proxy
settings.

For testing we have set up fiddler2 and set the require authentication
option (username and password are 1, and 1) and MSXML dom simply does
not use it. Careful that fiddler2 sets IE settings to use the proxy
server so you may have to disable the flag in
options->connections->Lan Settings.

I tried using the wininet InternetSetOptions() api but for username
and password settings I need to provide a resource handle which
according to msdn is a web page (via httpOpenRequest). Since we are
using MSXML dom, we do not have access to any sort of handle.

I have an application that does the transformation that I can provide.

Regards
Sham.

Ps. I have posted explanations to the delphi.xml newsgroup but have
not had too much help.

hi...thanks for the reply, i actually got it but with different
implementation.. i got it by extracting the URL... thanks though, your
solution is simplier and less lines of codes. i'll use it..

with kind thanks,

Maricor

I actually implemented this some time ago, in order to extract a meta
tag from an htmldocument you need to go through the documentelement
property of ihtmldocument3, the following code will go through all the
meta elements in a webpage

var
   i: Integer;
   Doc: OleVariant;
begin
   Doc := MyWebBrowser2.Document;
   for i := 0 to Doc.DocumentElement.all.Length -1 do
   begin
     if Supports( Doc.DocumentElement.all.Item(I,0), IHTMLMetaElement) then
     begin
//      this is a meta tag, cast it to IHTMLMetaElement to get info
from it
     end;
   end;
end;

Alternatively you can also use ihtmldocument3 getElementsByTagName to
get only the meta tags

var
   Doc: OleVariant;
   MetaCollection: IHTMLElementCollection;
begin
   Doc := MyWebBrowser2.Document;
   MetaCollection := Doc.GetElementsbyTagName( 'meta' );
// Metacollection is a htmlelementcollection that contains all the
meta tags in the webpage
end;

Please note that MyWebBrowser2 is supposed to be a IWebBrowser2
implementation

I am compiling a demo from EmbeddedWB which is for IEHelper, in the
DocumentComplete event, I wrote a piece of code found in google to
highlight the text

const
   prefix = '<span style="background-color: yellow;">';
   suffix = '</span>';
var
  tr: IHTMLTxtRange;
begin
     tr := ((MyWB.Document AS IHTMLDocument2).body AS
IHTMLBodyElement).createTextRange;

     while tr.findText('Given Text', 1, 0) do
     begin
       tr.pasteHTML(prefix + tr.htmlText + suffix);
     end;
   end;
end;

However, I found the program even don't go into the while loop, i.e.
findText actually didn't find my text (I am sure the text is there).

Look at http://www.swissdelphicenter.ch/torry/showcode.php?id=1823

<el_candonga@...> wrote:
> does anybody know as saving a file *.htm for *.rtf?

Hi,

does anybody know as saving a file *.htm for *.rtf?

thanks for this one.. it helped me get on going :-)


--- In delphi-webbrowser@yahoogroups.com, "Marc Charbonneau"
<timebandit001@...> wrote:
>
> > Instead of going to a URL in a <a href="URL"> tag in html
webbrowser in
> > delphi, i want to popup a form when clicking <a href> tag. guys pls
> > help me on this :'C
>
> Have a look at the event "OnBeforeNavigate2". This event is called
> when the user click a link. You can check the URL and if it is the one
> you want to react on, just cancel browsing (set Cancel to true) and
> display your form.
>
> Hope this help.
>

Hello,

When loading a file that contains the HTML code below, the error
"Access violation in mshtml.dll" happens. It happens no matter what
method is used: Navigate, loadfromfile.

The main problem is in <html xmlns="http://www.w3.org/1999/xhtml"> line.

The error happens with all the versions of IE.

Does anybody have a solution?

=======================================================================
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<BODY>
BlaBla
</BODY></HTML>
========================================================================

> Instead of going to a URL in a <a href="URL"> tag in html webbrowser in
> delphi, i want to popup a form when clicking <a href> tag. guys pls
> help me on this :'C

Have a look at the event "OnBeforeNavigate2". This event is called
when the user click a link. You can check the URL and if it is the one
you want to react on, just cancel browsing (set Cancel to true) and
display your form.

Hope this help.

Instead of going to a URL in a <a href="URL"> tag in html webbrowser in
delphi, i want to popup a form when clicking <a href> tag. guys pls
help me on this :'C

I am trying to replace the contextmenu from my BHO, I have
successfully set myself as the ui handler (ICustomDoc.SetUIHandler)
and everything should be ok, but I cant make the showcontextmenu
procedure work, I've tried using the latest bsalsa release code for
showcontextmenu, but the menu still lacks registry extensions and the
encoding submenu, does anyone have working code???

Hello,

I'm trying to change some HTML code in runtime. I already managed to
do that, however, I've tried in a page that had some timers in the
onload attribute of the BODY element.

This caused the page to refresh some elements while is visible.

After I change the text, those elements stopped being refreshed.

I've made a small example that shows this:


procedure TForm1.Button1Click(Sender: TObject);
var strTemp : String;
begin
    strTemp := '<SCRIPT LANGUAGE="Javascript">' + #13 +
               ' <!-- ' + #13 +
               ' var x = 10' + #13 +
               ' var y = 1' + #13 +
               ' function startClock()' + #13 +
               ' {' + #13 +
               '  x = x-y ' + #13 +
               '  document.frm.clock.value = x ' + #13 +
               '  setTimeout("startClock()", 1000) ' + #13 +
               '  if(x==0)' + #13 +
               '  { ' + #13 +
               '   alert("BOOM"); ' + #13 +
               '   x=10; ' + #13 +
               '  }' + #13 +
               ' }' + #13 +
               ' //-->' + #13 +
               '</SCRIPT><BODY onLoad="startClock()"> ' +
               '<FORM NAME="frm"> <INPUT TYPE="TEXT" NAME="clock"
SIZE=4 > </FORM> <p>seconds...</p>'+
               '</BODY>';

    EmbeddedWB1.LoadFromString(strTemp);
end;

procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject; const
pDisp: IDispatch; var URL: OleVariant);
Var
  Range : IHTMLTxtRange;
begin
    Range := ((EmbeddedWB1.Document AS IHTMLDocument2).Body AS
IHTMLBodyElement).createTextRange;
    Range.PasteHTML(Range.htmlText + '<br>Text added!!'); // <---------
Try with this line commented
end;


I changed the entire body because it is simpler to change the HTML
then keep on creating elements.

Is there any way to manage to do this? Maybe another event when I have
the entire source code and the onload event for scripts is not fired yet?

Thanks
Joćo

Study the samples in "files". I.e. "Pluggable Protocol"
or "CustTagExample.zip". It's simple.

Hi to all,
I try to draw on Twebbrowser's canvas with the
component "RenderingBehaviors" while twebbrowser is editable, but if I
write more rows and the webbrowser show the horizontal scrollbar, the
webbrowser don't draw well the image.

Can Somebody help me with a sample? :-)

Thanx

Here is a possible solution in html and Js

Paul

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta name="someThingElse" content="Not What we are Looking for">
<meta name="keyword" content="Hi from the keyword meta tag" />
<title>Get Key Word Meta Tag Contents</title>

<style type="text/css">
#info {background-color:navy; color:white; display:inline-block;
padding:2px}
</style>

<script>
function getMetaTagContents(metaTagNameAttribute) // string
  {
   document.getElementById("info").innerText = "There is no Keyword Meta
Tag";

   var tagCollection = new Enumerator(document.getElementsByTagName
("meta"));

	 if (tagCollection.atEnd() != true) //there are some meta tags
in the head
	  {//begin
	   for (;!tagCollection.atEnd();tagCollection.moveNext
())
      {//begin
		   metaTag = tagCollection.item();
			 if (metaTag.getAttribute("name").toLowerCase()
== metaTagNameAttribute.toLowerCase()) //then
			   {//begin
				   document.getElementById
("info").innerText = metaTag.getAttribute("content");
				   break;
				  }//end - if meta TagKey Word

		   }// end - for (;!tagCollection
		 }// end  - if tagCollection.atEnd()

   } // end function getMetaTagContents()
</script>
</head>
<body>
<div>Keyword Meta Tag:<br /><br />
   <span id="info"></span>
</div>
<br />
<button onclick="getMetaTagContents('keyword')">Show Keywords</button>
</body>
</html>

--- In delphi-webbrowser@yahoogroups.com, "ouladnaouis"
<ouladnaouis@...> wrote:
>
> hi,
> i work actually on browser helper object (dll in process com server)
and
> i seek a function to get keywords meta element from a web page when
> Documentcomplete event is fired (in invoke method).
> if the title of the page is easy to obtain (Document.title proprety),
> keywords, however, witch is a meta tag element require more techniques
> (scan the html code).
> thanks for any assistance.
>

Hi Everybody,

I've just found a bug in the desk band implementation that is
available as a part of EmbeddedWB package.

When you enable the deskband on the taskbar, it won't appear on the
taskbar next time you logs on.

Moreover, all the other active deskbars (Quicklaunch, Links, etc.)
will appear disabled.

I checked this issue on several workstation running Windows XP SP2.

Have anyone had a chance to resolve this nasty issue?

Thanks,

Andy.

Maybe this question has been asked already, but I can't find a
solution anywhere. If someone can help I'll be very grateful.

I need to make EmbeddedWB totally "passive", that means:
1) I load a web page into it and
    1.1) if the user clicks a link it doesn't go nowhere
    1.2) if there is a meta-refresh tag it ignores it
    1.3) if a javascript changes the document.href, it is ignored

I need a way to display a web page and the user must have NO active
interaction with it, just select and copy text in it, but NO
navigation at all.

Is it possible? How do I achieve such result?
THANKS IN ADVANCE!

hi,
i work actually on browser helper object (dll in process com server)and
i seek a function to get keywords meta element from a web page when
Documentcomplete event is fired (in invoke method).
if the title of the page is easy to obtain (Document.title proprety),
keywords, however, witch is a meta tag element require more techniques
(scan the html code).
thanks for any assistance.

In the NSHandler demo you can add a sample.swf to page1.htm  It seems
that the contents of the SWF is being read properly by
TOurNSHandler.GetDataFromFile.  I'd guess that the data stream is not
being passed from TWebBrowser to the FlashPlayer control, since that
control comes up empty.  Has anyone solved this problem?


--- In delphi-webbrowser@yahoogroups.com, "resnetspan2003"
<resnetspan2003@...> wrote:
>
> Hello All,
> I've created my own IE pluggable protocol solution for the reason
> that I could catch calls to URLs and load data (HTML, pictures,
etc.)
> from database.
> It works well for HTMLs, pictures, sounds, but - does not work for
> Macromedia Flash animations. I specify an embedded flash object like
> this:
> <OBJECT classid=(...)>
> (...)
> <PARAM NAME=movie VALUE="mycall://intro.swf">
> (...)
> </OBJECT>
> In the case above (using "mycall://", the "Start" method of my own
> protocol runs, it loads the binary data to the stream, but the flash
> ActiveX remains empty; clicking on it with the right mouse button it
> shows that it has no animation loaded...
> (If it is just a 'normal' URL ("http://..", "file://..."), it loads
> and the anim is visible.)
> What can be the difference in the case of the <OBJECT> tags? Has
> anybody have a successful load of flash animation using APP?
>
> I download the source code from iedelphi (OurNSHandler.pas)
>
> function TOurNSHandler.Start(szUrl: PWideChar; OIProtSink:
> IInternetProtocolSink;
>   OIBindInfo: IInternetBindInfo; grfPI, dwReserved: DWORD):
HResult;
> stdcall;
> begin
> (* We receive all http://-URL's here and let the
> default protocolhandler take over if we don't find
> our namespace.
> *)
>   if Pos('http://' + NameSpace + '/', LowerCase(szUrl)) <> 1
>   then Result := INET_E_USE_DEFAULT_PROTOCOLHANDLER
>   else begin
>   Url := SzUrl;
>   written := 0;
>   ProtSink := OIProtSink; file://Get interface to Transaction
> handlers IInternetnetProtocolSink
> (* Now get the data and load it in DataStream *)
>   if LoadMethod = 1 then GetDataFromFile(Url) else GetDataFromDB
(Url);
> (*Inform Transaction handler that all data is ready *)
> --------------------------------------------------------------------
--
> -----------
> --------------------------------------------------------------------
--
> ----------
>
> OIProtSink.ReportProgress
> (BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE, 'application/x-shockwave-
> flash');
>
> // I add the source,   had no result - document properties stated
that
> // document type is unknown,and the flash is empty!!!
> --------------------------------------------------------------------
--
> ----------
> --------------------------------------------------------------------
--
> ----------
>   ProtSink.ReportData(BSCF_FIRSTDATANOTIFICATION or
>         BSCF_LASTDATANOTIFICATION or BSCF_DATAFULLYAVAILABLE,
> TotalSize, TotalSize);
> (* -> Here our Read Method is called by transaction handler*)
>   ProtSink.ReportResult(S_OK, S_OK, nil);
> (* Report result to transaction handler. Our Terminate method will
be
> called *)
>   Result := S_OK;
>   end;
> end;
>
> Here is part of M$ example of APP - it says that I'm on the right
> way, but...
> // *** This is very important. We need to let URLMON know
> // what kind of data we are feeding it. ***
> pThis->m_pProtSink->ReportProgress
> (BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE,
> PROT_DEFAULT_MIMETYPE);
>
> I think,I have load the binary data to the stream,but I must let
the
> IE know the data  mime type.
>
> the sample of Iedelphi (namespace) perhaps
>  is not right,because the document properties stated that document
> type is unknown,the image type is unknowntype too.So the IE do not
> show the
> flash
>
> Please help me, Thanks,
> sorry for my pool english
>

In the BHO/toolbar that I develop, I need to temporary disable
recording of IE cache, history, cookies and adding entries to the
address bar dropdown combo.

I just need to disable recording of new history/cache/cookie entries,
without clearing existing history, cache and cookies.

I doubt if this can be achieved without using process-wide WinAPI hooks.

I think removing the entries just after they're added is a no-go
because this may result in unpredictable things happening in the UI.

I also thought of an ability to temporary disable recording of IE
cache/history using WinInet calls but I could not find the way to do so.

Any help on this would be greatly appreciated.

I'm working with the component EmbeddedWB component and i need an event
to capture a
window dialog that is opened using the function showModalDialog.

The event OnNewWindow2 is not capturing the opening of the new browser
window via the JS showModalDialog.

Is there a way to capture the content of this lookup dialog window?

Thanks in advance

Could the moderator, please block or clean spams in the calendar
http://tech.groups.yahoo.com/group/delphi-webbrowser/cal ?

Hello there!

Hope anyone can help me.

I'm trying to get the values from the list dropped in a web form field.

Note: This is not to get passwords! Only the data, like, p.e. the email.

Thank you in advance!

Joćo

What's the simple way to add a logging function to IE in Delphi.
(log the activity of the user in a simple text file).
one can think to Browser helper object...participate!

I have de following HTML with Javascript code:

<html>
<head>
   <title>portais.htm</title>
   <script>
     function portal()
     {
         portais=new Array()
             portais[0]='Google';
             portais[1]='Yahoo';
             portais[2]='MSN';

         desc=new Array()
             desc[0]='Test AAAAA';
             desc[1]='Test BBBBB';
             desc[2]='Test CCCCC';

         for (i=0;i<portais.length;i++)
         {
             newPortais=document.createElement('div');
             newPortais.id=i;
             newPortais.innerHTML=portais[i];
             newPortais.onclick=function()
             {
                 writeConsole(desc[this.id]);
                 function writeConsole(content)
                 {
                     top.consoleRef=window.open('','myconsole',
                         'width=350,height=250'
                         +',menubar=0'
                         +',toolbar=1'
                         +',status=0'
                         +',scrollbars=1'
                         +',resizable=1')
                     top.consoleRef.document.writeln
                     (
                         '<html><head><title>Console</title></head>'
                         +'<body bgcolor=yellow onLoad="self.focus()">'
                         +content
                         +'</body></html>'
                     )
                     top.consoleRef.document.close()
                  }
             }
             divPortais.appendChild(newPortais);
         }
     }
   </script>
</head>

<body onload=portal()>
     <div id='divPortais' style='cursor: hand'></div>
</body>

</html>

When I click in any item of the Portais array , the new window is
opened showing the corresponding item in the desc array, but I am
using a webbrowser component and want to open in a new form. So I
tried this:

unit NewWin;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
   Dialogs, OleCtrls, SHDocVw;

type
   TForm1 = class(TForm)
     WebBrowser1: TWebBrowser;
     procedure FormCreate(Sender: TObject);
     procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp:
IDispatch;
       var Cancel: WordBool);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('c:\nv\portais.htm');
form1.Height:=90;
end;


procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
   var ppDisp: IDispatch; var Cancel: WordBool);

var newWindow: TForm1;

begin
   newWindow := TForm1.Create(self);
   newWindow.Top:=10;
   newWindow.Height:=200;
   newWindow.Width:=400;
   //NewWindow.BorderStyle:=bsnone;
   NewWindow.Show;
   ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
   end;
end.

The new form is opened, shows the desc array content and the blank
page is loaded.
How can I show the items correctly?
Thanks,
Helcio
Brasil