Look at the message titled "Re: IDocHostUIHandler". Although I haven't
verified that this code works, at a glance it looks good. I think the author
is off the list, since I couldn't find his address.

Change the code in ShowContextMenu to:

RESULT := E_NOTIMPL;

and IE's popup menu will not appear. You'll have to implement code to make
yours popup. Something like:

self.PopupMenu.Popup;

Learn more at:
http://www.microsoft.com/workshop/browser/Hosting/reference/IFaces/IDocHostU
IHandler/IDocHostUIHandler.asp#IDocHostUIHandler

Note: Make sure above link isn't broken over multiple lines. If it is, copy
and paste all the parts into the Browser's address box.

Henri Fournier
http://members.home.net/hfournier


-----Original Message-----
From: tarta [mailto:laposte.roubaix@...]
Sent: Wednesday, March 24, 1999 12:31 PM
To: delphi-webbrowser@egroups.com
Subject: [delphi-webbrowser] Enabling Right Mouse click

How to enabling Right Mouse click in Internet Explorer

------------------------------------------------------------------------
eGroups Spotlight:
"Playsandplaywrights" - Write and analyze plays for production.
http://offers.egroups.com/click/248/4

eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com



------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

I posted 3 replies to the eGroup yesterday using the Web interface and none
of them have shown up. I sent an e-mail to eGroups, but haven't heard back.
I suggest everybody uses e-mail until further notice.

--
Henri Fournier
http://members.home.net/hfournier


------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hi Walter
This is an excellent idea.
Here is what I have gathered from others.
If there is a better way or more things to add please do so.

unit OleCtrlsFix;
//  In imported file SHDocV2_Tbl.pas  change the below line from
//  TWebBrowser_V1 = class(TOleControl)     // old code
//  TWebBrowser_V1 = class(TOleControlFix)  // new code
interface

uses Windows, Messages, ActiveX, SysUtils, Classes, Controls, Forms,
   Menus, Graphics, ComObj, AxCtrls, OleCtrls;

Type
   TOleControlFix = class(TOleControl)
      //Private
      //Protected
        procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
        function GetIUnknownProp(Index: Integer): IUnknown;
        function GetIDispatchProp(Index: Integer): IDispatch;
end;

implementation

procedure TOleControlFix.WMPaint(var Message: TWMPaint);
var
   PS: TPaintStruct;
begin
     if Message.DC = 0 then begin
         BeginPaint(Handle, PS);
         EndPaint(Handle, PS);
     end
end;

function TOleControlFix.GetIDispatchProp(Index: Integer): IDispatch;
var
   Temp: TVarData;
begin
   GetProperty(Index, Temp);
  // Result := IDispatch(Temp.VDispatch);  // this caused memory leak
   Pointer(Result) := Temp.VDispatch;     //  changed to this
end;

function TOleControlFix.GetIUnknownProp(Index: Integer): IUnknown;
var
   Temp: TVarData;
begin
   GetProperty(Index, Temp);
   //Result := IUnknown(Temp.VUnknown); // this caused memory leak
   Pointer(Result) := Temp.VUnknown;    // changed to this to avoid extra addref
end;

end.

  <19990324114826.5770.rocketmai-@...> wrote:
Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=22
> I've noted that Henri and others have published units to invoke
> additional interfaces or to overcome bugs. Would it be a good idea to
> pull all that excellent work together into one VCL?
> Walter McKie

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

I've done a fair amount & have been working with the component since the
beginning. I'd be glad to contribute to the best-of-breed concept for a
component. I think that most (if not all) of what I have is floating around
in one form or another, but I like the idea.

How many in this group are also using the DHTML edit component? Does it make
any sense to do the same with it?

> -----Original Message-----
> From: Andrew Cogan [mailto:andrew@...]
> Sent: Wednesday, March 24, 1999 10:53 AM
> To: delphi-webbrowser@egroups.com
> Subject: [delphi-webbrowser] Re: Delphi WebBrowser Component
>
>
> Walter McKie wrote:
> > I've noted that Henri and others have published units to invoke
> > additional interfaces or to overcome bugs. Would it be a good idea to
> > pull all that excellent work together into one VCL?
> >
> > Any thoughts?
>
> I second the idea. It'd be great to have a "best of breed" unit that
> would allow folks to get up to speed quickly, and not have to stumble
> figuring out the same set of workarounds again and again. Henri, when
> you get version 1.0 of your FAQ online, that'd be one of the first
> things to include in it, IMO.
>
> --
> Andrew Cogan, Epiphany Software
>
> ------------------------------------------------------------------------
> eGroups Spotlight:
> "Astronauts" - Be an astronaut autograph seeker and trade space
> memorabilia.
> http://offers.egroups.com/click/248/2
>
> eGroup home: http://www.eGroups.com/list/delphi-webbrowser
> Free Web-based e-mail groups by eGroups.com
>


------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Walter McKie wrote:
> I've noted that Henri and others have published units to invoke
> additional interfaces or to overcome bugs. Would it be a good idea to
> pull all that excellent work together into one VCL?
>
> Any thoughts?

I second the idea. It'd be great to have a "best of breed" unit that
would allow folks to get up to speed quickly, and not have to stumble
figuring out the same set of workarounds again and again. Henri, when
you get version 1.0 of your FAQ online, that'd be one of the first
things to include in it, IMO.

--
Andrew Cogan, Epiphany Software

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

How to enabling Right Mouse click in Internet Explorer

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

I'm running D4.02, IE 4.01 and Win 98.

Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=17
> Wow! both of those sound really weird.
>
> 1) There are a number of possible reasons for the random crashes, but you'll
have to provide more info about what you're doing. If you start a new
application and put a WebBrowser on it, then put WebBrowser1.GoHome in the forms
OnCreate event handler, does the app work fine? Or does it still crash at
random? Or when you close it?
>
> 2) I have Outlook 98 running all the time, and haven't seen that before.
Again, need to know what you're doing.
>
> Please state what version of Delphi (including updates, e.g. D4.03), IE and
OS. It makes a difference.
>
> Henri
>
>  <001601be7571$7946f440$020000c-@groovyserver> wrote:
> Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=15
> > Hi!
> >
> > Henry, great initiative setting up this eGroup. Currently I'm having two
> > difficulties using TWebBrowser with Delphi 4, Standard, wich I hope some of
> > you can help me out with:
> >
> > 1)
> > Whenever I execute my application containing TWebBrowser from the Delphi
> > compiler, my project crashes. Sometimes right away, sometimes after a little
> > while. I don't get to see a Delphi exception handler, but the CPU registers
> > window. In runtime I don't have this problem.
> >
> > 2)
> > When I launch my project while Outlook 98 is running, Outlook gets to crash
> > real bad: I get white message boxes, whithout any icons, stating there was a
> > fatal error and I get to choose "close" or "ignore". Whatever I do,
> > eventualy I'm forced to reboot.
> >
> > Thanks, Edwin.
> >
> >
> >
>

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Henri

