TDBGridEh里面显示图片,怎么把图片缓存起来

daigua1987 2024-09-20 18:36:17

我是在DrawColumnCell事件里面根据图片路径加载图片出来的

procedure TFSOrder.DetailGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
var
  jpeg: TDBImageEh;
  FileName: String;
  size: Integer;
begin
  if (Column.FieldName = 'IMG') and (Column.Field <> NIL) then
  begin
    jpeg := TDBImageEh.Create(self);
    jpeg.PicturePlacement := ipStretchEh;
    size := 100;
    try
      if FileExists(ExtractFilePath(ParamStr(0)) + 'IMG/' +
        DetailData.FieldByName('ProNo').AsString + '1.jpg') then
        FileName := ExtractFilePath(ParamStr(0)) + 'IMG/' +
          DetailData.FieldByName('ProNo').AsString + '1.jpg'
      else if FileExists(ExtractFilePath(ParamStr(0)) + 'IMG/' +
        DetailData.FieldByName('ProNo').AsString + '1.png') then
        FileName := ExtractFilePath(ParamStr(0)) + 'IMG/' +
          DetailData.FieldByName('ProNo').AsString + '1.png'
      else
        FileName := ExtractFilePath(ParamStr(0)) + 'IMG/WJ.JPG';
      MakeThumbnailImage(FileName, size, size, jpeg.Picture, True);
      DetailGrid.Canvas.StretchDraw(Rect, jpeg.Picture.Graphic);
    finally
      jpeg.Free;
    end;
  end;
end;

由于不停的去读取存储的图片,数据太多在拉动数据的时候,就会卡死。所以想把加载过的图片放到缓存里面,避免重复去读取存储,直接就获取缓存的图片

我是根据DetailData.FieldByName('ProNo').AsString去定位图片的 需要用这个做索引有什么办法

...全文
194 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
daigua1987 2024-09-23
  • 打赏
  • 举报
回复

问题已经解决

Android开发核心技术体系技术栈全景:基础架构:Java/Kotlin双语言体系、Android SDK、Gradle构建系统 UI体系:Jetpack Compose声明式UI、Material Design规范、多屏幕适配方案 核心组件:Activity生命周期管理、ViewModel数据持久化、WorkManager后台任务 性能优化:内存泄漏检测、ANR分析、ProGuard代码混淆 Android (Kotlin): 拥抱 Kotlin Coroutines 协程,精通 Jetpack Compose 声明式 UI,掌握 ViewModel, Room, WorkManager 等架构组件,深入性能优化与内存管理。 Flutter: 深度理解 Widget 树与渲染机制,掌握状态管理 (Provider, Riverpod, Bloc),熟练使用 Dart 异步编程,构建高性能、跨平台 (iOS/Android/Web/Desktop) 的富交互应用。 高阶技术方向: 架构设计:MVVM模式实现、模块化工程解耦 前沿领域:Flutter跨平台开发、机器学习Kit集成 工程实践:CI/CD自动化部署、Monkey测试策略 适用开发者群体: 具备编程基础的转型开发者 计算机相关专业在校学生 传统移动端开发技术升级者 智能硬件互联领域从业者 全套资料包含大厂面经、学习笔记、源码讲义、实战项目、大纲路线、讲解视频,并且后续会持续更新 技术成长路径:从基础组件掌握到性能调优进阶,最终实现架构设计能力跃迁,完整覆盖移动应用开发全生命周期管理需求。

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