主题:求教。如何用BCB实现数据库(SQL)中JPEG图像的显示?
yaopo
[专家分:240] 发布于 2005-01-20 15:54:00
求教。
如何用BCB实现数据库(SQL)中JPEG图像的显示?
我做了一个程序,用于保存JPEG图像,已经实现了图像的保存,但是不能查询显示出来。用DBImage控件好像只能用于Bitmap的显示。我使用BlobStream又好像用的不对,死活显示不出来。求教高手指点哦!!!谢谢了!!!!!!!
回复列表 (共7个回复)
沙发
tjestar [专家分:3520] 发布于 2005-01-20 19:55:00
好像是用Streah流对像进行操作吧!
板凳
yaopo [专家分:240] 发布于 2005-01-20 23:20:00
使用Stream流操作,可能我的方法不对。它提示内存访问冲突,(读0地址错误)。我的代码如下,能不能帮忙看看。
试验1:
TStream *s;
s=ADOTable1->CreateBlobStream(ADOTable1->FieldByName("图像"),bmRead);
Image1->Picture->Graphic->LoadFromStream(s);
delete s;
试验2:
TStream *s;
TMemoryStream *s1;
s=ADOTable1->CreateBlobStream(ADOTable1->FieldByName("图像"),bmRead);
s1=new TMemoryStream();
s1->CopyFrom(s1,s1->Size);
delete s;
Image1->Picture->Graphic->LoadFromStream(s1);
delete s1;
两个方法都提示0地址内存访问冲突。
另外,我还试用了如下方法,问题依旧:
TStream *s;
TMemoryStream *s1;
TJPEGImage *Img;
s=ADOTable1->CreateBlobStream(ADOTable1->FieldByName("图像"),bmRead);
s1=new TMemoryStream();
s1->CopyFrom(s1,s1->Size);
delete s;
Img=new TJPEGImage();
Img->LoadFromStream(s1);
Image1->Picture->Graphic->Assign(Img);
delete s1;
//delete Img;
哪位高手帮帮忙,谢谢了!!!
3 楼
美善 [专家分:2150] 发布于 2005-01-20 23:35:00
delphi下 把jpge从sql server取出 转成bmp 然后在图片框里显示
麻烦是麻烦了一些,你先看看吧。 我记得我曾经用delphi做过一个程序, 没有用转换 就可以自动显示的。 代码 我找找, 贴过来
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBCtrls, Grids, DBGrids, ADODB, ExtDlgs,jpeg, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBImage1: TDBImage;
ADOQuery1ID: TStringField;
ADOQuery1FIELD: TStringField;
ADOQuery1STYLE: TStringField;
ADOQuery1SYSTEM: TStringField;
ADOQuery1DATE: TDateTimeField;
ADOQuery1PERSON1: TStringField;
ADOQuery1PERSON2: TStringField;
ADOQuery1PERSON3: TStringField;
ADOQuery1PHOTO: TBlobField;
ADOQuery1DESCRIPTION: TStringField;
OpenPictureDialog1: TOpenPictureDialog;
Image1: TImage;
Button1: TButton;
Memo1: TMemo;
procedure DBImage1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.DBImage1Click(Sender: TObject);
var
picstream:tadoblobstream;
bmppic:tbitmap;
jpgpic:tjpegimage;
bmpstream:TMemoryStream;
begin
if form1.OpenPictureDialog1.Execute then
begin
if extractfileext(form1.openpicturedialog1.filename)='.bmp' then
begin
adoquery1.edit;
picstream:=tadoblobstream.Create(tblobfield(ADOQuery1PHOTO),bmWrite);
//注:上句代码中的ADOQuery1PHOTO是adoquery1中的固定字段photo的固定字段的name
//用户需要手工添加固定字段,也可用fields[i]来进行选择,这点在
//"DELPHI存取JPEG文件到SQL Server数据库"这篇文章中没有注释,至使许多朋友没有
//编译成功。
picstream.LoadFromFile(openpicturedialog1.filename);
picstream.Position:=0;
adoquery1.edit;
tblobfield(ADOQuery1PHOTO).loadfromstream(picstream);
adoquery1.post;
adoquery1.edit;
picstream.free;
end
else
begin
jpgpic:=tjpegimage.Create;
bmppic:=tbitmap.Create;
bmpstream:=tmemorystream.Create;
jpgpic.LoadFromFile(openpicturedialog1.filename);
bmppic.Assign(jpgpic);
bmppic.SaveToStream(bmpstream);
adoquery1.edit;
picstream:=tadoblobstream.Create(tblobfield(ADOQuery1PHOTO),bmWrite);
//注:上句代码中的ADOQuery1PHOTO是adoquery1中的固定字段photo的固定字段的name
//用户需要手工添加固定字段,也可用fields[i]来进行选择,这点在
//"DELPHI存取JPEG文件到SQL Server数据库"这篇文章中没有注释,至使许多朋友没有
//编译成功。
picstream.LoadFromStream(bmpstream);
picstream.Position:=0;
adoquery1.edit;
tblobfield(ADOQuery1PHOTO).loadfromstream(picstream);
adoquery1.post;
jpgpic.free;
bmppic.free;
bmpstream.free;
adoquery1.edit;
picstream.free;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add(form1.openpicturedialog1.filter);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
form1.openpicturedialog1.filter:='All *.jpg;*.jpeg;*.bmp;|*.jpg;*.jpeg;*.bmp;)';
end;
end.
4 楼
yaopo [专家分:240] 发布于 2005-01-21 19:46:00
美善,你这是把文件中的数据(JPEG格式)存入数据库。在BCB中我也用类似的方法实现了。可倒过来就是不行哦。
不过还是很感激你的帮助,谢谢了!!!!!
5 楼
美善 [专家分:2150] 发布于 2005-01-22 06:42:00
我找到原来的delphi代码了 -_-!! 忘了, 原来用的是access的包类型放图片, 所以能显示出来。 估计对你没有什么帮助了。
当初我用上面的代码时, 因为没找到JPEG类, 所以我就没用成。 没办法改成access数据库了,还不得不加了个服务端。
6 楼
知见 [专家分:0] 发布于 2005-03-03 17:23:00
省略了一些变量的定义和创建,自己添加吧,不难的:
void LoadPictureFormField( TField *pField, Graphics::TBitmap *Bmp )
{
if( pField->IsBlob( NULL ) )
{
if( pField->IsNull )
return;
Stream->Clear();
Stream->LoadFromStream( (TMemoryStream *)pField->DataSet->CreateBlobStream( pField, bmRead ) );
try
{
JpegImage->LoadFromStream( Stream );
Bmp->Assign ( JpegImage );
}
__finally
{
}
}
}
7 楼
jean [专家分:20] 发布于 2005-03-04 08:49:00
这个帖子给多少分呀,给分多的话我提供例子程序
我来回复