Excellent initiative to start this group, thank you.

I've noted that Henri and others have published units to invoke
additional interfaces or to overcome bugs. Would it be a good idea to
pull all that excellent work together into one VCL?

Any thoughts?

Walter McKie
_________________________________________________________
Do You Yahoo!?

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hi,

I am new to this list. I have a problem:

I work on a delphi webbrowser savescreen program, when the savescreen open,
it open web page on a specialised server. The page chage at a rate
determine by a timer and a given list.

The system work very well if the page doesn't contain frame, if the page
contain frame the savescreen program exit?

I investigate the source of the premature exiting, it is a mousemove
message sent by the webbroswser to the main form of the savescreen. The
local coordinate of the mouse pointer change when the frame appear?

Does somebody know how it is possible to block this message to be send to
the main form?



Excuse my english, tank you very much.

Au plaisir de vous lire!
          _______________________________________________
         |Mario Groleau                                  |
         |3070 Talbot                                    |
       / )Trois-Rivières                                 |
      / /|Québec, Canada G8Y 2J5                         |
    _( ( |   _                                           |
   (((\ \|  / ) http://mgroleau.cgocable.ca              |
   (\\\\ \_/ /  mailto:mario.groleau@...|
    \       /____________________________________________|
     \     /
      \  _/


------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hi Adam
Thanks.  That is an excellent suggestion.
I tried it and can print but I keep getting the Print settings box to come up
each time.
In another user group someone suggested the below line would get rid of the
Print settings box, however, the printer I am testing with doesn't have an
IPAddress.
rundll32 mshtml.dll,PrintHTML, "file.htm" "PrinterName" "WINSPOOL"
"IPAddressOfPrinter"
Any thoughts?

If I am printing say 1000 at one session how will that work?
Will it all buffer to disk or will I get an error message at some point?

If this works then all thats left is the other problem of viewing x number of
web pages without bombing.

  <007001be756f$be2b9720$0100005-@...> wrote:
Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=14
> There's a much easier way to do that.
>
> You can run the following command:
>
> rundll32.exe C:\WINDOWS\SYSTEM\MSHTML.DLL,PrintHTML "%1"
>
> and replace %1 with a URL.
>
> This will print the passed URL and you won't even see it.
>
> Adam Stiles
> Stilesoft Incorporated
>
> ----- Original Message -----
> From: <gms@...>
> To: <delphi-webbrowser@egroups.com>
> Sent: Tuesday, March 23, 1999 12:49 PM
> Subject: [delphi-webbrowser] Re: TWebBrowse Bombs from server but not
> files???
>
>
> > Hi Henri
> > Yes I set it to 5 sec to no avail.  It seems that if I run it outside of
> the IDE it runs a bit longer, but its still random when it will crash.  Is
> there a way to clear the cashe every time?
> >
> > The reason I am doing it that fast is that I need to print each one.  My
> understanding is that I have to show it first.  The other reason it is so
> fast is that it speeds up testing.
> >
> > Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=10
> > > One thing that's different when you use local files vs. Internet is
> caching. IE doesn't cach local files (they're already local), so that might
> be part of your problem. Maybe caching that many pages at that speed is
> using up too many resources. Have you tried setting the Timer to more than
> half a second?
> > >
> > > BTW, why are you shoving all these pages through the WebBrowser
> component at this speed? Have you figured out how to read like Data on
> StarTrek? <g>
> > >
> > > Henri
> > >
> > > Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=9
> > > > Hi Henri
> > > > Sorry for the confusion.  I downloaded the web pages from the Internet
> using a Delphi program I created that uses an HTTP component.
> > > > Automatically skip through 300 pages by passing a different url into
> > > > WebBrowser1.Navigate(sUrl, Flags, TargetFrameName, PostData, Headers);
> > > > Then in WebBrowser1.WebBrowser1DocumentComplete it enables a timer
> which waits half a second then goes to the next record.
> > > > With this code the url can be on my hard drive from the web pages I
> downloaded or from the server where they are being created dynamically.
> > > > The only reason I downloaded them to my hard drive was because viewing
> them from the server was bombing after x tries.
> > > >
> > > > Original Article:
> http://www.egroups.com/list/delphi-webbrowser/?start=8
> > > > > I've read your message a couple of times and I'm still not sure what
> you're doing.
> > > > >
> > > > > What do you mean by "I downloaded all the html and related files"?
> Do you mean from the Internet using HTTP? Like a web-crawler?
> > > > >
> > > > > What do you mean by "automatically skip through say 300 records"?
> Are you storing the files that you download in a DB? What do you mean by
> skip?
> > > > >
> > > > > If you are trying to download a bunch of HTML pages to review
> offline or in some DB, then you shouldn't be using WebBrowser. Rendering
> each of the HTML pages is too slow. Just use an HTTP component and get the
> pages you want, then use WebBrowser to view them later. If you don't want to
> use the HTTP component that comes with Delphi, try the free ones at
> http://www.rtfm.be/fpiette/indexuk.htm. I've already written a simple
> web-crawler using this component. It works fine.
> > > > >
> > > > > Henri
> > > > >
> > > > > Original Article:
> http://www.egroups.com/list/delphi-webbrowser/?start=7
> > > > > > Hi
> > > > > > If I downloaded all the html and related files to my machine and
> automatically skip through say 300 records it does this perfectly.
> > > > > > With the exact same code when viewing records from the server it
> will
> > > > > > view anywhere between 1 and 30 before it bombs.
> > > > > > If I skip throught the same 3 records over and over from the
> server it did not bomb.
> > > > > >
> > > > > > My knowledge of CPU error codes is limited.
> > > > > > The same CPU error comes up every time when it bombs.
> > > > > > The error from the cpu is 71012B7B movsx edx,[eax+ebx]
> > > > > > The below values will change.
> > > > > > EAX = FFFFFFAE, EBX = 001AE008, CF = 1, [$001ADFB6]=???
> > > > > > Movsx means it copies a signed value into a larger type.
> > > > > >
> > > > > > If run without the IDE Dr Watson comes up then the program quits.
> > > > > > I am running D4 C/S sp3, NT4 sp4 on Pentium Pro 200 with 128Meg
> Ram
> > > > > > In saying that I recall when automatically downloading the html
> pages (in order to get the html on my hard drive) some pages would time out
> so I had to increase the timeout time to have the pages download seamlessly.
> > > > > > Could the same thing be happening here?
> > > > > > If so how can it be set?
> > > > > > --
> > > > > > Cheers
> > > > > > Glenn Shukster of Gms Computing Inc.
> > > > > > Thornhill, Ont. Canada
> > > > > > Phone:(905)771-6458   Fax:(905)771-6819
> http://members.home.net/gms
> > > > > > http://members.home.net/gms
> > > > > >
> > > > >
> > > >
> > >
> >
> > ------------------------------------------------------------------------
> > Too much effort to find the stock info you want each day? StockMaster
> > lets you enter a company name and quickly shows you a daily quote,
> > chart, and news all on one page. Free!    http://stockmaster.com/?a=f7
> >
> > eGroup home: http://www.eGroups.com/list/delphi-webbrowser
> > Free Web-based e-mail groups by eGroups.com
> >
> >
>
>

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Have some of you experienced problems with Delphi-applications using webbrowser
and IE5?

When using IE5 I am no longer able to invoke the open-document-dialog. It worked
fine with IE4. Thanking in advance for any help.


Per

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hi everyone,

Please state what version of Delphi (including updates, e.g. D4.03), IE and OS.
It makes a difference.

Henri

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Wow! both of those sound really weird.

1) There are a number of possible reasons for the random crashes, but you'll
have to provide more info about what you're doing. If you start a new
application and put a WebBrowser on it, then put WebBrowser1.GoHome in the forms
OnCreate event handler, does the app work fine? Or does it still crash at
random? Or when you close it?

2) I have Outlook 98 running all the time, and haven't seen that before. Again,
need to know what you're doing.

Please state what version of Delphi (including updates, e.g. D4.03), IE and OS.
It makes a difference.

Henri

  <001601be7571$7946f440$020000c-@groovyserver> wrote:
Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=15
> Hi!
>
> Henry, great initiative setting up this eGroup. Currently I'm having two
> difficulties using TWebBrowser with Delphi 4, Standard, wich I hope some of
> you can help me out with:
>
> 1)
> Whenever I execute my application containing TWebBrowser from the Delphi
> compiler, my project crashes. Sometimes right away, sometimes after a little
> while. I don't get to see a Delphi exception handler, but the CPU registers
> window. In runtime I don't have this problem.
>
> 2)
> When I launch my project while Outlook 98 is running, Outlook gets to crash
> real bad: I get white message boxes, whithout any icons, stating there was a
> fatal error and I get to choose "close" or "ignore". Whatever I do,
> eventualy I'm forced to reboot.
>
> Thanks, Edwin.
>
>
>

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hello,

