我使用 TWebBrowser 元件, 瀏覽某一網頁, 然後取得網頁的 html 內容加以處理 這樣的過程, 其實我只需要 TWebBrowser 幫我取得 html 內容即可 但 TWebBrowser 下載完 html 之後, 都會解析其中的連結, 並下載圖片檔 這樣蠻浪費時間與頻寬的 我依稀記得好像可以指示 TWebBrowser 不要下載圖檔 ??? 不曉得該怎麼做 ?

使用EmbeddedWB元件，把屬性DownloadOptions的DLCTL_DLIMAGES設為False 即可! 參考：http://www.euromind.com/iedelphi/    網海無涯，唯學是岸！ 因為擁有，所以分享！

請問使用 Delphi 內建的 TWebBrowser 元件也可以做到嗎 ? 因為 EmbeddedWB 元件好像沒在維護了, 不敢用

http://groups.google.com/groups?q=delphi+DLCTL_DLIMAGES&hl=zh-TW&lr=&selm=8qsrga%2415s3%241%40ddt.demos.su&rnum=2    1.繼承TWebBrowser 2.參考EmbeddedWB 單元 自己寫一個DownloadOptions功能        網海無涯，唯學是岸！ 因為擁有，所以分享！ 發表人 - qoo1234 於 2004/12/01 18:48:36

unit FzWebBrowser;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics,Controls, OleCtrls, SHDocVw_TLB,
  MSHTML_TLB,ActiveX, shlObj, Wininet, Urlmon,shellapi;    const  DISPID_AMBIENT_DLCONTROL = (-5512);    type      TDownloadControlOption = (
    DLCTL_DLIMAGES, DLCTL_VIDEOS, DLCTL_BGSOUNDS,  DLCTL_NO_SCRIPTS,
  //$00000010,  $00000020, $00000040, $00000080,        DLCTL_NO_JAVA,  DLCTL_NO_RUNACTIVEXCTLS,
    DLCTL_NO_DLACTIVEXCTLS,  DLCTL_DOWNLOADONLY,
  //$00000100, $00000200, $00000400, $00000800,        DLCTL_NO_FRAMEDOWNLOAD, DLCTL_RESYNCHRONIZE,
    DLCTL_PRAGMA_NO_CACHE, DLCTL_NO_BEHAVIORS,
  //$00001000, $00002000, $00004000, $00008000,        DLCTL_NO_METACHARSET, DLCTL_URL_ENCODING_DISABLE_UTF8,
    DLCTL_URL_ENCODING_ENABLE_UTF8,DLCTL_OFFLINEIFNOTCONNECTED,
  //$00010000, $00020000, $00040000, $00080000,        DLCTL_FORCEOFFLINE, DLCTL_NO_CLIENTPULL,
    DLCTL_SILENT, DLCTL_OFFLINE
  //$10000000, $20000000, $40000000, $80000000        );    const
  acardDownloadControlValues: array[TDownloadControlOption] of Cardinal =
  ($00000010, $00000020, $00000040, $00000080,
   $00000100, $00000200, $00000400, $00000800,
   $00001000, $00002000, $00004000, $00008000,
   $00010000, $00020000, $00040000, $00080000,
   $10000000, $20000000, $40000000, $80000000);    type
  TDownloadControlOptions = set of TDownloadControlOption;      TFzWebBrowser = class(TWebBrowser,IDispatch)
  private
    { Private declarations }
    FDownloadOptionValue: Longint;
    FDownloadControlOptions: TDownloadControlOptions;    
    procedure SetDownloadOptions(const Value: TDownloadControlOptions);
    procedure UpdateDownloadControlValue;  
  protected
    { Protected declarations }
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
  public
    { Public declarations }
    property DownloadOptionValue:Longint read FDownloadOptionValue write FDownloadOptionValue;
  published
    { Published declarations }
    property DownloadOptions: TDownloadControlOptions read FDownloadControlOptions write SetDownloadOptions;
  end;    procedure Register;    implementation    function TFzWebBrowser.Invoke(DispID: Integer; const IID: TGUID; LocaleID:Integer;
             Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
begin
  Result := S_OK;
  if (Flags and DISPATCH_PROPERTYGET <> 0) and (VarResult <> nil) and
    (DispId = DISPID_AMBIENT_DLCONTROL) then
    PVariant(VarResult)^ := FDownloadOptionValue
  else
      Result := inherited Invoke(DispID, IID, LocaleID, Flags, Params,
        VarResult, ExcepInfo, ArgErr);
end;    procedure TFzWebBrowser.SetDownloadOptions(const Value: TDownloadControlOptions);
begin
  FDownloadControlOptions := Value;
  UpdateDownloadControlValue;
  (Application as IOleControl).OnAmbientPropertyChange(DISPID_AMBIENT_DLCONTROL);
end;    procedure TFzWebBrowser.UpdateDownloadControlValue;
var
  i: TDownloadControlOption;
begin
  FDownloadOptionValue := 0;
  if (FDownloadControlOptions <> []) then
    for i := Low(TDownloadControlOption) to High(TDownloadControlOption)do
      if (i in FDownloadControlOptions) then
        Inc(FDownloadOptionValue, acardDownloadControlValues[i]);
end;    procedure Register;
begin
  RegisterComponents('ActiveX', [TFzWebBrowser]);
end;    end.     

網海無涯，唯學是岸！ 因為擁有，所以分享！

我將這個 TFzWebBrowser 元件安裝起來, 過程中卻發生錯誤 錯誤訊息是 A class named TWebBrowser already exists. 奇怪 ?

參考http://www.euromind.com/iedelphi/gettingstarted/started_d5.htm 只是不安裝EmbeddedWB元件..其他原有delphi的TWebBrowser先移除 其他..如他所說 ..應該OK..    網海無涯，唯學是岸！ 因為擁有，所以分享！