{2、 图像缩略图 使用函数:GetThumbnailImage 注意:函数中的两个指针类型的形参,默认为空 核心函数是API的 function GdipGetImageThumbnail; external WINGDIPDLL name 'GdipGetImageThumbnail'; --------------------------------------------------------------------------------- function TGPImage.GetThumbnailImage(thumbWidth, thumbHeight: UINT; callback: GetThumbnailImageAbort = nil; callbackData: pointer = nil): TGPImage; } procedure TForm1.Button1Click(Sender: TObject); var TmpG: TGPGraphics; TmpImg, smlImg: TGPImage; //此处多定义一个缩略图图像临时存放 begin TmpG := TGPGraphics.Create(image1.Canvas.Handle); TmpImg := TGPImage.Create('c:/xy.jpg'); //{如果图像没有携带略缩图, 将缩放生成; 略缩图一般不应超过 120*120} //来自万一 CSDN Blog smlImg := TmpImg.GetThumbnailImage(35, 35, nil, nil); TmpG.DrawImage(TmpImg, 0, 0, TmpImg.GetWidth, TmpImg.GetHeight); //更换挂靠画布 TmpG.Create(Image2.Canvas.Handle); TmpG.DrawImage(smlImg, 0, 0, smlImg.GetWidth, smlImg.GetHeight); TmpG.Free; TmpImg.Free; end;