tWebBrowser: hvordan ændre HTML-indholdet

Er det en slags webeditor du vil lave?

Nej, det er bare fordi jeg vil gemme nogle hjemmesider på min harddisk, så jeg kan bruge dem når jeg ikke er på internettet. Når jeg klikker på links'ene, så skal den læse filerne ind fra harddisken i stedet for at forsøge at finde dem på nettet. Derfor skal jeg ændre de steder i HTML-koden hvor der står <a href=...
og herefter gemme twebbrowseren som en MHT-fil.
Det er måske nok en smartere måde at gøre det på?

Hvis du vil lave en .mht fil

http://www.delphi3000.com/articles/article_3991.asp

Stoney

Jeg kan godt finde ud af at gemme MHT-filerne, men problemet er at jeg gerne vil ændre siden i tWebbrowseren, før jeg gemmer den.

der er en del måder at gøre det på.

uses
  ActiveX;

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
  sl: TStringList;
  ms: TMemoryStream;
begin
  WebBrowser.Navigate('about:blank');
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
  Application.ProcessMessages;

  if Assigned(WebBrowser.Document) then
  begin
    sl := TStringList.Create;
    try
      ms := TMemoryStream.Create;
      try
        sl.Text := HTMLCode;
        sl.SaveToStream(ms);
        ms.Seek(0, 0);
        (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
      finally
        ms.Free;
      end;
    finally
      sl.Free;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WB_LoadHTML(WebBrowser1,'SwissDelphiCenter');
end;




Men hvis du skal ændre links vil jeg tro at denne funktion kan ændres til alle links istedet:

procedure TForm1.Button1Click(Sender: TObject);
var
  li: Word;
begin
  // Loop through all images of a TWebbrowser

  for li := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
    // Exchange image with an own image
    WebBrowser1.OleObject.Document.Images.Item(0).Src := 'c:\MyImage.gif';
end;