Word_FileStream := TFileStream.Create(OpenDialog.FileName, fmOpenWrite or fmCreate); Word_FileStream.Position := 0; TBlobField(QryMaster.FieldByName('Content')).LoadFromStream(Word_FileStream); 以上代码运行后为何保存到字段'Content'是空值？

改一下就可以了 var Word_FileStream : TMemoryStream; begin Word_FileStream := TMemoryStream.Create; try Word_FileStream.LoadFromFile(OpenDialog.FileName); TBlobField(QryMaster.FieldByName('Content')).LoadFromStream(Word_FileStream); finally Word_FileStream.free; end;

还是一样的，插入的为空值

woodss 兄的作法沒有問題啊. 請問你的資料庫種類, 使用 BDE or ADO? 有沒有 post 回資料庫呢? 可以列出更完整一點的程式嗎? 這樣有助於幫你解決問題.

sl@cableplus.com.cn你好： 看了你问的几个问题，觉得你还得自己去实践下，才可能会更好地了解流的使用，这里有篇关于流使用的一些技巧，看有无帮助 转自：CSDN 作者：无情 Delphi流操作技巧总结 TMemoryStream的继承关系如下 TObject | TStream | TCustomMemoryStream | TMemoryStream 如何使用TMemoryStream? 其实TmemoryStream使用就跟TStream 一样 具体的属性，方法可看帮助。 下举一例： 如我想在内存中直接读写一个Bitmap,怎么办？ TmemoryStream帮了你大忙 var BitmapMemoryStream:TMemoryStream; Bitmap1:TBitmap; procedure TForm.Button1Click(Sender:TObject); begin BitmapmemroyStream:=TmemoryStream.Create; file://建立MemoryStream Bitmap1:=TBitmap.Create; try Bitmap1.LoadFromFile('d:\Bitmap1.bmp'); except ShowMessage('Error On LoadFile bitmap1.bmp'); end; end; procedure TForm.Button2Click(Sneder:Tobject); begin if Assigned(Bitmap1) then Bitmap1.SaveToStream(BitmapmemoryStream); end; procedure TForm.Button3Click(Sender:TObject); begin if BitmapMemoryStream<>nil then begin try BitmapMemroyStream.SaveToFile('Bitmap1.str'); file://内存流保存，大小与 file://Bitmap1.bmp一样 except showmessage('error on access memory!'); end; end; end; procedure TForm.Button4Click(Sender:TObject); var Buffer:Array[0..53] of char; begin if Assigned( BitmapMemroyStream) then try BitmapMemroyStream.Seek(0,soFromBeginning); BitmapMemoryStream.Read(Buffer,54); if Buffer[0]='B' and Buffer[1]='M' then file://改写内存内容 begin BitmapMemoryStream.Seek(0,soFromBeginning); BitmapmemoryStream.Write('ICE',3); Button3Click(Sender);//将改写的内容写入文件 end; except ShowMessage('error On Access memroyStream'); end; end; 大家可看到用TMemoryStream对与内存读写多么方便，当然其实用不着先建一Bitmap 可以用LoadFromFile直接引导文件，但是如果对于其它的内存流却是可以用上述方法 上文只是抛转引玉，其它的一些功能大家可以看帮助，自己琢磨！ 还有很多其它的流式对象，大致都差不多，一通百通！ 如何将一个流的内容写入到剪贴板中，并处理 这个技巧是参考Delphi的剪贴板类的实现来完成的。将一个流的内容放入剪贴板， 首先要注册你自已的格式，使用RegisterClipboardFormat()函数 然后做下面三步： 1.创建一个内容流，并将内容写进去 2.创建一个全局的内容区，并将流的内容写入 3.调用ClipBoard.SetAsHandle()将内容写入剪贴板 将内容写入剪贴板中 var hbuf : THandle; bufptr : Pointer; mstream : TMemoryStream; begin mstream := TMemoryStream.Create; try {-- 处理流的代码 --} hbuf := GlobalAlloc(GMEM_MOVEABLE, mstream.size); try bufptr := GlobalLock(hbuf); try Move(mstream.Memory^, bufptr^, mstream.size); Clipboard.SetAsHandle(CF_MYFORMAT, hbuf); finally GlobalUnlock(hbuf); end; except GlobalFree(hbuf); raise; end; finally mstream.Free; end; end; 请注意不要将分配的全局缓冲区释放，这个工作由剪贴板来完成，在读出数据中 你应该将它复制后处理。 将剪贴板内容读出来 var hbuf : THandle; bufptr : Pointer; mstream : TMemoryStream; begin hbuf := Clipboard.GetAsHandle(CF_MYFORMAT); if hbuf <> 0 then begin bufptr := GlobalLock(hbuf); if bufptr <> nil then begin try mstream := TMemoryStream.Create; try mstream.WriteBuffer(bufptr^, GlobalSize(hbuf)); mstream.Position := 0; {-- 处理流的代码 --} finally mstream.Free; end; finally GlobalUnlock(hbuf); end; end; end; end; 在Dephi中使用TStream读写数据的技巧 在Dephi中提供了一个抽象的数据类型TStream来支持对流式数据的操作。这些数据通常来自文件、数据库、内存对象、OLE对象等，TStream提供了统一、简洁的方法来进行数据的读写。在通常情况下，我们并不需要直接使用TStream类，对流式数据的读写封装在VCL控件的方法中。但是如果这些方法无法满足我们的要求，就需要自己手动控制数据的读写。 一、 TStream的常用的方法和属性： ---- 1. function Read(var Buffer; Count: Longint): Longint; virtual; abstract ---- 2. function Write(const Buffer; Count: Longint): Longint; virtual; abstract; ---- 3. function Seek(Offset: Longint; Origin: Word): Longint; virtual; abstract; ---- 4. property Position: Longint; ---- 5. property Size: Longint ---- Read，Write，Seek都是纯虚函数，提供了数据读写和定位的抽象的方法。Read方法将数据从Stream中读到Buffer缓冲区中，Write则实现相反的操作，返回值表示实际读写数据的大小。Seek提供了在Stream中移动数据指针的方法。参数Origin可以取soFromBeginning，soFromCurrent，soFromEnd 三个值，Offset是偏移量，返回值是当前Stream数据指针的位置。 ---- Position表示了数据指针在Stream中的位置。这个属性是可读写的，它实际上就是通过调用Seek方法实现的，所以实际使用时使用这个属性更为方便一些。Size属性表示当前Stream的大小，对于不同的Stream，有些时候是只读的。 二、 Stream数据的读写。 ---- 1. SaveToStream(Stream: TStream ); file://将类中的数据写到Stream的当前位置中 ---- 2. LoadFromStream(Stream: TStream); file://从当前位置读入Stream里的数据 ---- 实际使用时我们基本上只要使用上面两个函数就可以了。 三、 例子 ---- TStream的继承树图如图1所示(略)，实际使用时比较常用的是TFileStream，TMemoryStream，TblobStream，就以这三种流举一例说明具体用法。 ---- 创建一个窗体Form1，放置三个按钮btnRead，btnInvert，btnSave和一个文件打开对话框OpenDialog1以及数据控件DataSource1，Table1，test. ---- 使用Dephi提供的Database Desktop创建一个表test，表里有一个字段域Image，数据库文件名存为test.db。在窗体上放置一个TDatabase控件dbTest，一个TTable控件Table1,一个DataSource控件DataSource1,一个TDBNavigator控件DBNavigator1。将dbTest与刚才Desktop创建的数据库相连，Table1的TableName属性设为test.db，DataSource1的DataSet属性设为Table1，DBNavigator1的DataSource属性设为DataSource1，VisibleButtons属性前四个设为TRUE。此外，将dbtest的Connected设为TRUE，Table1的Active属性设为TRUE，使得数据库一开始就处于打开状态。 ---- 事件代码编写如下： ---- 1. btnRead的Click事件，这里演示了TFileStream的用法。 var MS: TFileStream; begin if OpenDialog1.Execute then begin MS:=TFileStream.Create (OpenDialog1.FileName, fmOpenRead); Image1.Picture.Bitmap.LoadFromStream(MS); MS.Free; end; end; ---- 2. btnInvert的Click事件，这里演示了TMemoryStream的用法。其中使用了Invert函数，这是一个简单的将图象反色的函数（仅对真彩图象有效），它返回一个指向处理过的图象数据块的指针。 var M S: TMemoryStream; pImage: pointer; begin MS:=TMemoryStream.create; Image1.Picture.Bitmap.SaveToStream(MS); MS.Position:=0; pImage:=Invert(MS.Memory, MS.size); file://Memory属性是指向实际内存块的指针 MS.Write(pImage^,MS.size); MS.Position:=0; file://上一行代码使指针移到了Stream末尾，所以要复位 Image1.Picture.Bitmap.LoadFromStream(MS); FreeMem(pImage); MS.Free; end; Invert函数如下： function TForm1.Invert (pImage: pointer; size: Integer): pointer; var pData, pMem: PChar; i: Integer; begin pMem:=AllocMem(size); CopyMemory(pMem,pImage,size); pData:=pMem 54; for i:=0 to size-54-1 do begin pData^:=Char(not integer(pData^)); pData:=pData 1; end; Result:=pMem; end; ---- 1. btnSave的Click事件，这里演示了TMemoryStream的另一种用法，将Stream中的数据写到数据库中去。 var MS: TMemoryStream; begin MS:=TMemoryStream.create; Image1.Picture.Bitmap.SaveToStream(MS); MS.Position:=0; Table1.Append; file://在数据库中添加一条记录 TBlobField(Table1.FieldbyName ('image')).LoadFromStream(MS); Table1.Post; file://将所作的更新写入数据库 end; ---- 4. DBNavigator1的Click事件，这里演示了TBlobStream的用法，使用了和写入时不同的方法来读出数据库的图象数据。 var MS: TStream; begin with Table1 do MS:=CreateBlobStream (FieldbyName('image'),bmRead); Image1.Picture.Bitmap. LoadFromStream(MS); MS.Free; end; ——行径窄处，留一步与人行——

