CreateBlobStream

[dgdlking]

下面这个DELPHI函数是用来创建一个stream
dataset.CreateBlobStream(field, TBlobStreamMode)
TBlobStreamMode有三种：bmRead, bmWrite, bmReadWrite
不知为何,我编译时总是说
printer_insert.pas(111): Undeclared identifier: 'bmReadWrite'
我是这样写的:
stream:=module.table_printer.CreateBlobStream(module.table_printer.FieldByName('printerpicture'), bmReadWrite);
之前用别的函数时也试过这样说识别不了参数的情况,是什么回事??

[firetoucher]

??在use中加上DB
(代理服务器有问题,不能发长的留言,请原谅)
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

[firetoucher]

在单元
use
classes,...,DB....;

(代理服务器有问题,不能发长的留言,请原谅)
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

[空中居士]

procedure TfrmHttz.btnSaveClick(Sender: TObject);
var
sFileName :string;

function BlobContentToString(const FileName: String): String;
begin
with TFileStream.Create(FileName, fmOpenRead) do
try
SetLength(Result,Size);
read(Pointer(Result)^,Size);
finally
Free;
end;
end;

begin
if (OpenDialog1.Execute) then
begin
sFileName :=OpenDialog1.FileName;
frmData.cdsHtyg.edit;
frmData.cdsHtyg.fieldByName('原稿内容').AsString:=BlobContentToString(sFileName);
frmData.cdsHtyg.Post;
end;

end;
没问题的

[空中居士]

firetoucher(风焱) ( )说的对，我答的不对题。