回 帖 发 新 帖 刷新版面

主题:求教。如何用BCB实现数据库(SQL)中JPEG图像的显示?

求教。
如何用BCB实现数据库(SQL)中JPEG图像的显示?
我做了一个程序,用于保存JPEG图像,已经实现了图像的保存,但是不能查询显示出来。用DBImage控件好像只能用于Bitmap的显示。我使用BlobStream又好像用的不对,死活显示不出来。求教高手指点哦!!!谢谢了!!!!!!!

回复列表 (共7个回复)

沙发

好像是用Streah流对像进行操作吧!

板凳

使用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 楼

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 楼

美善,你这是把文件中的数据(JPEG格式)存入数据库。在BCB中我也用类似的方法实现了。可倒过来就是不行哦。
不过还是很感激你的帮助,谢谢了!!!!!

5 楼

我找到原来的delphi代码了  -_-!!   忘了, 原来用的是access的包类型放图片, 所以能显示出来。   估计对你没有什么帮助了。
当初我用上面的代码时, 因为没找到JPEG类, 所以我就没用成。 没办法改成access数据库了,还不得不加了个服务端。

6 楼

省略了一些变量的定义和创建,自己添加吧,不难的:
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 楼

这个帖子给多少分呀,给分多的话我提供例子程序

我来回复

您尚未登录,请登录后再回复。点此登录或注册