delphi导出数据数据量大时无法移动窗口的问题

[老杨_sz]

代码如下：

如何改进调用此函数，正在导出数据时，可以最小化，移动窗口，可以执行其它应用程序。

function Tdm.DBGExport(var dbg: TDBGridEh): Boolean;
var
  fd_file: TSaveDialog;
  fn: string;
  sa: boolean;
begin
  Application.ProcessMessages;
  result := true;
  fd_file := TSaveDialog.Create(Application);
  try
    fd_file.DefaultExt := 'xls';
    fd_file.Filter := 'Microsoft Excel 文件(*.xls)|*.XLS|文本文件(*.txt)|*.TXT|Csv文件(*.csv)|*.Csv|HTML文件(*.htm)|*.htm|RTF文件(*.rtf)|*.RTF';
    if (not dbg.DataSource.DataSet.Active) or (not fd_file.Execute) then
    begin
      //messagebox(application.Handle,'没有任何数据,不能进行保存','警告',mb_ok);
      result := False;
      Exit;
    end;
    fn := fd_file.filename;
    sa := (dbg.Selection.SelectionType = gstNon);
    case fd_file.FilterIndex of
      2: SaveDBGridEhToExportFile(TDBGridEhExportAsText, dbg, fn, sa);
      3: SaveDBGridEhToExportFile(TDBGridEhExportAsCsv, dbg, fn, sa);
      4: SaveDBGridEhToExportFile(TDBGridEhExportAsHTML, dbg, fn, sa);
      5: SaveDBGridEhToExportFile(TDBGridEhExportAsRTF, dbg, fn, sa);
    else
      SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, dbg, fn, sa);
      Application.ProcessMessages;
      Application.MessageBox('导出EXCEL数据成功！','提示');
    end;
  finally
    fd_file.Free;
  end;
end;

[阿三]

建个线程，让导出在后台运行。

你的数据量有多大？

[老杨_sz]

[Quote=引用 4 楼 zxf_feng 的回复:]
建个线程，让导出在后台运行。

你的数据量有多大？
[/Quote]


你的数据量有多大？
每次导出都是3-5万左右，因为这个导出代码不支持EXCel分标签

[bylgood]

用线程了

[亮剑_]

改成多线程，导出操作和界面刷新分开

[hongss]

线程被占用了

[麦客来了]

DBGExport方法在内部的SaveDBGridEhToExportFile方法执行时阻塞了，把Application.ProcessMessages;放到Case语句前面试试，如果不行的话，把导出代码放到一个独立的线程中去，导出完成后给主线程发一个消息，主线程收到消息以后提示导出成功。

[老杨_sz]

[Quote=引用 1 楼 biekvn 的回复:]
DBGExport方法在内部的SaveDBGridEhToExportFile方法执行时阻塞了，把Application.ProcessMessages;放到Case语句前面试试，如果不行的话，把导出代码放到一个独立的线程中去，导出完成后给主线程发一个消息，主线程收到消息以后提示导出成功。
[/Quote]

把导出代码放到一个独立的线程中去？？？？如何做？新手啊

[SQLDebug_Fan]

新手不代表不可以学，去找找线程的资料。

[haochin]

数据太多还真的只能用多线程的。

[haochin]

看看吧，简单的多线程：

function myfun(p : Pointer):Integer;stdcall;
var
  i : Integer;
begin
  for i := 0  to  500000 do
  begin
    Form1.Canvas.Lock;
    form1.Canvas.TextOut(10,10,IntToStr(i));
    form1.Canvas.Unlock;
  end;
  Result :=0;  
end;

这个子调用：

procedure TForm1.btn3Click(Sender: TObject);
var
  id : THandle;
begin
  CreateThread(nil,0,@myfun,nil,0,id);
end;

这样子在调用上面的函数时，就创建了一个线程。不会影响你主线程的操作。

[lyhoo163]

upup