怎么判断oracle里面的图片是什么格式的(bmp jpeg的两种)?并且如何动态取得里面的图片内容并显示出来?
解决方案 »
- 请教:通过CreateService创建的服务程序有哪些功能?
- 调试过程中,怎么获取一个完整的SQL语句?
- 急!医院的程序:住院病人退院或出院,有的时候出不去,医保那边显示在院?
- DBNumberEditEh问题
- 想多认识一些高手!!请问这里的星级高手都有没有上QQ?有没有在QQ群里交流?
- 找到新公司,挺爽。放分200。想知道是哪家公司吗?
- 关于QRDBText
- code explorer里面的输入格式是overwrite如何使它变为normal??
- 在Delphi中是否有像C语言中的“\n”这样的转意字符?
- 我有很好的VC基础,大家给推荐一本Delphi好书
- 计算年龄??,在线等!!
- SOS!!! recordcount=-1为什么???,在线等
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
格式要读出来才能分辨
不过太野蛮。
var
tempStream: TMemoryStream;
imageAttribute: array[0..9] of char;
begin
tempStream := TMemoryStream.Create;
try
with DM.Query2 do begin
TBlobField(FieldByName('poster')).SaveToStream(tempStream);
if tempStream.Position > 0 then
begin
tempStream.Position := 0;
tempStream.ReadBuffer(imageAttribute, 10);
Edit1.Text := imageAttribute;
end;
end;
finally
tempStream.Free;
end;
end;(注:做了一個TEST、NI自己看看「Edit1.Text」中内容)