怎么把Image的bmp图片赋给DBImage?

Question

如题,谢谢!

Answer 1

to:ghyghost(爱国人士) 
代码怎么写?

Answer 2

直接:DBImage1.Picture:=Image2.Picture;就可以了.下面是我自己写的添加相片
procedure TfSetClientData.SpeedButton2Click(Sender: TObject);
var
  fn:string;
  jp:TJPEGImage;
  bmp:TBitmap;
begin
  jp:=TJPEGImage.Create;
  bmp:=TBitMap.Create;
  if OpenPictureDialog1.Execute then
  begin
    fn:=OpenPictureDialog1.FileName;
    if FileExists(fn)  then
    begin
      if (UpperCase(ExtractFileExt(fn))='.JPG') or (UpperCase(ExtractFileExt(fn))='.JPEG')  then  //转换bmp格式
      begin
        jp.LoadFromFile(fn);
        bmp.Assign(jp);
        DBImage1.Picture.Bitmap:=bmp;
      end
      else
        DBImage1.Picture.LoadFromFile(fn);
    end;
  end;
  jp.Free;
  bmp.Free;
end;