About implementing IDOCHOSTUIHANDLER:

I use the following unit, which make all functions available:



unit EmbeddedWB;


interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   OleCtrls, SHDocVw_TLB, ActiveX;

const
   DOCHOSTUITYPE_BROWSE= 0;
   DOCHOSTUITYPE_AUTHOR= 1;

   DOCHOSTUIDBLCLK_DEFAULT= 0;
   DOCHOSTUIDBLCLK_SHOWPROPERTIES= 1;
   DOCHOSTUIDBLCLK_SHOWCODE= 2;

   DOCHOSTUIFLAG_DIALOG = 1;
   DOCHOSTUIFLAG_DISABLE_HELP_MENU = 2;
   DOCHOSTUIFLAG_NO3DBORDER = 4;
   DOCHOSTUIFLAG_SCROLL_NO = 8;
   DOCHOSTUIFLAG_DISABLE_SCRIPT_INACTIVE = 16;
   DOCHOSTUIFLAG_OPENNEWWIN = 32;
   DOCHOSTUIFLAG_DISABLE_OFFSCREEN = 64;
   DOCHOSTUIFLAG_FLAT_SCROLLBAR = 128;
   DOCHOSTUIFLAG_DIV_BLOCKDEFAULT = 256;
   DOCHOSTUIFLAG_ACTIVATE_CLIENTHIT_ONLY = 512;

type
   PDOCHOSTUIINFO = ^TDOCHOSTUIINFO;
   TDOCHOSTUIINFO = record
     cbSize: ULONG;
     dwFlags: DWORD;
     dwDoubleClick: DWORD;
   end;

   IDocHostShowUI = interface(IUnknown)
     ['{c4d244b0-d43e-11cf-893b-00aa00bdce1a}']
     function ShowMessage(hwnd: THandle;lpstrText: POLESTR;lpstrCaption: POLESTR;
       dwType: longint;lpstrHelpFile: POLESTR;dwHelpContext: longint;
       var plResult: LRESULT): HRESULT; stdcall;
     function ShowHelp(hwnd: THandle; pszHelpFile: POLESTR; uCommand: integer;
       dwData: longint; ptMouse: TPoint;
       var pDispachObjectHit: IDispatch): HRESULT; stdcall;
   end; // IDocHostShowUI


   IDocHostUIHandler = interface(IUnknown)
     ['{bd3f23c0-d43e-11cf-893b-00aa00bdce1a}']
     function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;
       const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HRESULT;
stdcall;
     function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;
     function ShowUI(const dwID: DWORD; const pActiveObject:
IOleInPlaceActiveObject;
       const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;
       const pDoc: IOleInPlaceUIWindow): HRESULT; stdcall;
     function HideUI: HRESULT; stdcall;
     function UpdateUI: HRESULT; stdcall;
     function EnableModeless(const fEnable: BOOL): HRESULT; stdcall;
     function OnDocWindowActivate(const fActivate: BOOL): HRESULT; stdcall;
     function OnFrameWindowActivate(const fActivate: BOOL): HRESULT; stdcall;
     function ResizeBorder(const prcBorder: PRECT;
       const pUIWindow: IOleInPlaceUIWindow;
       const fRameWindow: BOOL): HRESULT; stdcall;
     function TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup: PGUID;
       const nCmdID: DWORD): HRESULT; stdcall;
     function GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD): HRESULT;
