【结帖】[请求]可以用代码实现图像上传吗？**

lijunfeng

现在有个字段，是二进制流类型的，表现形式为“图像”。
除了鼠标右击点“载入图片”来加载图片以外，可以用写代码的方式实现同一过程吗？

shangxy

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;

lijunfeng

好了，谢谢哦