调用数据库图像，显示在image控件中，图像下部分被一层全是点覆盖，看不到全部图像，郁闷，求解决。

[kerisyml]

我是利用delphi调用Oracle数据库中的blob字段来显示在image控件中的。以前写过，调的好好的。现在把哪个拿过来重新写程序，反而不行。
很简单的，利用一个按钮，调用图片，并显示在image中。image控件中属性没有改动一个，改动了好像也没有用。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, StdCtrls, jpeg;

type
TForm1 = class(TForm)
Database1: TDatabase;
Button1: TButton;
Query1: TQuery;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ssql:string;
mStream:TMemoryStream;
bl:TBlobField ;
JpgFile:TjpegImage;
str_dzjc,str_jkbh:string;
i:integer;
begin
mStream:=TMemoryStream.Create ;
JpgFile:=TjpegImage.Create ;
Query1.sql.Clear;
ssql:='select dzjcid,tpxl,tp from syn_bk_picture where dzjcid=''1001'' and tpxl=0';
Query1.sql.add(ssql);
try
Query1.Open;
except
exit;
end;
bl:=TBlobField(Query1.FieldByName('tp'));//顯示的轉換為BlobFiled並保存至內存流
bl.SaveToStream(mStream);
mStream.Position :=0;
jpgfile.LoadFromStream(MStream);
Image1.Picture.Assign(JpgFile);
end;

[sanguomi]

看不出什么问题

[bdmh]

估计是文件信息被破坏或丢失,你存的是jpg还是bmp

[kerisyml]

已经解决了，原来是bde中的blob_size设置的太小了，设置成2048就可以了。

[starluck]

把 BDE 的 BlobSize 調大一點，設置的太小了，被壓掉了。

[starluck]

暈，就談了事情，你就解決了，太快了吧

[bdmh]

^_^,没想到楼主头脑很敏捷吗,老刘也落后了

[寻梦928]

图像失真！

[starluck]

[Quote=引用 6 楼 bdmh 的回复:]
^_^,没想到楼主头脑很敏捷吗,老刘也落后了
[/Quote]

呵呵，剛在跟別人談點事情。

[ahjoe]

没读取出图像的全部数据，也许库里面就没存完整。

[hbsjz33]

不懂，帮顶