在delphi中如何建立一个doc文件？

Question

在delphi中如何建立一个doc文件？

Answer 1

如下：
var
     name：   string;//doc文件名无扩展名
    filename:   string;//doc文件全名
    filehandle: Integer;
 
    begin
                  filename:=name++'.'+doc;
                  filehandle:=FileCreate(filename);
                  fileclose(filehandle);
                  ShellExecute(0, nil,Pchar(filename),
                  nil, nil, SW_NORMAL);
   end;

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
tempfile:string;
FileHandle: Integer;
begin
//先将文件保存在临时文件中，然后再保存到数据库中
tempfile:=ExtractFilePath(Application.ExeName)+'temp.doc';FileHandle := FileCreate(tempfile);
if filehandle>0 then
......................
else
begin
...............
end;
fileclose(filehandle);
deletefile(tempfile)
我这样建立能够建立文件，但是不能操作
如果我打开这个建立的文件出现这样的提示Microsoft word无法打开导入的格式，这项功能尚未安装，是否现在安装？

Answer 3

//先将文件保存在临时文件中，然后再保存到数据库中
tempfile:=ExtractFilePath(Application.ExeName)+'temp.doc';？？？这段那里是保存在临时文件中呢？
这只是做了提取文件路径的操作。

Answer 4

楼上的，你建立的文件打开了吗？如果没有打开，当然不能够进行操作还有就是assign（）；

Answer 5

文件已经建立，就是打开出问题，我单独用word打开就出现提示:
Microsoft word无法打开导入的格式，这项功能尚未安装，是否现在安装？
下面是我的代码
tempfile:=ExtractFilePath(Application.ExeName)+'\temp.doc';
FileHandle := FileCreate(tempfile);
FileHandle:=FileOpen(tempfile,fmOpenWrite);
if filehandle>=0 then
begin
OleContainer1.SaveToFile(tempfile);
end
else
showmessage('打开文件失败');

Answer 6

我安装了office的这个功能之后，建立的doc文件能够用word打开了，
但是在程序里面还是出现'打开文件失败的提示'