var
tempbfield:TBlobField;
tempbstr:TADOBlobStream;
...
tempbfield := TBlobField.Create(ADOQuery1.FieldByName('photo'))
tempbstr := TADOBlobStream.Create(tempbfield,bmRead);
...
程序编译能够通过,但执行第二句时,好象是说什么地址冲突的,小第不懂,请教!!!
tempbfield:TBlobField;
tempbstr:TADOBlobStream;
...
tempbfield := TBlobField.Create(ADOQuery1.FieldByName('photo'))
tempbstr := TADOBlobStream.Create(tempbfield,bmRead);
...
程序编译能够通过,但执行第二句时,好象是说什么地址冲突的,小第不懂,请教!!!
你把第一句换成:
tempbfield := ADOQuery1.FieldByName('photo') as TBlobField
or
tempbfield := ADODataset1.Fields[i] as TBlobField 再试试