stdcall;
     function GetDropTarget(const pDropTarget: IDropTarget;
       out ppDropTarget: IDropTarget): HRESULT; stdcall;
     function GetExternal(out ppDispatch: IDispatch): HRESULT; stdcall;
     function TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POLESTR;
       var ppchURLOut: POLESTR): HRESULT; stdcall;
     function FilterDataObject(const pDO: IDataObject;
       out ppDORet: IDataObject): HRESULT; stdcall;
   end; // IDocHostUIHandler


   TEmbeddedWB = class(TWebBrowser, IUnknown, IDocHostUIHandler, IDocHostShowUI)
   private
     FRefCount: Integer;
   protected
//IUnknown
     function QueryInterface(const IID: TGUID; out Obj): Integer; stdcall;
     function _AddRef: Longint; virtual; stdcall;
     function _Release: Longint; virtual; stdcall;
   public
   // IDOcHostUIHandler
     function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;
       const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HRESULT;
stdcall;
     function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;
     function ShowUI(const dwID: DWORD; const pActiveObject:
IOleInPlaceActiveObject;
       const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;
       const pDoc: IOleInPlaceUIWindow): HRESULT; stdcall;
     function HideUI: HRESULT; stdcall;
     function UpdateUI: HRESULT; stdcall;
     function EnableModeless(const fEnable: BOOL): HRESULT; stdcall;
     function OnDocWindowActivate(const fActivate: BOOL): HRESULT; stdcall;
     function OnFrameWindowActivate(const fActivate: BOOL): HRESULT; stdcall;
     function ResizeBorder(const prcBorder: PRECT;
       const pUIWindow: IOleInPlaceUIWindow;
       const fRameWindow: BOOL): HRESULT; stdcall;
     function TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup: PGUID;
       const nCmdID: DWORD): HRESULT; stdcall;
     function GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD): HRESULT;
stdcall;
     function GetDropTarget(const pDropTarget: IDropTarget;
       out ppDropTarget: IDropTarget): HRESULT; stdcall;
     function GetExternal(out ppDispatch: IDispatch): HRESULT; stdcall;
     function TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POLESTR;
       var ppchURLOut: POLESTR): HRESULT; stdcall;
     function FilterDataObject(const pDO: IDataObject;
       out ppDORet: IDataObject): HRESULT; stdcall;
// IDocHostShowUI
     function ShowMessage(hwnd: THandle;
       lpstrText: POLESTR;lpstrCaption: POLESTR;dwType: longint;lpstrHelpFile:
POLESTR;
       dwHelpContext: longint; var plResult: LRESULT): HRESULT; stdcall;
     function ShowHelp(hwnd: THandle; pszHelpFile: POLESTR; uCommand: integer;
       dwData: longint; ptMouse: TPoint;
        var pDispachObjectHit: IDispatch): HRESULT; stdcall;
     { Public declarations }
   published
     { Published declarations }
   end;

procedure Register;

implementation


function TEmbeddedWB.ShowMessage(hwnd: THandle; lpstrText: POLESTR;
   lpstrCaption: POLESTR; dwType: longint;lpstrHelpFile: POLESTR;
   dwHelpContext: longint; var plResult: LRESULT): HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.ShowHelp(hwnd: THandle; pszHelpFile: POLESTR;
   uCommand: integer; dwData: longint; ptMouse: TPoint;
   var pDispachObjectHit: IDispatch): HRESULT;
begin
   Result := S_OK;
end;


function TEmbeddedWB.QueryInterface(const iid: TGUID; out obj): Integer;
begin
   if GetInterface(IID, Obj) then Result := S_OK else Result := E_NOINTERFACE;
end;

function TEmbeddedWB._AddRef: Longint;
begin
   Inc(FRefCount);
   Result := FRefCount;
end;

function TEmbeddedWB._Release: Longint;
begin
   Dec(FRefCount);
   RESULT := FRefCount;
end;

function TEmbeddedWB.ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;
   const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HRESULT;
begin
   RESULT := S_OK;
end;

function TEmbeddedWB.GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;
begin
   pinfo.dwFlags := DOCHOSTUIFLAG_NO3DBORDER + DOCHOSTUIFLAG_SCROLL_NO;
   pinfo.dwdoubleclick:=0;
   RESULT := S_OK;
end;

function TEmbeddedWB.ShowUI(const dwID: DWORD;
   const pActiveObject: IOleInPlaceActiveObject;
   const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;
   const pDoc: IOleInPlaceUIWindow): HRESULT;
begin
   RESULT := S_Ok;
end;

function TEmbeddedWB.HideUI: HRESULT;
begin
   RESULT := S_Ok;
end;

function TEmbeddedWB.UpdateUI: HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.EnableModeless(const fEnable: BOOL): HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.OnDocWindowActivate(const fActivate: BOOL): HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.OnFrameWindowActivate(const fActivate: BOOL): HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.ResizeBorder(const prcBorder: PRECT;
   const pUIWindow: IOleInPlaceUIWindow; const fRameWindow: BOOL): HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.TranslateAccelerator(const lpMsg: PMSG;
   const pguidCmdGroup: PGUID; const nCmdID: DWORD): HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD):
HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.GetDropTarget(const pDropTarget: IDropTarget;
   out ppDropTarget: IDropTarget): HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.GetExternal(out ppDispatch: IDispatch): HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.TranslateUrl(const dwTranslate: DWORD;
   const pchURLIn: POLESTR; var ppchURLOut: POLESTR): HRESULT;
begin
   RESULT := E_NotImpl;
end;

function TEmbeddedWB.FilterDataObject(const pDO: IDataObject;
   out ppDORet: IDataObject): HRESULT;
begin
   RESULT := E_NotImpl;
end;


procedure Register;
begin
   RegisterComponents('ActiveX', [TEmbeddedWB]);
end;

end.




------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hi!

Henry, great initiative setting up this eGroup. Currently I'm having two
difficulties using TWebBrowser with Delphi 4, Standard, wich I hope some of
you can help me out with:

1)
Whenever I execute my application containing TWebBrowser from the Delphi
compiler, my project crashes. Sometimes right away, sometimes after a little
while. I don't get to see a Delphi exception handler, but the CPU registers
window. In runtime I don't have this problem.

2)
When I launch my project while Outlook 98 is running, Outlook gets to crash
real bad: I get white message boxes, whithout any icons, stating there was a
fatal error and I get to choose "close" or "ignore". Whatever I do,
eventualy I'm forced to reboot.

Thanks, Edwin.



------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

There's a much easier way to do that.

You can run the following command:

rundll32.exe C:\WINDOWS\SYSTEM\MSHTML.DLL,PrintHTML "%1"

