盒子论坛 v2.1

高手帮忙看看这段代码：

procedure TsampleForm.OpenDOCClick(Sender: TObject);
                  var
                  MemSize: Integer;
                  Buffer: PChar;
                  MyFile: TFileStream;
                  Stream: TBlobStream;
                  begin
                  OpenDialog1.Filter:='WORD文档(*.DOC)|*.DOC'
                  ;{从对话窗选择文件}
                  if OpenDialog1.Execute then begin
                  MyFile:=TFileStream.Create
                  (OpenDialog1.FileName,fmOpenRead);
                  with table1 do {‘table1’为含BLOB字段的表名}
                  begin
                  Open;
                  Edit;
                  Stream := TBlobStream.Create(FieldByName('Doc')
                  as TBlobField, bmWrite);
                  {‘Doc’为BLOB字段名}
                  MemSize := MyFile.Size;
                  Inc(MemSize); {Make room for the
                  buffer's null terminator.}
                  Buffer := AllocMem(MemSize);
                  {Allocate the memory.}
                  try
                  Stream.Seek(0, soFromBeginning);
                  {Seek 0 bytes from the stream's end point}
                  MyFile.Read(Buffer^,MemSize);
                  Stream.Write(Buffer^,MemSize);
                  finally
                  MyFile.Free;
                  Stream.Free;
                  end;
                  try
                  Post;
                  except
                  on E: EDatabaseError do
                  if HandelException(E)< >0 then exit                //这里好象有问题！！！
                  else
                  raise;
                  end;
                  end;
                  Doc_ole.CreateObjectFromFile
                  (OpenDialog1.FileName,False);
                  Doc_ole.Run;{Doc_ole为ToleContainer构件名}
                  end;
                  end;
                  ---- 以上为向数据库中写入的程序，应用中从对话窗取出文件在ToleContainer构件中显示的同时存入数据库。


这是我从网上找到的，我编译的时候老是过不去！谁能帮忙调试一下啊？
我用的是delphi7，ado+access！！为的是实现数据库中word文档的写入与读出~~~~
[emb12]
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/5/5 11:50:28

1楼：

这个是正常的啊这种信息捕获是在EXE单独运行时可以捕获的，编译时是不行的
，没有关系相信偶吧偶都做过可以的
----------------------------------------------

信息

登陆以后才能回复