剪贴板中的图片保存为JPG文件的问题 有正确答案马上结贴。。。
把剪贴板中的图片保存为JPG文件的问题 有正确答案马上结贴。。。
我用WINDOWS的画图程序复制了一块图片在剪贴板，想把剪贴板保存成一个JPG文件，我用的是(uses 里加上Clipbrd,)

img1.Picture.Assign(Clipboard);
img1.Picture.SaveToFile( 'c:\11.jpg ');
这个可以成功通过，问题是保存出来的11.JPG文件，再读取就有问题了
img2.Picture.LoadFromFile( 'c:\11.jpg ');

报错的是：JPEG error #53.

急等解决 各位大侠。

[解决办法]
不好意思，上面的有错，用下面的试一下吧：


implementation
uses clipbrd, Jpeg;
{$R *.dfm}

var
Jpg : TJpegImage;
Bmp : TBitmap;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Bmp <> nil then Bmp:=nil;
Bmp := TBitmap.Create;
Bmp.Assign(Clipboard);
image1.Picture.Bitmap := Bmp;
Bmp.Free;

if jpg <> nil then jpg:=nil;
Jpg := TJpegImage.Create;
Jpg.Assign(image1.Picture.Bitmap);
Jpg.SaveToFile( 'c:\1.jpg ');
Jpg.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
image1.Picture.LoadFromFile( 'c:\1.jpg ');
end;