procedure TForm1.Doc1Click(Sender: TObject);
var
dd,aa:olevariant;
num,ii:integer;
sdir:string;
begin
for ii:=0 to (filelistbox1.Count-1) do
begin
filelistbox1.ItemIndex:=ii;
dd:=createoleobject('word.application');
aa:=dd.Documents.Open(filelistbox1.FileName);
sdir:=ExtractFileName(filelistbox1.FileName);
sdir:=copy(sdir,1,length(sdir)-4);
sdir:=filelistbox1.Directory+'\'+sdir+'.htm' ;
//showmessage(sdir);
aa.saveas(sdir,8);
dd.quit;
end;
end;
---------------------
在执行一段时间后(大约120个文档时)他会提示:什么内存或磁盘空间不够不能读取和打印图片
可是我的磁盘空间还有6。9G啊!!那里处了错??
var
dd,aa:olevariant;
num,ii:integer;
sdir:string;
begin
for ii:=0 to (filelistbox1.Count-1) do
begin
filelistbox1.ItemIndex:=ii;
dd:=createoleobject('word.application');
aa:=dd.Documents.Open(filelistbox1.FileName);
sdir:=ExtractFileName(filelistbox1.FileName);
sdir:=copy(sdir,1,length(sdir)-4);
sdir:=filelistbox1.Directory+'\'+sdir+'.htm' ;
//showmessage(sdir);
aa.saveas(sdir,8);
dd.quit;
end;
end;
---------------------
在执行一段时间后(大约120个文档时)他会提示:什么内存或磁盘空间不够不能读取和打印图片
可是我的磁盘空间还有6。9G啊!!那里处了错??
解决方案 »
- delphi Oracle :delphi连接oracle,从数据字典中查询出数据,通过delphi编程显示输出
- Delphi 控制Word Excel 插入页脚并且控制打印?
- 传结构体的指针至delphi开发的DLL问题
- 哪位大侠帮我解决难题!
- 救急————〉关于安装程序的制作(斑竹,救我)
- 在delphi中怎么对实数取模?!在Vc中可以用fmod(x,y)
- 如何实现:如果目录下有文件就删除目录下所有文件
- 如何将预览得到的报表转换成图片格式保存?
- 谁用过财务控件SNC?就是在dbgrid的Title上显示万、千、百、十、元、角、分的那个控件
- 'Trying to modify read-only field'是什么错误?
- 关于treeview的checkbox,动态提示等问题,我总结了一下,很片面,希望大家都能提出自己应用过程中的心得,把树形控件用好,用熟练。
- 如何屏蔽掉控件中的调试信息?
在出错的时候我用任务管理器去看的我
系统资源cpu利用率不到10%而内存也不到30%
还我的的配置是:
P3866
HY256
....
....
--------------------
那里出了错??
不是我的程序出了问题是被测试的word文档本身有错
-----------------------------------------------
结贴了咯