用WebBrowser实现另存的功能

Question

首先，先宣传一下自已的网站：www.studysea.net但是不能有弹出对话框，而且另存必须可以连图片，也能保存
网上也看过procedure TForm1.Button14Click(Sender: TObject);
var 
  PersistStream: IPersistStreamInit;
  FileStream: TFileStream; 
  Stream: IStream; 
  SaveResult: HRESULT;
  path:String;
begin
  PersistStream := WebBrowser1.Document as IPersistStreamInit;
  path:=getcurrentdir+'\beat.htm';
  FileStream := TFileStream.Create(path, fmCreate);  
  try 
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
    SaveResult := PersistStream.Save(Stream, True); 
    if FAILED(SaveResult) then 
      MessageBox(Handle, 'Fail to save HTML source', 'Error', 0); 
  finally 
    { we are passing soReference in TStreamAdapter constructor, 
      it is our responsibility to destroy the TFileStream object. } 
    FileStream.Free; 
  end;
end;
这个存也是可以存的，但是只能保存html，网页上的图片无法保存  

Answer 1

//uses UrlMon;
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end; 
end; procedure TForm1.Button3Click(Sender: TObject);
var
  k, p: Integer; 
  Source, dest, ext: string; 
begin
  for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
  begin 
    Source := WebBrowser1.OleObject.Document.Images.Item(k).Src;
    p := LastDelimiter('.', Source); 
    ext := UpperCase(Copy(Source, p + 1, Length(Source)));
    if (ext = 'GIF') or (ext = 'JPG') then
    begin 
      p  := LastDelimiter('/', Source); 
      dest := ExtractFilePath(ParamStr(0)) + Copy(Source, p + 1,Length(Source));
      DownloadFile(Source, dest);
    end; 
  end;
end;(注：可保存网页上的图片)

Answer 2

不错，可是我想保存http://bbs.aspsky.net/DV_getcode.asp这一页的图片，这页的图片是根据session随机生成，可以现有的程序却无法保存

Answer 3

用TNMHTTP控件（在控件的FastNet面板上）：  NMHTTP1.InputFileMode := true;
  NMHTTP1.Body := 'c:\ss01.jpg';
  NMHTTP1.Get('http://bbs.aspsky.net/DV_getcode.asp');

Answer 4

最好是webrowser下载，因为用别的下载session会不同，对我后来的程序分析分出错，请大家多多提供保贵建议，另外，宣传一下我的网站
www.studysea.net
大家有空来玩玩啊

Answer 5

http://bbs.aspsky.net/DV_getcode.asp
我這里打不開、NI自己看看在Internet Temporary(C:\WINDOWS\Temporary Internet Files)路経下、有NI要的图片嗎？
在Java中可用文件流処理图片、而没有gif等文件...

Answer 6

楼上的提醒了我，其实你浏览完毕了肯定是保存在Cache中的，你可以从cache中访问，访问的方法参见：http://dev.csdn.net/develop/article/13/13111.shtm

Answer 7

可是你不知道cache中该文件的文件名是什么，而且不同的操作系统中的cache文件夹也不一样