我用的是BDE，代码如下： Word_FileStream := TMemoryStream.Create; try Word_FileStream.LoadFromFile(OpenDialog.FileName); TBlobField(QryMaster.FieldByName('Content')).LoadFromStream(Word_FileStream); finally Word_FileStream.free; end; 保存后该字段为NULL值

  Word_FileStream := TMemoryStream.Create;
  try
    Word_FileStream.LoadFromFile(OpenDialog.FileName);        TBlobField(QryMaster.FieldByName('Content')).LoadFromStream(Word_FileStream);
    QryMaster.Post; // 這邊先做 Post 動作, 存檔後再 Free 試試
  finally
    Word_FileStream.free;
  end;

-- He just never quits.

用了POST该字段保存后仍然为空值？如果换ADOQUERY那在ADOQUERY中应怎么写SQL语句呢？ TBlobField(ADOQUERY1.FieldByName('Content')).LoadFromStream(Word_FileStream);

我改用ADOQUERY1：QUERY里SQL语句为(select Content from smalldoc) Word_FileStream := TFileStream.Create(Opendialog1.FileName, fmOpenWrite or fmCreate); Word_FileStream.Position := 0; try // Word_FileStream.LoadFromFile(Opendialog1.FileName); AdoUpdateContent.edit; TBlobField(AdoUpdateContent.FieldByName('Content')).LoadFromStream(Word_FileStream); AdoUpdateContent.Post; finally Word_FileStream.free; 结果'Content'字段还是为空值，请教到底是哪里出问题了？

