delphi image图片如何保存到access 的ole对象中

Question

delphiaccessOLE 对象image

Answer 1

//保存图片procedure TForm1.Button2Click(Sender: TObject);
var
  strm: TMemoryStream;
  myjpeg: TJPEGImage;
begin
  if (ExtName = '.jpg') or (ExtName = '.jpeg') or (ExtName = '.bmp') then
  begin
    adotable1.Edit;
    if (ExtName = '.jpg') or (ExtName = '.jpeg') then
    begin
      strm := TMemoryStream.Create;
      myjpeg := TJPEGImage.Create;
      myjpeg.Assign(image1.Picture.Graphic);
      myjpeg.SaveToStream(strm);
      strm.Position := 0;
      tblobfield(adotable1.FieldByName('img1')).LoadFromStream(strm);
      strm.Free;
    end;
    if ExtName = '.bmp' then
    begin
      strm := TMemoryStream.Create;
      image1.Picture.Bitmap.SaveToStream(strm);
      strm.Position := 0;
      tblobfield(adotable1.FieldByName('img1')).LoadFromStream(strm);
      strm.Free;
    end;
    adotable1.FieldByName('extm').Value := ExtName;
    adotable1.Post;
    ShowMessage('保存图片成功！');
  end
  else
    ShowMessage('保存图片失败！');
end;//读取图像
procedure TForm1.Button3Click(Sender: TObject);
var
  buf: TMemoryStream;
begin
  if adotable1.FieldValues['img1'] <> 'NULL' then
  begin
    buf := TMemoryStream.Create;
    try
      buf.Position := 0;
      tblobfield(adotable1.FieldByName('img1')).SaveToStream(buf);
      buf.Position := 0;
      Image1.Picture.Graphic := nil;
      if (adotable1.FieldValues['extm'] = '.jpg') then
      begin
        Image1.Picture.Graphic := TJPEGImage.Create;
        Image1.Picture.Graphic.LoadFromStream(buf);
      end;
      if (adotable1.FieldValues['extm'] = '.jpeg') then
      begin
        Image1.Picture.Graphic := TJPEGImage.Create;
        Image1.Picture.Graphic.LoadFromStream(buf);
      end;
      if (adotable1.FieldValues['extm'] = '.bmp') then
      begin
        Image1.Picture.Bitmap := nil;
        Image1.Picture.Bitmap.LoadFromStream(buf);
      end;
      buf.Free;
    except
      ShowMessage('载入图片不成功，请检查图片类型');
    end;
  end;
  Image2.Picture := Image1.Picture;
end;
帮你搜到的，未测试

Answer 2

试了.bmp的，可以用，非常感谢