日志
jpeg在image的画布Canvas上使用取点Pixels[x,y]
|
DELPHI7:
1、uses jpeg,clipbrd; //使用单元
2、VARjpg:Tjpegimage;
AFormat: Word;
AData: THandle;
APalette: HPALETTE;
jpg:=Tjpegimage.Create;
jpg.LoadFromFile("*.jpg"); //jpg文件装入
jpg.SaveToClipboardFormat(aFormat, AData,APalette); //复制到粘贴板
clipboard.SetAsHandle(AFormat, AData);
image1.Picture.Assign(clipboard);
3、shape1.Brush.Color:=Image1.Canvas.Pixels[x,y];//访问像素
