Zapisz jako...

Mam takie pytanie jak zapisać na dysku zawartość komponentu TWebBrowser, chodzi mi o coś jak "zapisz jak..." w IE

Poszukaj na swissdelphicenter.ch.

// Dopisane
Drajwer: Świetnie, tylko co z obrazkami? Poza tym to jest dział delphi, więc zapewne chodziło o programowe....

Klikasz prawym klawiszem na webbrowser wybierasz pokaz zrodlo i z notatnika juz zapisz jako proste nie?

Drajwer chodziło mi o coś w stylu Plik->Zapisz jako...
Bo prawym przyciskiem to też potrafie ale nie o to chodzi...

Prosze... :-)

procedure WBSaveToFile(const WB: TWebBrowser; const FName: string);
var
  F: file;
  S: string;
  V: Variant;
begin
  AssignFile(F, FName);
  {$I-} Rewrite(F, 1); {$I+}
  if IOResult <> 0 then Exit;
  try
    V := WB.OleObject.document.getElementsByTagName('HTML');
    S := V.item(0).outerHTML;
    BlockWrite(F, Pointer(S)^, Length(S));
  finally
    CloseFile(F);
  end;
end;