菜鸟的图像显示问题(50分)

  • 主题发起人 主题发起人 wohoot
  • 开始时间 开始时间
W

wohoot

Unregistered / Unconfirmed
GUEST, unregistred user!
我数据库data.db在AA字段以字符型保存图片的路径,想随着DBGirD1中记录的变化在IMAGE1中显示不同的JPEG图片,该怎么办?应该在什么事件中执行?怎么执行?请写出具体代码。菜鸟,不要笑啊。
我源码通不过:
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
Image1.Picture.LoadFromFile(db.Ttable1.fieldbyname('AA'));
end;
VAR有jpeg,db单元
(db:数据模块)
 
在LoadFromFile错了
Image1.Picture.LoadFromFile(DBGrid1.DataSource.DataSet.FieldByName('AA'));
 
把IMAGE1换成 DBImage1
 
可以用流加载呀
ms:tMemorystream;
TBlobField(DataSet1.FieldByName('aa')).LoadFromStream(ms);
 
感谢大家的指点,我用lqcros的方法:
[错误] xxchx.pas(63): Incompatible types: 'String' and 'TField'

其他也试了 不行啊,错误提示更多,哪位高手再指点指点
 
Image1.Picture.LoadFromFile(DBGrid1.DataSource.DataSet.FieldByName('AA').AsString);

后面忘了加.AsString,这个是转换为String,
AsInteger转换为Integer
 
lqcros,谢谢指点,我按你后面的改了,出现:
不容许的数据连接 错误
 
晕,不会吧,上面的代码应该是没有问题的了
可能是哪个字段错了

你把代码发上来,我帮你看看,
 
unit xxchx;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids,da, ExtCtrls, DBCtrls, Hemibtn, jpeg,
Mask;

type
TFxxchx = class(TForm)
Label3: TLabel;
DBGrid3: TDBGrid;
DBGrid4: TDBGrid;
DBGrid5: TDBGrid;
Label7: TLabel;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
HemisphereButton3: THemisphereButton;
Image1: TImage;
DBGrid6: TDBGrid;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
DBText5: TDBText;
DBText6: TDBText;
DBText4: TDBText;
procedure HemisphereButton3Click(Sender: TObject);
procedure DBGrid3ColEnter(Sender: TObject);





private
{ Private declarations }
public
{ Public declarations }
end;

var
Fxxchx: TFxxchx;

implementation

{$R *.dfm}

procedure TFxxchx.HemisphereButton3Click(Sender: TObject);
begin
image1.Free;
Fxxchx.Close;
end;






procedure TFxxchx.DBGrid3ColEnter(Sender: TObject);
begin
Image3.Picture.LoadFromFile(DBGrid3.DataSource.DataSet.FieldByName('dcimage').AsString);

end;



end.



图像不显示啊
 
是不是路径错误哟
你在TForm上放一个Label1

procedure TFxxchx.DBGrid3ColEnter(Sender: TObject);
begin
//在这里
Label1.caption := DBGrid3.DataSource.DataSet.FieldByName('dcimage').AsString;
//看Label1.Caption指定的路径是不是正确的哈,还有TImage只支持Jpg,bmp,wmf,emf,ico其他的图像格式有可能不支持
Image3.Picture.LoadFromFile(DBGrid3.DataSource.DataSet.FieldByName('dcimage').AsString);

end;
 
lqcros, 可以告诉我你的QQ吗?我是237453071
 
呵呵 不好意思 大错 我是279453071
 
我QQ:250198418
 
继续请教:就是怎么将DBtext显示题片路径的LPEG图片显示在IMAGE上?请给出具体代码
 
多人接受答案了。
 
后退
顶部