您所在位置：主题：怎样把word文件流输入数据库！（跪求）
qingqing619
[专家分：0] 发布于 2005-05-10 18:06:00
小弟做一个程序要把word 文件输入数据库。做了一个程序但是没用，请大虾帮我看看
var
sfilename:string;
MS:Tfilestream;
Stream: TBlobStream;
i:integer;
MemSize: Integer;
Buffer: PChar;
begin
Database1.Connected:=True;
Table1.Active:=true;
for i:=1 to 4 do
begin
sfilename:='c:\bt'+inttostr(i)+'.doc';
MS:=TFileStream.Create(sFileName, fmOpenRead);
talbe1.Open;
table1.Append;
Table1.Edit;
(Table1.FieldbyName('word')).LoadFromStream(MS);
Table1.Post;
MS.Free;
end;
end;
运行后，出现了 'invalid class typecast'。跪求大虾帮忙！
var
sfilename:string;
MS:Tfilestream;
Stream: TBlobStream;
i:integer;
MemSize: Integer;
Buffer: PChar;
begin
Database1.Connected:=True;
Table1.Active:=true;
for i:=1 to 4 do
begin
sfilename:='c:\bt'+inttostr(i)+'.doc';
MS:=TFileStream.Create(sFileName, fmOpenRead);
talbe1.Open;
table1.Append;
Table1.Edit;
(Table1.FieldbyName('word')).LoadFromStream(MS);
Table1.Post;
MS.Free;
end;
end;
运行后，出现了 'invalid class typecast'。跪求大虾帮忙！
