【结】图片显示问题**

aboy

我上传图片
procedure TMainForm.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  DataSetBroker1.Dataset.Append;
  DataSetBroker1.Dataset.FieldByName('ID').AsString:='001';
  TBlobField(DataSetBroker1.Dataset.FieldByName('Image')).LoadFromFile(OpenDialog1.FileName);
  DataSetBroker1.Dataset.Post;
  DataSetBroker1.DataSet.ApplyUpdates;
end;


但是从数据库中读出显示的时候 报错
procedure TMainForm.Button2Click(Sender: TObject);
var
  lIcon: TIcon;
  lStream: TStream;
begin
  lIcon := TIcon.Create;
  lStream:= TMemoryStream.Create;
  TBlobField(DataSetBroker1.DataSet.FieldByName('Image')).SaveToStream(lStream);
  lIcon.LoadFromStream(lStream);
  ImageList1.AddIcon(lIcon);
end;

帮我测试下..............

aboy

哈哈,自己搞定了

atiger

厉害，把方法共享一下吧

lixy

procedure TMainForm.Button2Click(Sender: TObject);
var
  lIcon: TIcon;
  lStream: TMemoryStream;
begin
  lIcon := TIcon.Create;
  lStream:= TMemoryStream.Create;
  TBlobField(DataSetBZSJJ1.FieldByName('tb')).SaveToStream(lStream);
  lStream.Position:=0;
  lIcon.LoadFromStream(lStream);
  ImageList1.AddIcon(lIcon);
end;

lixy

lStream.Position:=0;   重点在这里

aboy

是哟

atiger

结