【结】关于ExcelToTable控件吃内存的问题

xhong

请问ExcelToTable控件在执行导入后，为何有没释放的内存呢，
我用程序执行导入一个100列，10多行的表格到数据集内，每次bussiness.exe内存都增加20m左右，那个数据集我每次导入之前都会先EmptyDataSet，而且关闭当前窗口也不会释放，只有关闭客户端才会释放

atiger

把你的代码贴出来看看呢

xhong

procedure TMainForm.ImportExcel();
var
    i:integer;
    strErr:string;
    strFileName,strSheetName:string;
    excelHande:TExcelHandling;
    startRow,endRow,startColumn:Integer;
    ExcelToTablePlan: TExcelToTable;
begin
    try
        if dlgOpen.Execute then
        begin
            InDataSetBroker.DataSet.Open;
            InDataSetBroker.DataSet.EmptyDataSet;
            docMoldPlanList.DataGrid.Cursor:=Business.Forms.Controls.crAppStart;
            dlgOpen.Filter := 'Excel 97-2003 工作簿(*.xls)|*.xls|Excel 2007 工作薄(*.xlsx)|*.xlsx';
            dlgOpen.Title := '请选择要导入的计划数据文件';
            strFileName:=dlgOpen.FileName;
            //读Excel的工作簿名称
            try
                excelHande:=TExcelHandling.Create(strFileName);
                strSheetName := excelHande.ActiveSheetName;
                excelHande.AvailableRowsCount(strSheetName);
                startRow := excelhande.AvailableStartRow;
                endRow := startRow + excelHande.AvailableRowCount -1;
                startColumn:=excelHande.AvailableStartColumn;
            finally
                excelHande.Free;
            end;
            try
                //为解决多次导入sheet名称不同的excel时导入控件报错的问题，每次导入创建新控件
                ExcelToTablePlan:=TExcelToTable.Create(self);
                ExcelToTablePlan.FileName:=strFileName;
                ExcelToTablePlan.DataSource:=InDataSetBroker;
                ExcelToTablePlan.StartRow:=startRow;
                ExcelToTablePlan.EndRow:=endRow;
                 //设置EXCEL的映射关系
                ExcelToTablePlan.FieldMap.Clear;
                for i:=1 to 100 do
                begin
                    ExcelToTablePlan.FieldMap.Add('DataSetInDataSet.YHZD'+SysUtils.IntToStr(i)+'='+strSheetName+'['+SysUtils.IntToStr(startColumn-1+i)+',0]');
                end;

                ExcelToTablePlan.Execute(strErr);
                if strErr<>'' then
                    jsdialogs.ShowMsg(strErr,'');
            finally
                ExcelToTablePlan.Free;
            end;
            SetUpMakeAddress(InDataSetBroker.DataSet);
            docMoldPlanList.ImportToUserDS(InDataSetBroker.DataSet);
            docMoldPlanList.DataGrid.Cursor:=Business.Forms.Controls.crDefault;
            docMoldPlanList.ValidateData(lvwError);
        end;
    Except
        dialogs.ShowMessage('导入格式不正确');
        InDataSetBroker.DataSet.EmptyDataSet;
    end;
end;

atiger

呵呵，楼主 用 “ExcelToTable*内存”在 bbs 上搜索一下吧，

xhong

只有两个相关帖子，貌似说缺陷已经解决，但我的版本是3002 ，吃内存问题依然存在

atiger

楼主，我没有你这个版本，你这样尝试一下，就是http://bbs.justep.com/forum.php?mod=viewthread&tid=21567  这个4楼说用代码来创建一下 ExcelToTable  ，然后释放。

另外，你的代码写的有点不规范，try应该写在create后面，而不是前面。例如
...
try
   excelHande:=TExcelHandling.Create(strFileName);
...
应该写成
...
excelHande:=TExcelHandling.Create(strFileName);
try
...

xhong

摆脱你仔细看一下好不好，我就是代码创建的exceltotable，然后释放的

zfang

请稍等，我们这边测试下。

xhong

？？？？？

zfang

还请楼主等等，我这边还没有结果。