打开一个例子网页，替换其中的图片，生成用户自已定义内容的网页，我该怎么做呢？

我有一些做好的例子的网页，让教师选个模板，用他自己收集的课件和其说明替换模板中的相应课件和说明，在delphi中做。我该怎么做？而IntraWeb吗？怎么一点头绪都没有，用intraweb做了个简单的网页，不知怎么编译运行，它和普通的窗体不同啊

解决方案 »

  1.   

    twebbrowser完全可以。只要你做好字符串替换工作。当然，一定要了解html语法。动态生成网页，让twebbrowser.navigate之或者直接让twebbrowser显示内存中的数据：unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, OleCtrls, SHDocVw,shlobj,ComObj,mshtml,activex;type
      TForm1 = class(TForm)
        WebBrowser1: TWebBrowser;
        procedure FormActivate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementationfunction IELoadFromStream(Webbrowser:TWebbrowser;AStream:TStream):integer;
    var
    flag1,flag2,flag3,flag4,blankurl:olevariant;begin
      flag1:=0;
      flag2:=0;
      flag3:=0;
      flag4:=0;
      blankurl:='about:blank';
      with webbrowser do
      begin
      if not Assigned(Document) then
      begin    navigate2(blankurl,flag1,flag2,flag3,flag4);
        while readystate <> READYSTATE_COMPLETE do
        try
         Forms.Application.ProcessMessages;
        except
          exit;
        end;
      end;
      AStream.seek(0, 0);
      Result := (Document as IPersistStreamInit).Load(TStreamadapter.Create(AStream));
      end;
    end;
    procedure IEBrowse(Webbrowser:TWebbrowser;Html:string);overload;
    var
      stream:tstringstream;
    begin
    try
      stream:=tstringstream.Create(html);
      stream.Position:=0;
      ieloadfromstream(webbrowser,stream);
    except
    end;
      stream.Free;end;
    {$R *.dfm}procedure TForm1.FormActivate(Sender: TObject);
    beginiebrowse(webbrowser1,'<html><body><center>ppp</center></body></html>');
    end;end.