不过如果是直接调用TBlobField的LoadFromFile方法装入图片则没有这个数据头,通过DBImage.Picture的LoadFromFile方法就有.
如果没有这个头那就只有读文件头,BMP格式和JPG格式分别有不同的文件头,至于这个文件头的什么内容那可是麻烦了,楼上已经
提到你可以找相关图片格式的资料,你可以在网上找找.
但是TXT文件是没有文件头的,所以理论上是不可能判断一个流是否是文本.
不过如果数据也是你的程序写入的,那你也可以在字段的头部写入一个数据头,以便读出的时候分别处理.
procedure LoadFromStream(BlobField;TBlobField;Stream: TStream);
var
Header: TGraphicHeader;
BlobStream: TStream;
begin
BlobStream := DataSet.CreateBlobStream(Self, bmWrite);
try
Header.Count := 1;
if BMP文件 then
Header.HType := $0100
else
if JPG文件 then
Header.HType := $0101
else
if WORD文件then
Header.HType := $0102
else
if TXT文件 then
Header.HType := $0103;
......
Header.Size := 0;
BlobStream.Write(Header, SizeOf(Header));
Stream.SaveToStream(BlobStream);
Header.Size := BlobStream.Position - SizeOf(Header);
BlobStream.Position := 0;
BlobStream.Write(Header, SizeOf(Header));
finally
BlobStream.Free;
end;
end;
]