and replace %1 with a URL.

This will print the passed URL and you won't even see it.

Adam Stiles
Stilesoft Incorporated

----- Original Message -----
From: <gms@...>
To: <delphi-webbrowser@egroups.com>
Sent: Tuesday, March 23, 1999 12:49 PM
Subject: [delphi-webbrowser] Re: TWebBrowse Bombs from server but not
files???


> Hi Henri
> Yes I set it to 5 sec to no avail.  It seems that if I run it outside of
the IDE it runs a bit longer, but its still random when it will crash.  Is
there a way to clear the cashe every time?
>
> The reason I am doing it that fast is that I need to print each one.  My
understanding is that I have to show it first.  The other reason it is so
fast is that it speeds up testing.
>
> Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=10
> > One thing that's different when you use local files vs. Internet is
caching. IE doesn't cach local files (they're already local), so that might
be part of your problem. Maybe caching that many pages at that speed is
using up too many resources. Have you tried setting the Timer to more than
half a second?
> >
> > BTW, why are you shoving all these pages through the WebBrowser
component at this speed? Have you figured out how to read like Data on
StarTrek? <g>
> >
> > Henri
> >
> > Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=9
> > > Hi Henri
> > > Sorry for the confusion.  I downloaded the web pages from the Internet
using a Delphi program I created that uses an HTTP component.
> > > Automatically skip through 300 pages by passing a different url into
> > > WebBrowser1.Navigate(sUrl, Flags, TargetFrameName, PostData, Headers);
> > > Then in WebBrowser1.WebBrowser1DocumentComplete it enables a timer
which waits half a second then goes to the next record.
> > > With this code the url can be on my hard drive from the web pages I
downloaded or from the server where they are being created dynamically.
> > > The only reason I downloaded them to my hard drive was because viewing
them from the server was bombing after x tries.
> > >
> > > Original Article:
http://www.egroups.com/list/delphi-webbrowser/?start=8
> > > > I've read your message a couple of times and I'm still not sure what
you're doing.
> > > >
> > > > What do you mean by "I downloaded all the html and related files"?
Do you mean from the Internet using HTTP? Like a web-crawler?
> > > >
> > > > What do you mean by "automatically skip through say 300 records"?
Are you storing the files that you download in a DB? What do you mean by
skip?
> > > >
> > > > If you are trying to download a bunch of HTML pages to review
offline or in some DB, then you shouldn't be using WebBrowser. Rendering
each of the HTML pages is too slow. Just use an HTTP component and get the
pages you want, then use WebBrowser to view them later. If you don't want to
use the HTTP component that comes with Delphi, try the free ones at
http://www.rtfm.be/fpiette/indexuk.htm. I've already written a simple
web-crawler using this component. It works fine.
> > > >
> > > > Henri
> > > >
> > > > Original Article:
http://www.egroups.com/list/delphi-webbrowser/?start=7
> > > > > Hi
> > > > > If I downloaded all the html and related files to my machine and
automatically skip through say 300 records it does this perfectly.
> > > > > With the exact same code when viewing records from the server it
will
> > > > > view anywhere between 1 and 30 before it bombs.
> > > > > If I skip throught the same 3 records over and over from the
server it did not bomb.
> > > > >
> > > > > My knowledge of CPU error codes is limited.
> > > > > The same CPU error comes up every time when it bombs.
> > > > > The error from the cpu is 71012B7B movsx edx,[eax+ebx]
> > > > > The below values will change.
> > > > > EAX = FFFFFFAE, EBX = 001AE008, CF = 1, [$001ADFB6]=???
> > > > > Movsx means it copies a signed value into a larger type.
> > > > >
> > > > > If run without the IDE Dr Watson comes up then the program quits.
> > > > > I am running D4 C/S sp3, NT4 sp4 on Pentium Pro 200 with 128Meg
Ram
> > > > > In saying that I recall when automatically downloading the html
pages (in order to get the html on my hard drive) some pages would time out
so I had to increase the timeout time to have the pages download seamlessly.
> > > > > Could the same thing be happening here?
> > > > > If so how can it be set?
> > > > > --
> > > > > Cheers
> > > > > Glenn Shukster of Gms Computing Inc.
> > > > > Thornhill, Ont. Canada
> > > > > Phone:(905)771-6458   Fax:(905)771-6819
http://members.home.net/gms
> > > > > http://members.home.net/gms
> > > > >
> > > >
> > >
> >
>
> ------------------------------------------------------------------------
> Too much effort to find the stock info you want each day? StockMaster
> lets you enter a company name and quickly shows you a daily quote,
> chart, and news all on one page. Free!    http://stockmaster.com/?a=f7
>
> eGroup home: http://www.eGroups.com/list/delphi-webbrowser
> Free Web-based e-mail groups by eGroups.com
>
>


------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hi Henri
Yes I set it to 5 sec to no avail.  It seems that if I run it outside of the IDE
it runs a bit longer, but its still random when it will crash.  Is there a way
to clear the cashe every time?

