procedure Draw(X, Y: Integer; Graphic: TGraphic);
Graphics can be bitmaps, icons, or metafiles.
以上是标准说明~
再来看程序:
var
I: TJPegImage;
Begin
.....
I := TJpegImage.Create;
TBlobField(Table1.Fields[1]).SaveToFile('d:\1.Jpg');
I.LoadFromFile('d:\1.JPG');
Image1.Canvas.Draw(0, 0, I);
I.Free;
....
End;
I为JPEG格式,为什么还能用Image1.Canvas.Draw(0, 0, I)呢?
Graphics can be bitmaps, icons, or metafiles.
以上是标准说明~
再来看程序:
var
I: TJPegImage;
Begin
.....
I := TJpegImage.Create;
TBlobField(Table1.Fields[1]).SaveToFile('d:\1.Jpg');
I.LoadFromFile('d:\1.JPG');
Image1.Canvas.Draw(0, 0, I);
I.Free;
....
End;
I为JPEG格式,为什么还能用Image1.Canvas.Draw(0, 0, I)呢?
建议用TBitMap试一下。