张志峰的博客

水滴石川，积少成多。

导航

2017年11月9日

delphi 处理缩放图像

摘要： procedure TTMEImageDeviceIdentifyFrom.DrawText(AImage : TImage; AFile: string);var I: Integer; iWidth, iHeight: Integer; oInfo: TTextInfoAry; oRect, R 阅读全文

posted @ 2017-11-09 19:10 ╰★张志峰★╮ 阅读(1999) 评论(0) 推荐(0) 编辑

delphi Image 处理

摘要： procedure ResizeBmp(Src,Dst:String);var SrcBM,DstBM:TBitMap; Rect:TRect; NewW,NewH,PicW,PicH:Integer; HDivW:Double;begin SrcBM:=TBitMap.Create; SrcBM. 阅读全文

posted @ 2017-11-09 18:36 ╰★张志峰★╮ 阅读(765) 评论(0) 推荐(0) 编辑