The reason I am doing it that fast is that I need to print each one.  My
understanding is that I have to show it first.  The other reason it is so fast
is that it speeds up testing.

Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=10
> One thing that's different when you use local files vs. Internet is caching.
IE doesn't cach local files (they're already local), so that might be part of
your problem. Maybe caching that many pages at that speed is using up too many
resources. Have you tried setting the Timer to more than half a second?
>
> BTW, why are you shoving all these pages through the WebBrowser component at
this speed? Have you figured out how to read like Data on StarTrek? <g>
>
> Henri
>
> Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=9
> > Hi Henri
> > Sorry for the confusion.  I downloaded the web pages from the Internet using
a Delphi program I created that uses an HTTP component.
> > Automatically skip through 300 pages by passing a different url into
> > WebBrowser1.Navigate(sUrl, Flags, TargetFrameName, PostData, Headers);
> > Then in WebBrowser1.WebBrowser1DocumentComplete it enables a timer which
waits half a second then goes to the next record.
> > With this code the url can be on my hard drive from the web pages I
downloaded or from the server where they are being created dynamically.
> > The only reason I downloaded them to my hard drive was because viewing them
from the server was bombing after x tries.
> >
> > Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=8
> > > I've read your message a couple of times and I'm still not sure what
you're doing.
> > >
> > > What do you mean by "I downloaded all the html and related files"? Do you
mean from the Internet using HTTP? Like a web-crawler?
> > >
> > > What do you mean by "automatically skip through say 300 records"? Are you
storing the files that you download in a DB? What do you mean by skip?
> > >
> > > If you are trying to download a bunch of HTML pages to review offline or
in some DB, then you shouldn't be using WebBrowser. Rendering each of the HTML
pages is too slow. Just use an HTTP component and get the pages you want, then
use WebBrowser to view them later. If you don't want to use the HTTP component
that comes with Delphi, try the free ones at
http://www.rtfm.be/fpiette/indexuk.htm. I've already written a simple
web-crawler using this component. It works fine.
> > >
> > > Henri
> > >
> > > Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=7
> > > > Hi
> > > > If I downloaded all the html and related files to my machine and
automatically skip through say 300 records it does this perfectly.
> > > > With the exact same code when viewing records from the server it will
> > > > view anywhere between 1 and 30 before it bombs.
> > > > If I skip throught the same 3 records over and over from the server it
did not bomb.
> > > >
> > > > My knowledge of CPU error codes is limited.
> > > > The same CPU error comes up every time when it bombs.
> > > > The error from the cpu is 71012B7B movsx edx,[eax+ebx]
> > > > The below values will change.
> > > > EAX = FFFFFFAE, EBX = 001AE008, CF = 1, [$001ADFB6]=???
> > > > Movsx means it copies a signed value into a larger type.
> > > >
> > > > If run without the IDE Dr Watson comes up then the program quits.
> > > > I am running D4 C/S sp3, NT4 sp4 on Pentium Pro 200 with 128Meg Ram
> > > > In saying that I recall when automatically downloading the html pages
(in order to get the html on my hard drive) some pages would time out so I had
to increase the timeout time to have the pages download seamlessly.
> > > > Could the same thing be happening here?
> > > > If so how can it be set?
> > > > --
> > > > Cheers
> > > > Glenn Shukster of Gms Computing Inc.
> > > > Thornhill, Ont. Canada
> > > > Phone:(905)771-6458   Fax:(905)771-6819  http://members.home.net/gms
> > > > http://members.home.net/gms
> > > >
> > >
> >
>

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hi Christopher
Yes I made that change already, Thanks.
--
Cheers
Glenn Shukster of Gms Computing Inc.
Thornhill, Ont. Canada
Phone:(905)771-6458   Fax:(905)771-6819   http://members.home.net/gms


------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Make sure you have implemented the memory leak fix. There is a substantial
memory leak in TWebbrowser that is corrected by changing the implementation
of TOleControl.

Basically, create a descendant of TOleControl (TrsOleControl) in my case
that re-implements GetIDispatchProp & GetIUnknownProp. Make sure that
TWebbrowser then inherits from TrsOleControl instead. The memory leak is
significantly reduced. I've still detected some leakage, but substantially
smaller.

Here's the changed implementations:

unit rsOleCtrls;

interface
uses
   OleCtrls;

type
   TrsOleControl = class (TOleControl)
   protected
     function GetIDispatchProp(Index: Integer): IDispatch;
     function GetIUnknownProp(Index: Integer): IUnknown;
   end;

implementation


{ TOleControlFix }

function TrsOleControl.GetIDispatchProp(Index: Integer): IDispatch;
var
   Temp: TVarData;
begin
   GetProperty(Index, Temp);
//  Result := IDispatch(Temp.VDispatch);       *****  Change to:
   Pointer(Result) := Temp.VDispatch;    //this avoids the extra AddRef
end;

function TrsOleControl.GetIUnknownProp(Index: Integer): IUnknown;
var
   Temp: TVarData;
begin
   GetProperty(Index, Temp);
//  Result := IDispatch(Temp.VUnknown);       *****  Change to:
   Pointer(Result) := Temp.VUnknown;    //this avoids the extra AddRef
end;

end.


> -----Original Message-----
> From: gms@... [mailto:gms@...]
> Sent: Tuesday, March 23, 1999 10:47 AM
> To: delphi-webbrowser@egroups.com
> Subject: [delphi-webbrowser] Re: TWebBrowse Bombs from server but not
> files???
>
>
> Hi Henri
> Sorry for the confusion.  I downloaded the web pages from the
> Internet using a Delphi program I created that uses an HTTP component.
> Automatically skip through 300 pages by passing a different url into
> WebBrowser1.Navigate(sUrl, Flags, TargetFrameName, PostData, Headers);
> Then in WebBrowser1.WebBrowser1DocumentComplete it enables a
> timer which waits half a second then goes to the next record.
> With this code the url can be on my hard drive from the web pages
> I downloaded or from the server where they are being created dynamically.
> The only reason I downloaded them to my hard drive was because
> viewing them from the server was bombing after x tries.
>
> Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=8
> > I've read your message a couple of times and I'm still not sure
> what you're doing.
> >
> > What do you mean by "I downloaded all the html and related
> files"? Do you mean from the Internet using HTTP? Like a web-crawler?
> >
> > What do you mean by "automatically skip through say 300
> records"? Are you storing the files that you download in a DB?
> What do you mean by skip?
> >
> > If you are trying to download a bunch of HTML pages to review
> offline or in some DB, then you shouldn't be using WebBrowser.
> Rendering each of the HTML pages is too slow. Just use an HTTP
> component and get the pages you want, then use WebBrowser to view
> them later. If you don't want to use the HTTP component that
> comes with Delphi, try the free ones at
> http://www.rtfm.be/fpiette/indexuk.htm. I've already written a
> simple web-crawler using this component. It works fine.
> >
> > Henri
> >
> > Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=7
> > > Hi
> > > If I downloaded all the html and related files to my machine
> and automatically skip through say 300 records it does this perfectly.
> > > With the exact same code when viewing records from the server it will
> > > view anywhere between 1 and 30 before it bombs.
> > > If I skip throught the same 3 records over and over from the
> server it did not bomb.
> > >
> > > My knowledge of CPU error codes is limited.
> > > The same CPU error comes up every time when it bombs.
> > > The error from the cpu is 71012B7B movsx edx,[eax+ebx]
> > > The below values will change.
> > > EAX = FFFFFFAE, EBX = 001AE008, CF = 1, [$001ADFB6]=???
> > > Movsx means it copies a signed value into a larger type.
> > >
> > > If run without the IDE Dr Watson comes up then the program quits.
> > > I am running D4 C/S sp3, NT4 sp4 on Pentium Pro 200 with 128Meg Ram
> > > In saying that I recall when automatically downloading the
> html pages (in order to get the html on my hard drive) some pages
> would time out so I had to increase the timeout time to have the
> pages download seamlessly.
> > > Could the same thing be happening here?
> > > If so how can it be set?
> > > --
> > > Cheers
> > > Glenn Shukster of Gms Computing Inc.
> > > Thornhill, Ont. Canada
> > > Phone:(905)771-6458   Fax:(905)771-6819  http://members.home.net/gms
> > > http://members.home.net/gms
> > >
> >
>
> ------------------------------------------------------------------------
> Track your stocks and funds in a StockMaster portfolio.  With easy
> setup, you get quotes, charts, and news for them all on just one page.
> No limits, fast loading, and FREE!   http://www.stockmaster.com/?a=f8
>
> eGroup home: http://www.eGroups.com/list/delphi-webbrowser
> Free Web-based e-mail groups by eGroups.com
>


