如何获取数据库导入数据的进度?

[fangjx]

我用以下代码导入数据到数据库,请问如何获取其导入进度并显示进度?
var
MemStream: TMemoryStream;
begin
if OpenPictureDialog1.Execute then
begin
for I := 0 to OpenPictureDialog1.Files.Count - 1 do //添加文件
begin
MemStream := TMemoryStream.Create; //创建流
try
MemStream.LoadFromFile(OpenPictureDialog1.Files[I]);
MemStream.Seek(0, soFromBeginning);
Compress(MemStream); //压缩文件
MemStream.Seek(0, soFromBeginning);
with ADOQuery2 do
begin
Append;
TBlobField(FieldByName('图片)).LoadFromStream(MemStream);
ADOQuery2.Post;
end;
finally
MemStream.Free;
end;
end;
end;

[fangjx]

.......这样能显示导入数据的进度？？？真晕！！

[maimaizhi]

加一个显示进度的进程。

[samcrm]

放个ProgressBar。

var
MemStream: TMemoryStream;
begin
if OpenPictureDialog1.Execute then
begin
ProgressBar1.position:=0;
ProgressBar1.Max:=OpenPictureDialog1.Files.Count - 1;
for I := 0 to OpenPictureDialog1.Files.Count - 1 do //添加文件
begin
MemStream := TMemoryStream.Create; //创建流
try
MemStream.LoadFromFile(OpenPictureDialog1.Files[I]);
MemStream.Seek(0, soFromBeginning);
Compress(MemStream); //压缩文件
MemStream.Seek(0, soFromBeginning);
with ADOQuery2 do
begin
Append;
TBlobField(FieldByName('图片)).LoadFromStream(MemStream);
ADOQuery2.Post;
end;
finally
MemStream.Free;
end;
ProgressBar1.position:=ProgressBar1.position+1;
end;
end;

[menggirl]

Application.ProcessMessage;

[fangjx]

不是啊。我想在导入1个图片的时候显示当前图片的导入进度.而不是导入多个图片时的图片个数导入进度.