cxgrid 抓取资料库中的图片路径显示图片在cxgrid上

Question

本帖最后由 lllqueen 于 2012-10-11 17:54:03 编辑

Answer 1

1.如果access存的是图片的路径，你直接将其字段值显示在cxgrid就可以了；
2.建议做法：图片存在ftp上，数据库中存路径，后台代码处理好，前台界面显示出对应路径的图片。

Answer 2

不好意思，第一点可以说的具体点吗..目前卡在该如何做能把图片show在cxgrid上面..

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
   bmp1:TBitmap;
   bmpstream :TMemoryStream;                     //图片内存流对像
begin
  bmpstream:=TMemoryStream.Create;    //创建内存流对像
  bmpstream.LoadFromFile('d:\1.bmp');
  with ADOQuery1 do
  begin
    Edit;;
    TBlobField(FieldByName('image1')).LoadFromStream(bmpstream);   //图片
    post;
  end;
   bmpstream.Free;
end;

Answer 4

贴子已回，因为我的是DELPHI XE 程序可能你未必可能运行，但还是发给你，谢谢你的分！

Answer 5

想请问在cxgrid我需要做什么动作吗
还是只需要这段code就行...不好意思，初接触cxgrid，麻烦了!
另外我是用delphi 7

Answer 6

但还是要设置  cxgrid - view-列的属性-properties 为image类型才能显示！

Answer 7

请问网上看到这段，可以执行，但为什么cxgrid不会显示图片呢...
也设置为image了~执行后cxgrid还是空白的procedure TForm1.Button1Click(Sender: TObject);
var
  AFileName: String;
  AValue: AnsiString;
  APicture: TPicture;
begin
  ADODataSet1.Open;
while not ADODataSet1.eof do
begin
  if not ADODataSet1.Fieldbyname('picture').IsNull then
  begin
    AFileName := ADODataSet1.Fieldbyname('picture').AsString;
    if FileExists(AFileName) then
    begin
      APicture := TPicture.Create;
      try
        APicture.LoadFromFile(AFileName);
        SavePicture(APicture, AValue);
      finally
        FreeAndNil(APicture);
      end;
    end
    else
      AValue := '';
      self.cxGrid1DBTableView1.DataController.Values[ADODataSet1.RecNo-1, cxGrid1DBTableView1picture.Index] := AValue;
  end;
  ADODataSet1.Next;
 end;
 end;