------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

One thing that's different when you use local files vs. Internet is caching. IE
doesn't cach local files (they're already local), so that might be part of your
problem. Maybe caching that many pages at that speed is using up too many
resources. Have you tried setting the Timer to more than half a second?

BTW, why are you shoving all these pages through the WebBrowser component at
this speed? Have you figured out how to read like Data on StarTrek? <g>

Henri

Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=9
> Hi Henri
> Sorry for the confusion.  I downloaded the web pages from the Internet using a
Delphi program I created that uses an HTTP component.
> Automatically skip through 300 pages by passing a different url into
> WebBrowser1.Navigate(sUrl, Flags, TargetFrameName, PostData, Headers);
> Then in WebBrowser1.WebBrowser1DocumentComplete it enables a timer which waits
half a second then goes to the next record.
> With this code the url can be on my hard drive from the web pages I downloaded
or from the server where they are being created dynamically.
> The only reason I downloaded them to my hard drive was because viewing them
from the server was bombing after x tries.
>
> Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=8
> > I've read your message a couple of times and I'm still not sure what you're
doing.
> >
> > What do you mean by "I downloaded all the html and related files"? Do you
mean from the Internet using HTTP? Like a web-crawler?
> >
> > What do you mean by "automatically skip through say 300 records"? Are you
storing the files that you download in a DB? What do you mean by skip?
> >
> > If you are trying to download a bunch of HTML pages to review offline or in
some DB, then you shouldn't be using WebBrowser. Rendering each of the HTML
pages is too slow. Just use an HTTP component and get the pages you want, then
use WebBrowser to view them later. If you don't want to use the HTTP component
that comes with Delphi, try the free ones at
http://www.rtfm.be/fpiette/indexuk.htm. I've already written a simple
web-crawler using this component. It works fine.
> >
> > Henri
> >
> > Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=7
> > > Hi
> > > If I downloaded all the html and related files to my machine and
automatically skip through say 300 records it does this perfectly.
> > > With the exact same code when viewing records from the server it will
> > > view anywhere between 1 and 30 before it bombs.
> > > If I skip throught the same 3 records over and over from the server it did
not bomb.
> > >
> > > My knowledge of CPU error codes is limited.
> > > The same CPU error comes up every time when it bombs.
> > > The error from the cpu is 71012B7B movsx edx,[eax+ebx]
> > > The below values will change.
> > > EAX = FFFFFFAE, EBX = 001AE008, CF = 1, [$001ADFB6]=???
> > > Movsx means it copies a signed value into a larger type.
> > >
> > > If run without the IDE Dr Watson comes up then the program quits.
> > > I am running D4 C/S sp3, NT4 sp4 on Pentium Pro 200 with 128Meg Ram
> > > In saying that I recall when automatically downloading the html pages (in
order to get the html on my hard drive) some pages would time out so I had to
increase the timeout time to have the pages download seamlessly.
> > > Could the same thing be happening here?
> > > If so how can it be set?
> > > --
> > > Cheers
> > > Glenn Shukster of Gms Computing Inc.
> > > Thornhill, Ont. Canada
> > > Phone:(905)771-6458   Fax:(905)771-6819  http://members.home.net/gms
> > > http://members.home.net/gms
> > >
> >
>

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hi Henri
Sorry for the confusion.  I downloaded the web pages from the Internet using a
Delphi program I created that uses an HTTP component.
Automatically skip through 300 pages by passing a different url into
WebBrowser1.Navigate(sUrl, Flags, TargetFrameName, PostData, Headers);
Then in WebBrowser1.WebBrowser1DocumentComplete it enables a timer which waits
half a second then goes to the next record.
With this code the url can be on my hard drive from the web pages I downloaded
or from the server where they are being created dynamically.
The only reason I downloaded them to my hard drive was because viewing them from
the server was bombing after x tries.

Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=8
> I've read your message a couple of times and I'm still not sure what you're
doing.
>
> What do you mean by "I downloaded all the html and related files"? Do you mean
from the Internet using HTTP? Like a web-crawler?
>
> What do you mean by "automatically skip through say 300 records"? Are you
storing the files that you download in a DB? What do you mean by skip?
>
> If you are trying to download a bunch of HTML pages to review offline or in
some DB, then you shouldn't be using WebBrowser. Rendering each of the HTML
pages is too slow. Just use an HTTP component and get the pages you want, then
use WebBrowser to view them later. If you don't want to use the HTTP component
that comes with Delphi, try the free ones at
http://www.rtfm.be/fpiette/indexuk.htm. I've already written a simple
web-crawler using this component. It works fine.
>
> Henri
>
> Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=7
> > Hi
> > If I downloaded all the html and related files to my machine and
automatically skip through say 300 records it does this perfectly.
> > With the exact same code when viewing records from the server it will
> > view anywhere between 1 and 30 before it bombs.
> > If I skip throught the same 3 records over and over from the server it did
not bomb.
> >
> > My knowledge of CPU error codes is limited.
> > The same CPU error comes up every time when it bombs.
> > The error from the cpu is 71012B7B movsx edx,[eax+ebx]
> > The below values will change.
> > EAX = FFFFFFAE, EBX = 001AE008, CF = 1, [$001ADFB6]=???
> > Movsx means it copies a signed value into a larger type.
> >
> > If run without the IDE Dr Watson comes up then the program quits.
> > I am running D4 C/S sp3, NT4 sp4 on Pentium Pro 200 with 128Meg Ram
> > In saying that I recall when automatically downloading the html pages (in
order to get the html on my hard drive) some pages would time out so I had to
increase the timeout time to have the pages download seamlessly.
> > Could the same thing be happening here?
> > If so how can it be set?
> > --
> > Cheers
> > Glenn Shukster of Gms Computing Inc.
> > Thornhill, Ont. Canada
> > Phone:(905)771-6458   Fax:(905)771-6819  http://members.home.net/gms
> > http://members.home.net/gms
> >
>

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

