使用TImage浏覽與保存網絡圖像

　　網絡ID:wnhoo or sos_admin
　　網名:e夢緣
　　Mail:[email protected]
　　風花雪月 e夢情緣

　　將http://delphi.ktop.com.tw/delphi.gif直接顯示在timage中！

　　保存為文件，然後顯示：

　　uses UrlMon ;
　　function DownLoadInternetFile(Source, Dest : String) : Boolean;
　　begin
　　  try
　　    Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
　　  except
　　    Result := False;
　　  end;
　　end;
　　
　　保存為Tsream，然後顯示:
　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　    tm: TMemoryStream;
　　begin
　　    try
　　        tm := TMemoryStream.Create;
　　        IdHTTP1.Get('http://delphi.ktop.com.tw/delphi.gif', tm);
　　        ShowMessage('OK');
　　    finally
　　tm.Free;
　　    end;
　　end;