dbgrideh数据导出的问题

qq_18994603 2017-09-03 02:29:26

有一个程序A delphi6项目编译的exe。我写了一个dll注入程序获取了项目a的dbgrideh句柄，句柄转dbgrideh对象obj 然而在获取obj.Datasource属性的时候崩溃了提示dll address地址错误。我自己也写了一个项目B 用注入程序成功获取了B项目对应dbgrideh的数据。项目A和项目B的区别就是 a不知道ehlib的版本 b和dll注入程序同一个版本的第三方控件。

...全文

166 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

qq_18994603 2017-09-03

打赏
举报

回复

引用 1 楼 lyhoo163的回复:

不同的版本，数据结构不样，地址偏移不一样，造成Add错误。

那么亲问我应该看哪些书籍或者工具去填补这方面的空缺？

lyhoo163 2017-09-03

打赏
举报

回复

不同的版本，数据结构不样，地址偏移不一样，造成Add错误。

delphi xe10.2下的dbgrideh表格数据导出txt，xls文件

特点：一、不需安装Excel即可导出。二、有进度条。三、最多可以导出多少条，我没试，我试了5万条没有问题，时间也就是只需1-5分钟（我电脑较慢）。四、需安装ehlib组件。使用方法(注：别忘了uses DBGridToExcel;)：procedure TForm1.btn2Click(Sender: TObject);var DBGridEhToExcel: TDBGridEhToExcel; ExcelFileName: string;begin DBGridEhToExcel := TDBGridEhToExcel.Create(nil); try DBGridEhToExcel.TitleName := '导出测试'; DBGridEhToExcel.BeginDate := '开始日期：2005-07-01'; DBGridEhToExcel.EndDate := '结束日期：2005-07-18'; DBGridEhToExcel.UserName := '系统管理员'; DBGridEhToExcel.DBGridEh := DBGridEh1; DBGridEhToExcel.ShowProgress := True; if ExcelFileName = '' then begin ExcelFileName := 'c:\1.xls'; with TSaveDialog.Create(nil) do begin Filter := 'Microsoft Excel xls文件|*.xls'; DefaultExt := 'xls'; if not Execute then Exit else ExcelFileName := FileName; end; end; DBGridToExcel.FileName := ExcelFileName; DBGridEhToExcel.ExportToExcel; finally DBGridEhToExcel.Free; end;end;

在他人的DBGridEh导出到Excel的基础上进行改进，增加功能如下： 1、支持多个DBGridEH同时导出到Excel的不同Sheet页 2、进度条与数据进度保持一致 3、增加了进度百分比显示 //调用方法: procedure TForm1.Button1Click(Sender: TObject); var DbOut: TDBGridEhToExcel; i: integer; begin try DbOut := TDBGridEhToExcel.Create(Self); for i := 0 to 9 do //初始化数组 begin DbOut.DBGridEhRecAry[i].TempDBGridEh := nil; DbOut.DBGridEhRecAry[i].TitleName := ''; DbOut.DBGridEhRecAry[i].SheetTabName := ''; end; //有多少个DBGridEh的数据要导出，此处表示两个 DbOut.DBGridEhRecLength := 2; //统计结果一 DbOut.DBGridEhRecAry[0].TempDBGridEh := dbgSpotCheckCount; DbOut.DBGridEhRecAry[0].TitleName := '统计结果一'; DbOut.DBGridEhRecAry[0].SheetTabName := '统计结果一'; //统计结果二 DbOut.DBGridEhRecAry[1].TempDBGridEh := dbgValuationCount; DbOut.DBGridEhRecAry[1].TitleName := '统计结果二'; DbOut.DBGridEhRecAry[1].SheetTabName := '统计结果二'; DbOut.TitleName := '统计结果'; DbOut.ShowProgress := True; DbOut.ShowOpenExcel := True; DbOut.ExportToExcel; finally FreeAndNil(DbOut); end; end; 还可以改进的地方，比如： 1、标题栏占用几行，字体，字体颜色，字体大小，背景颜色可以封装提供设置方法； 2、字段标题字体，字体颜色，字体大小； 3、表格样式设置；就是动态数据不会封装到类里面，如果有高人封装得更好一些，请发一份我；

Delphi使用DBGridEh数据集合导出，不用安装EXCEL软件就可以导出，功能强大。建议使用，非常好用

在应用DBgridEH做为显示数据控件时，大家可能经常要写一段代码将数据导出来，或是EXCEL或是HTML或是其它格式，在仔细研究dbgrideh代码时发现，它已经写好了这些功能。可以向excel、txt、csv、rtf、html等，很多种格式导数据，而且向EXCEL导出数据时并不需要机器安装EXCEL，所以写了一段代码将dbgrideh的这一功能展示给大家，希望能给大家带来方便。　使用方法。1、将frmoupt.pas加入你的project2、在需要的地方头引用frmoupt3、写入如下代码With Tfmoupt.create(self) dobegin ADBG:=self.dbgrideh1; showmodal; free;edn;4、按提示操作即可大家可以参考使用的效果图。欢迎交流pcode@163.com

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章