图片太大或太多了,想一下,光每次加载、保存图片需要多久。用:Image1.Picture.Bitmap.LoadFromFile()

解决方案 »

  1.   

    放到资源文件里面,然后做一个dll,将资源文件编译进dll,然后应用程序需要用的时候就读出来。你的程序不是一启动就要把这几十张文件都显示出来吧。
      

  2.   

    制作方法。
    第一步:先制作扩展名.rc的文件。文件内容如下,你可以根据实际情况修改
    jpeg1 RCDATA "e:\images\xxxx.jpg"
    jpeg2 RCDATA "e:\images\xxxx.jpg"
    jpeg3 RCDATA "e:\images\xxxx.jpg"
    然后将其保存到工程目录中,用下面的方法编译为资源文件。
    e:\delphi6\bin\brcc32.exe e:\YouProjectPath\jpeg.rc
    第二步:新建一个dll工程,引入该资源文件
    {$R jpeg.res}
    然后编译。最后,在应用程序需要用的时候加载图片.
    uses Jpeg;
    procedure Xxxx.xxxx;
    var
      hDll: THandle;
      JpegImage: TJpegImage;
      RS: TResourceStream;
    begin
      hDll := LoadLibrary('jpeg.dll');
      if hDll <> 0 then
      begin
        JpegImage := TJpegImage.Create;
        RS := TResourceStream.Create(hDll, 'jpeg1', RT_RCDATA);
        RS.Position := 0;
        JpegImage.LoadFromStream(RS);
        Image1.Picture.Graphic := JpegImage;
        JPegImage.Free;
        RS.Free;
      end;
      FreeLibrary(hDll);
    end;