procedure TForm1.Button1Click(Sender: TObject); var fileStr : TfileStream; st1 : Tstringstream; begin if OpenPictureDialog1.Execute then begin try st1:=Tstringstream.Create(''); fileStr:= TfileStream.Create(OpenPictureDialog1.FileName,fmOpenRead); st1.CopyFrom(filestr,filestr.Size); qryMaster.Edit; TBlobField(qryMaster.FieldByName('Pic2') as TBlobField).LoadFromStream(st1); finally freeandnil(fileStr); freeandnil(st1); end; end; end;
var
fileStr : TfileStream;
st1 : Tstringstream;
begin
if OpenPictureDialog1.Execute then
begin
try
st1:=Tstringstream.Create('');
fileStr:= TfileStream.Create(OpenPictureDialog1.FileName,fmOpenRead);
st1.CopyFrom(filestr,filestr.Size);
qryMaster.Edit;
TBlobField(qryMaster.FieldByName('Pic2') as TBlobField).LoadFromStream(st1);
finally
freeandnil(fileStr);
freeandnil(st1);
end;
end;
end;
[Error] Unit1.pas(38): Undeclared identifier: 'qryMaster'
[Error] Unit1.pas(39): Undeclared identifier: 'TBlobField'
[Error] Unit1.pas(39): Operator not applicable to this operand type
请问这是什么原因?是不是我还需要再在窗体中添加其它的控件,是什么控件?还有,我刚才试着打开哪个网页总是出现“载入样式表单出错: 分析 XSLT 样式表单失败。”的错误提示。为什么?