还是请教Image控件图形载入问题**

wdc

procedure TMainForm.Button7Click(Sender: TObject);
var
   bs: TStream;
   l_image:Timage;
begin
  DataSetBroker_YZ.DataSet.edit;
  bs := TMemoryStream.Create;
  bs := DataSetBroker_YZ.DataSet.CreateBlobStream(DataSetBroker_YZ.Dataset.FieldByName('YZNR'),
      TBlobStreamMode.bmReadWrite);

  //***********用代码生成Image控件******************************
  //l_image := Timage.Create(nil);   //使用完后自己释放
  l_image := Timage.Create(Self);  //窗体释放时，系统也将它释放
  try
    l_image.Parent := Panel1;  //创建在哪里，它的父是什么
    l_image.Left:=100;   //定义image的 Left
    l_image.Height:=15;  //定义image的 Height
    l_image.AutoSize := true;
    //dialogs.ShowMessage('已经创建');
  finally
    //l_image.Free  //释放
  end;

  //************给Image载入图片内容
  l_image.Picture.Graphic.LoadFromStream(bs); //提示“引用对象为空类型”

  bs.Free;
end;
在这一段程序中语句   l_image.Picture.Graphic.LoadFromStream(bs);
提示“引用对象为空类型”。
如果Image不是语句生成，直接拖到窗体上，必须先载入图片然后用LoadFromStream才能成功。
否则也是同样错误。
是不是l_image.Picture.Graphic也要先初始化才能用？
劳烦给出解决代码！！！

alang

这个问题请参考Delphi的帮助文件或者其他Delphi的有关资料。

l_image.Picture.Graphic没有图片，肯定是空对象的。

wdc

气死我了！！！
这不是废话吗，我如果是Delphi高手，还请教你！我不就是找不到吗？
我就是为了给l_image.Picture.Graphic加图片，肯定原来没有图片了。

大哥请你高台贵手给出几行代码！ 我都快被这些简单问题气晕了。

wdc

我再发几句牢骚！希望别介意。
我原来是用Powbuilder的，好多人大骂PB不好，我也骂过。但是有一点它作的不错“帮助”。
我可以在帮助里找到任何控件的用法，并且有全面的实例，这个我不得不承认。

wdc

大哥我在帮助里面确实找不到！
请给出代码好不好

Alice

可以这样，用平台提供的bizimage来实现
先建资源集/位图（或者是图片），导入相关图片
通过bizimage.pictureURL：=图片的bizURL来实现

Alice

如果你想用 l_image.Picture.Graphic.LoadFromStream(bs);的话
bs应该是加上路径
但是这样的话，bs中赋的值是windows下的绝对路径，不如把图片存在数据库里
如果是把图片存在数据库里就用六楼的办法就可以了

wdc

谢谢！
我试一试吧。

atiger

楼主，问题解决了吗？给我们一个反馈好吗？

另外，由于开发商较多，开发人员更多，他（她）们的水平参差不齐，有些对这个熟悉，有的对那个熟悉，造成这样的误会，互相谅解一下，好吗？

对于资料不全，给开发人员带来不便，谅解。不过，公司已经投入了很多的人力正在整理，相信我们一段时间后推出的手册等等相关资料会给你的开发带来帮助。

biglazy

最初由 atiger 发布
[B]楼主，问题解决了吗？给我们一个反馈好吗？

另外，由于开发商较多，开发人员更多，他（她）们的水平参差不齐，有些对这个熟悉，有的对那个熟悉，造成这样的误会，互相谅..

以下省略...... [/B]

really？