Question

我已经在DB中的表中的长blob字段中存储了包含TStringgrid表的记录。我正在使用下面的代码在DB中检索存储在表中的长blob。但是它很慢。有人建议使用delphi快速将打印为DB中的longblob的tstringgrid数据打印到word中的图表中。

Field := mySQLQuery1.FieldByName('Table');  //Accessing the table field in DB
blob := mySQLQuery1.CreateBlobStream(Field, bmRead); 
F := TStringList.Create;
try
  F.LoadFromStream(blob); //To load blob into string list
  try
    rowCount:= StrToInt(F[0])-1; //To get the total count of rows in string grid
    colCount:= StrToInt(F[1]); //To get the total count of columns in string grid

    aShape := WordApplication1.ActiveDocument.InlineShapes.Item(1); //To access the excel embedded chart in word
    ashape.OLEFormat.Activate;
    control2 := aShape.OLEFormat.Object_ as ExcelWorkBook;
    AWorkSheet := control2.sheets['Table1'] as ExcelWorkSheet; //To access the sheet in word
  except
    on E: Exception do
      MessageDlg(E.Message, mtInformation, [mbOk], 0);
  end; { try }

  i:= 2;           
  while i <= rowCount do
  begin
    str:=F[i + 2];  
    //The values of each row stored in Tstringgrid for example are of the followingorder 
    //',,,,,,"0,00011","13,6714","0,00023","13,5994"'

    for j := 1 to colCount do
    begin
      a:=pos('"',str);
      b:=pos(',',str);
      if (b<a) OR (a=0) then //To get and remove all null values by using searching for , delimiter
      begin
        if b=0 then substring:=str
        else
        begin
          substring:=copy(str,0,pos(',',str)-1);
          str:=copy(str,pos(',',str)+1,length(str));
        end; {if}
      end {if}
      else
      begin   //To get all values by using searching for " delimiter
        str:=copy(str,pos('"',str)+1, length(str));
        substring:=copy(str,0,pos('"',str)-1);
        str:=copy(str,pos('"',str)+2,length(str));
      end; {else}
      if substring<> '' then
      begin
        AWorkSheet.Cells.Item[i, (j-6)].value := StrToFloat(substring);
      end;
    end; {for j}
    i := i + 1;
  end;{ while i}
finally
  F.Free;
  freeandnil(blob);
end; {try}

Answer 1

根据评论，瓶颈是对

的分配

AWorkSheet.Cells.Item[i, (j-6)].value

循环。这是自动化Excel时常犯的错误。每次调用自动化Excel都会产生很大的成本，因为您正在对不同的进程执行COM调用。这样做有很大的开销。

不是使用N个不同的调用来设置数据，而是为每个单元设置一个，而是使用一个分配给所有N个单元的调用来设置数据。通过选择表示工作表的整个目标区域的范围来执行此操作，并在一次调用中分配包含所有N个项目的变量数组。

可以在此处找到一些示例代码：c++ Excel OLE automation. Setting the values of an entire cell-range 'at once'

快速从Tstringgrid检索数据并在包含word的图表中填充检索到的数据

1 个答案: