我如何保存图像,稍后在Idhttp中使用它们

时间:2015-09-09 14:21:28

标签: delphi delphi-xe7 idhttp

按照我之前关于更新listview inside thread here

的问题进行操作

我开始以不同的方式思考以解决我之前的问题,因为下载过程需要太长时间并且需要很多带宽我想下载GIFimage然后将其保存在磁盘上然后在我的应用程序中使用它  这是当前的下载线程代码

procedure TDownloadImage.Execute;
var
  aMs: TMemoryStream;
  aIdHttp: TIdHttp;
begin
  FGif := TGifImage.Create;
  try
    aMs := TMemoryStream.Create;
    try
      aIdHttp := TIdHttp.Create(nil);
      try
        aIdHttp.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
        aIdHttp.Get(FURL, aMs); // here is the client FURL
      finally
        aIdHttp.Free;
      end;
      aMs.Position := 0;
      FGif.LoadFromStream(aMs);
      FGif.Transparent := True;
    finally
      aMs.Free;
    end;
    if Assigned(FOnImageReady) then
      Synchronize(DoImageReady);
    end;
  finally
    FGif.Free;
  end;
end;

我想在计算机客户端上保存FURL的图像然后如果要求再次下载此图像中止下载过程并从客户端计算机加载它我怎么可能这样做?

0 个答案:

没有答案