程序:
procedure TForm1.Button2Click(Sender: TObject);
var
sFileName:string;
bs:TADOBlobStream;
begin
bs:=TADOBlobStream.Create(TBLOBField(ADODataSet1.FieldByName('BLOB')),bmRead);
try
sFileName:=ExtractFilePath(Application.ExeName)+'tmpBlob';
sFileName:=sFileName+'.'+ADODataSet1.fieldbyName ('Extention').AsString;
bs.SaveToFile(sFileName);
OleContainer1.CreateObjectFromFile(sFileName,False); //*********
finally
bs.Free;
end;
end;请问为何在运行时出错:对象未初始化,指//*********这一行?请高手执教!!
procedure TForm1.Button2Click(Sender: TObject);
var
sFileName:string;
bs:TADOBlobStream;
begin
bs:=TADOBlobStream.Create(TBLOBField(ADODataSet1.FieldByName('BLOB')),bmRead);
try
sFileName:=ExtractFilePath(Application.ExeName)+'tmpBlob';
sFileName:=sFileName+'.'+ADODataSet1.fieldbyName ('Extention').AsString;
bs.SaveToFile(sFileName);
OleContainer1.CreateObjectFromFile(sFileName,False); //*********
finally
bs.Free;
end;
end;请问为何在运行时出错:对象未初始化,指//*********这一行?请高手执教!!
SaveToStream;
ReadBuffer;
比如:CreateObjectFromFile("aaa.bbb",false)肯定出错,因为找不到对应.bbb文件的对象.
如果你的机器没有安装Word,却CreateObjectFromFile('a.doc',false)就会出错.