分别用BDE和ADO连接两个不同的数据库,Stream1是TBlobStream类型的变量if BDEQuery.FieldByName('Voice').IsNull then
ADOQuery.Parameters.ParamByName('Voice').Value:=''
else begin
Stream1:=TBlobStream.Create(TBlobField(BDEQuery.FieldByName('Voice')),bmRead);
ADOQuery.Parameters.ParamByName('Voice').LoadFromStream(Stream1,ftBlob);
Stream1.Free;
end;
ADOQuery.Parameters.ParamByName('Voice').Value:=''
else begin
Stream1:=TBlobStream.Create(TBlobField(BDEQuery.FieldByName('Voice')),bmRead);
ADOQuery.Parameters.ParamByName('Voice').LoadFromStream(Stream1,ftBlob);
Stream1.Free;
end;
ADOQuery.Parameters.ParamByName('Voice').LoadFromStream(Stream1,ftBlob);
可能会有问题, 好像参数不能为空
可能会有问题, 好像参数不能为空
这而有问题