2,497
社区成员
发帖
与我相关
我的任务
分享
var
jpg:TJPEGImage;
i:integer;
begin
jpg:=TJPEGImage.Create;
try
for i:=1 to 100000 do
begin
jpg.LoadFromFile( 'd:\a.jpg ');
with cdspic do
begin
insert;
fieldbyname(zhaopian).assign(jpg);
post;
Applyupdates(0);
end;
end;
finally
jpg.free;
end;
end;