Blob 急救(50分)

我用Paradox表存放Blob类型数据，数据是一些图片，出现
“BLOB has been changed !”的错误提示，然后该条数据显示不出来
到底怎么办啊？

ps:我很菜的，所以手头的分不够，只能给50，多多包涵。

你怎么做的
保存可以这样

var Stream: TBlobStream;
begin
Table1.Append;
Stream:=TBlobStream.Create(table1pic, bmWrite);
Image1.Picture.Graphic.SaveToStream(Stream);
Table1Index.Value:= inputbox('Please input the name','name','');
Table1.Post;
Stream.Free;
end;

读取

var Stream: TStream;
begin
JpegFace:=TJPEGImage.Create;
Stream:=Table1.CreateBlobStream(Table1Pic,bmRead);
JpegFace.LoadFromStream(Stream);
Image1.Picture.Graphic:=JpegFace;
Stream.Free;
JpegFace.Free;
end;

二、 Stream数据的读写。
　
1. SaveToStream(Stream: TStream ); //将类中的数据写到Stream的当前位置中
2. LoadFromStream(Stream: TStream); //从当前位置读入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);
//Memory属性是指向实际内存块的指针
MS.Write(pImage^,MS.size);
MS.Position:=0;
//上一行代码使指针移到了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;
//在数据库中添加一条记录
TBlobField(Table1.FieldbyName
('image')).LoadFromStream(MS);
Table1.Post;
//将所作的更新写入数据库
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;
//非常详细的关于TStream的用法,对你有用的.

多人接受答案了。