引言: 我改用ADOQUERY1：QUERY里SQL语句为(select Content from smalldoc) Word_FileStream := TFileStream.Create(Opendialog1.FileName, fmOpenWrite or fmCreate); Word_FileStream.Position := 0; try // Word_FileStream.LoadFromFile(Opendialog1.FileName); AdoUpdateContent.edit; TBlobField(AdoUpdateContent.FieldByName('Content')).LoadFromStream(Word_FileStream); AdoUpdateContent.Post; finally Word_FileStream.free; 结果'Content'字段还是为空值，请教到底是哪里出问题了？

应该没错的，你是通过什么来判断是空值？还有上面代码有什么提示没有？ ——行径窄处，留一步与人行——

上面代码运行正常，然后我 select * from smalldoc ，其他字段都有值的，就是content是NULL，所以判断没保存进去呀！

引言: 上面代码运行正常，然后我 select * from smalldoc ，其他字段都有值的，就是content是NULL，所以判断没保存进去呀！

如同 deity 兄問的 您是用什麼方法或元件來顯示 Content 欄位的值的？ -- He just never quits.

保存以后我通过DBGRID来看的，其他字段都是我插入的值，而该字段显示（MEMO），然后我在SQL分析器上（select * from smalldoc),该其他字段也有值，就是该字段显示NULL

這篇資料或許幫的上忙. 參考看看: http://delphi.ktop.com.tw/topic.php?topic_id=19505

你好： 试试用下面方法读读 拉一个memo到窗体， memo1.lines.add(AdoUpdateContent.FieldByName('Content').asstring); ——行径窄处，留一步与人行——

用MEMO1试过了，果然是空值，所以那段代码并没有把内容保存进CONTENT中，请教到底是哪里出了问题，我在添加记录时其他是用BDE，就CONTENT字段为ADO，但还是不对

Perhaps you should specify your field type used for the field "Content". BTW, if the first byte of the file you saved is zero, then .AsString will return an empty string.

引言: 用MEMO1试过了，果然是空值，所以那段代码并没有把内容保存进CONTENT中，请教到底是哪里出了问题，我在添加记录时其他是用BDE，就CONTENT字段为ADO，但还是不对

越来越搞不懂你的意思了，正如william大大所说的请先确定CONTENT字段的类型，讲清楚你所要达到的效果，比如要把什么文件的内容放入CONTENT字段，具体是想怎么个做法，详细说下，也好让大家心中有数。 ——行径窄处，留一步与人行——

呵呵，好的 我有个表叫小文档，里面包括字段名，文档名称，制作日期等，还有个字段就是文档内容（content），象文档名称，制作日期我都用BDE插入数据的，在操作文档内容时，我是想用OpenDialog打开，选择文件（由客户自己选，就想EMAIL里附件一样，按浏览让我们选择文件，可能是图片，可能是EXCEL，可能是RAR文件），而我就是要把选择的文件保存到content的字段里面（并不是只保存文件名称，而是整个文件）,不知道大大明白我的意思了没？谢谢支持

我在数据库里定义CONTENT字段的类型是IMAGE型的，不知道对不对？