2,507
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
doloopcn 2018-11-29
- 打赏
- 举报
你得首先知道图片的类型才能够进行处理
sixgj 2018-11-29
- 打赏
- 举报
这个对数据库中存储的图片类型有什么要求么？我怎么报错？
sixgj 2018-11-29
- 打赏
- 举报
数据库中存储的，分不清是啥类型。数据库中存储的图片如果存入前是什么类型那存入数据库中就是什么类型么？
lyhoo163 2018-11-29
- 打赏
- 举报
有个image字段，使用DBGrideh
doloopcn 2018-11-28
- 打赏
- 举报
应该是没有找到合适的控件去显示你的图片
你应该手工在DBGrid的画布上画：
procedure DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
ms : TMemoryStream;
jpg : TJPEGImage;
begin
TDBGrid(Sender).Canvas.FillRect(Rect);
if Column.Field.FieldName = 'JPEGPhoto' then
begin
try
ms := TMemoryStream.Create;
TBlobField(Column.Field).SaveToStream(ms);
if ms<>nil then
begin
jpg := TJPEGImage.Create;
jpg.LoadFromStream(ms);
TDBGrid(Sender).Canvas.StretchDraw(Rect,jpg);
end;
finally
if jpg<>nil then
jpg.Free;
if ms<>nil then
ms.Free;
end;
end else
begin
// 其他操作
end;
end;
你应该手工在DBGrid的画布上画：
procedure DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
ms : TMemoryStream;
jpg : TJPEGImage;
begin
TDBGrid(Sender).Canvas.FillRect(Rect);
if Column.Field.FieldName = 'JPEGPhoto' then
begin
try
ms := TMemoryStream.Create;
TBlobField(Column.Field).SaveToStream(ms);
if ms<>nil then
begin
jpg := TJPEGImage.Create;
jpg.LoadFromStream(ms);
TDBGrid(Sender).Canvas.StretchDraw(Rect,jpg);
end;
finally
if jpg<>nil then
jpg.Free;
if ms<>nil then
ms.Free;
end;
end else
begin
// 其他操作
end;
end;