I've read your message a couple of times and I'm still not sure what you're
doing.

What do you mean by "I downloaded all the html and related files"? Do you mean
from the Internet using HTTP? Like a web-crawler?

What do you mean by "automatically skip through say 300 records"? Are you
storing the files that you download in a DB? What do you mean by skip?

If you are trying to download a bunch of HTML pages to review offline or in some
DB, then you shouldn't be using WebBrowser. Rendering each of the HTML pages is
too slow. Just use an HTTP component and get the pages you want, then use
WebBrowser to view them later. If you don't want to use the HTTP component that
comes with Delphi, try the free ones at http://www.rtfm.be/fpiette/indexuk.htm.
I've already written a simple web-crawler using this component. It works fine.

Henri

Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=7
> Hi
> If I downloaded all the html and related files to my machine and automatically
skip through say 300 records it does this perfectly.
> With the exact same code when viewing records from the server it will
> view anywhere between 1 and 30 before it bombs.
> If I skip throught the same 3 records over and over from the server it did not
bomb.
>
> My knowledge of CPU error codes is limited.
> The same CPU error comes up every time when it bombs.
> The error from the cpu is 71012B7B movsx edx,[eax+ebx]
> The below values will change.
> EAX = FFFFFFAE, EBX = 001AE008, CF = 1, [$001ADFB6]=???
> Movsx means it copies a signed value into a larger type.
>
> If run without the IDE Dr Watson comes up then the program quits.
> I am running D4 C/S sp3, NT4 sp4 on Pentium Pro 200 with 128Meg Ram
> In saying that I recall when automatically downloading the html pages (in
order to get the html on my hard drive) some pages would time out so I had to
increase the timeout time to have the pages download seamlessly.
> Could the same thing be happening here?
> If so how can it be set?
> --
> Cheers
> Glenn Shukster of Gms Computing Inc.
> Thornhill, Ont. Canada
> Phone:(905)771-6458   Fax:(905)771-6819  http://members.home.net/gms
> http://members.home.net/gms
>

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hi
If I downloaded all the html and related files to my machine and automatically
skip through say 300 records it does this perfectly.
With the exact same code when viewing records from the server it will
view anywhere between 1 and 30 before it bombs.
If I skip throught the same 3 records over and over from the server it did not
bomb.

My knowledge of CPU error codes is limited.
The same CPU error comes up every time when it bombs.
The error from the cpu is 71012B7B movsx edx,[eax+ebx]
The below values will change.
EAX = FFFFFFAE, EBX = 001AE008, CF = 1, [$001ADFB6]=???
Movsx means it copies a signed value into a larger type.

If run without the IDE Dr Watson comes up then the program quits.
I am running D4 C/S sp3, NT4 sp4 on Pentium Pro 200 with 128Meg Ram
In saying that I recall when automatically downloading the html pages (in order
to get the html on my hard drive) some pages would time out so I had to increase
the timeout time to have the pages download seamlessly.
Could the same thing be happening here?
If so how can it be set?
--
Cheers
Glenn Shukster of Gms Computing Inc.
Thornhill, Ont. Canada
Phone:(905)771-6458   Fax:(905)771-6819  http://members.home.net/gms
http://members.home.net/gms

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

Hi
Try this
Set Docksite to true for main form.
Set Dragkind to dkDock for form with explorer on it.
Put them together and boom!!!

Henri Fournier pointed me in the right direction by
writing you need to have TWinControl around
the parent or you get a "can't assign to a read only"
message. Thus, the error occurs when parent properties are
being reset.
WebBrowser := TWebBrowser.Create;
TWinControl(WebBrowser).Parent := Form1;
WebBrowser.Align := alCient;

I confirmed his theory.
You can do docking if the form has not been shown and
do a manualdock.
Thus, my ugly work around is to close and free the form
and then recreate it either docked or undocked.

I have submitted this bug to Borland today.
--
Cheers
Glenn Shukster of Gms Computing Inc.
Thornhill, Ont. Canada
Phone:(905)771-6458   Fax:(905)771-6819  http://members.home.net/gms
http://members.home.net/gms

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

In short: I want to disable 'print all linked documents' and 'print links as a
table' checkboxes.

Since my application shows HTML pages that contains application-defined
pseudo-links, that options are not only meaningless but also prevents the
browser from printing successfully.

Is there any solution?

I've installed IDocHostUIHandler using ICustomDoc::SetUIHandler.
Most things are working well, except for IDocHostUIHandler::GetOptionKeyPath -
it is not called at all.
That callback function is needed to alter the header and the footer on printing
in my application without affecting the global settings.
I suspect the 'timing' that the callback is called. Maybe MSHTML call it 'only
once' when itself is instantiated. But since I use WebBrowser control instead of
'hosting' MSHTML directly, I have no control of instantiating it.
Am I out of luck? Should I 'host' MSHTML directly by implementing a container?

Hi Adam,

For those of us who haven't seen the C++ Driller demo, could you please
elaborate.

The DHTMLEdit component publishes a ScrollBarAppearence property, so I checked
the DHTMLEdit_TLB.pas file, but didn't find anything that would help.

Henri

  <00e001be748f$fdad7020$0100005-@...> wrote:
Original Article: http://www.egroups.com/list/delphi-webbrowser/?start=2
> Hi Henri (and the rest of the list),
>
> Great idea about starting a list for Delphi/browser control people. I was
actually thinking about that last week. It seems like more and more Delphi'ers
are showing up in the newsgroups.
>
> Here's my first question:
>
> I've got IDocHostUIHandler working (using ICustomDoc.SetUIHandler), but not in
the way I want. I'd like to implement it like the C++ driller example so that I
can get flat-scrollbars working. Anyone been able to do that?
>
> Adam
>
>

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/delphi-webbrowser
Free Web-based e-mail groups by eGroups.com

This group is for all Delphi developers who have an interest in using
Microsoft's Internet Explorer (WebBrowser) component in their Delphi
application.

You have to join the group in order to post, but anyone can read the messages.

Before posting a question, please the check the FAQ at
http://members.home.net/hfournier to see if it's already been answered.

Group Manager: delphi-webbrowser-owner@egroups.com

To subscribe, send a message to delphi-webbrowser-subscribe@egroups.com or go to
the e-group's home page at http://www.egroups.com/list/delphi-webbrowser