1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var
encoderClsid: TGUID;
stat: TStatus;
Image: TGPImage;
s: IStream;
ms: tmemorystream;
begin
GetEncoderClsid('image/png', encoderClsid);
ms:= TMemoryStream.Create;
ms.LoadFromFile('GrapeBunch.bmp');
s := TStreamAdapter.Create(ms);
image:= TGPImage.Create(s);
stat := image.Save('GrapeBunch.bmp', encoderClsid, nil);
ms.Free;
image.Free;
s:= nil;
if(stat = Ok) then
memo1.Lines.Add('GrapeBunch.bmp was saved successfully')
else
memo1.Lines.Add(format('Failure: stat = %s', [GetStatus(stat)]));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
encoderClsid: TGUID;
stat: TStatus;
Image1,Image2: TGPImage;
s: IStream;
ms: tmemorystream;
begin
Image1 := TGPImage.Create('B.bmp');
GetEncoderClsid('image/png', encoderClsid);
image1.Free;
ms:= TMemoryStream.Create;
ms.LoadFromFile('B.bmp');
s := TStreamAdapter.Create(ms);
image2:= TGPImage.Create(s);
stat := image2.Save('B.bmp', encoderClsid, nil);
ms.Free;
image2.Free;
s:= nil;
if(stat = Ok) then
memo1.Lines.Add('GrapeBunch.bmp was saved successfully')
else
memo1.Lines.Add(format('Failure: stat = %s', [GetStatus(stat)]));
end;
procedure TFormBrowse.Button1Click(Sender: TObject);
var
encoderClsid: TGUID;
stat: TStatus;
Image: TGPBitmap;
BmpSave : TGPBitmap;
Gd : TGpGraphcis;
begin
Image := TGPImage.Create('GrapeBunch.bmp');
BmpSave := TGpBitmap.Create(Image.GetWidth,Image.GetHeight,Image.GetPixelFormat);
Gd := TGpGraphics.Create(BmpSave);
Gd.DrawImage(Image,0,0);
freeandnil(Gd);
Freeandnil(Image);
// Get the CLSID of the PNG encoder.
GetEncoderClsid('image/bmp', encoderClsid);
stat := BmpSave.Save('GrapeBunch.bmp', encoderClsid, nil);
Freeandnil(BmpSave);
if(stat = Ok) then
memo1.Lines.Add('GrapeBunch.bmp was saved successfully')
else
memo1.Lines.Add(format('Failure: stat = %s', [GetStatus(stat)]));
end;