如何将access数据库的长二进制数据提出来？(100分)

有一access数据库，用ODBC连接后，使用DBMEMO显示其表中的长二进制数据时，结果为乱
码。是怎么回事？

不知道:<

老千:"不知道"后面是不是应该还有内容？

此ACCESS数据库中的数据由VB获得，其BLOB字段中存有1000个大小在0-255之间的16进制
数据。用DELPHI如何才能将这些数据一个一个的取出来作曲线？

下面请lhxu回答

(2000-09-30 10:52:00) lhxu
用TBlobStream来进行读写操作：
读取：
var AStream : TBlobStream;
YourData:integer;
AStream := TBlobStream.Create(TBlobField(YourBlobField));
AStream.Read(YourData,SizeOf(YourData));
AStream.Free;
写入与读取差不多，只是要用AStream.write

try
试试看

//转来的，以前的答案中的
提供以下例程，仅供参考：
unit blobFun;
////////////////////////////////////////////////////////////////////
//有关blob字段的读写操作公共函数
////////////////////////////////////////////////////////////////////
interface
uses classes,db,dbtables,graphics;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//功能：IMAGE字段的读写操作
function gfWriteDataToBlobField(bIndex,eIndex:integer;data:array of double;var fieldObject:TBlobField):boolean;
function gfReadDataFromBlobField(bIndex,eIndex:integer;var data:array of double;fieldObject:TBlobField):boolean;

function gfWriteImageToBlobField(bitmapObject:TBitmap;var fieldObject:TBlobField):boolean;
function gfReadImageFromBlobField(var bitmapObject:TBitmap;fieldObject:TBlobField):boolean;

implementation

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//功能：从IMAGE字段中读取数据到数组中
//输入： data:实型数组 bIndex,eIndex:数组起止索引 fieldObject：与IMAGE字段对应的fieldObject对象
//输出：fieldObject对象数据将被修改 返回成功标志TRUE
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function gfWriteDataToBlobField(bIndex,eIndex:integer;data:array of double;var fieldObject:TBlobField):boolean;
var
bufferLen:integer;
dataStream:TMemoryStream;
begin
//check parameters:
// Assert((data<>nil) AND (fieldObject<>nil),'Parameters error in gfReadDataFromBlobField()!');
Assert(eIndex>=bIndex,'Parameters error in gfReadDataFromBlobField()!');

Result:=true;
//make memory stream
bufferLen:=sizeof(double)*(eIndex-bIndex);
dataStream:=TMemoryStream.Create;
dataStream.SetSize(bufferLen+1);
//write data into memory stream
dataStream.Write(data,bufferlen);
//write data into field object from memory stream
try
fieldObject.LoadFromStream(dataStream);
except
Result:=False;
end;


dataStream.free;
end;



////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//功能：从IMAGE字段中读取数据到数组中
//输入： data:实型数组 bIndex,eIndex:数组起止索引 fieldObject：与IMAGE字段对应的fieldObject对象
//输出：data数组中数据将被修改 返回成功标志TRUE
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function gfReadDataFromBlobField(bIndex,eIndex:integer;var data:array of double;fieldObject:TBlobField):boolean;
var
bufferLen:integer;
dataStream:TMemoryStream;
myBlobStream:TBlobStream;
begin
//check parameters:
// Assert((data<>nil) AND (fieldObject<>nil),'Parameters error in gfReadDataFromBlobField()!');
Assert(eIndex>=bIndex,'Parameters error in gfReadDataFromBlobField()!');

Result:=true;
//make memory stream
bufferLen:=sizeof(double)*(eIndex-bIndex);
dataStream:=TMemoryStream.Create;
dataStream.SetSize(bufferLen+1);

try
begin
//make blob stream
myBlobStream:=TBlobStream.Create(fieldObject,bmRead);

//read data from blob stream to memory stream
dataStream.LoadFromStream(myBlobStream);
end
except
begin
Result:=false;
end
end;

//read data into data array from memory stream
if Result then dataStream.Read(data[bIndex],bufferlen);
dataStream.Free;
end;


////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//功能：从IMAGE字段中读取数据到image对象中
//输入： bitmapObject:图形对象 fieldObject：与IMAGE字段对应的fieldObject对象
//输出：fieldObject数据将被修改 返回成功标志TRUE
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function gfWriteImageToBlobField(bitmapObject:TBitmap;var fieldObject:TBlobField):boolean;
var
bufferLen:integer;
dataStream:TMemoryStream;
begin
//check parameters:
Assert(((bitmapObject<>nil) AND (fieldObject<>nil)),'Parameters error in gfReadDataFromBlobField()!');

Result:=true;
//make memory stream
bufferLen:=sizeof(bitmapObject);
dataStream:=TMemoryStream.Create;
dataStream.SetSize(bufferLen+1);
//write data into memory stream
bitmapObject.SaveToStream(dataStream);

//write data into field object from memory stream
try
fieldObject.LoadFromStream(dataStream);
except
Result:=False;
end;


dataStream.free;
end;

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//功能：从IMAGE字段中读取数据到image对象中
//输入： bitmapObject:图形对象 fieldObject：与IMAGE字段对应的fieldObject对象
//输出： bitmapObject数据将被修改 返回成功标志TRUE
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function gfReadImageFromBlobField(var bitmapObject:TBitmap;fieldObject:TBlobField):boolean;
var
myBlobStream:TBlobStream;
begin
//check parameters:
Assert((bitmapObject<>nil) AND (fieldObject<>nil),'Parameters error in gfReadDataFromBlobField()!');

Result:=true;
//make memory stream
try
begin
//make blob stream
myBlobStream:=TBlobStream.Create(fieldObject,bmRead);

//read data from blob stream to memory stream
bitmapObject.LoadFromStream(myBlobStream);
end
except
begin
Result:=false;
end
end;

//read data into data array from memory stream
myBlobStream.Free;
end;
end.

谢谢lhxu和千中元，大富翁论坛真是DELPHI人员的大救星！