有没有做过手签的大哥，说说思路！

[lqdmafeng]

我想作个办公文档审批，需要领导手工签名，但是签好发送到WORD文档中的图片比一般拿手写得大得多，我想在手签软件发送以后到WORD文档接受之前或接收到之后能不能将其成比例缩小，如何解决？

[lqdmafeng]

为什么没有人说?是不明白我的意思吗?

[naughtyboy]

楼上提供了一种方法
另外你看看能不能用OpenGL来实现
通过OpenGL改变像素间距

[Billy_Chen28]

图片处理方法：
procedure TForm2.Zoom_In(Img: TImage;const Times:Integer);
var
Bmp :TBitmap;
begin
Bmp :=TBitmap.Create;
Bmp.Width :=Img.Picture.Bitmap.Width*Times;
Bmp.Height :=Img.Picture.Bitmap.Height*Times;
StretchBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,
Img.Picture.Bitmap.Canvas.Handle,0,0,Img.Picture.Bitmap.Width,Img.Picture.Bitmap.Height,SRCCOPY);
Img.AutoSize :=True;
Img.Picture.Bitmap.Assign(Bmp);
SecondPic.Assign(Img.Picture);
Bmp.Free;
end;

procedure TForm2.Zoom_Out(Img: TImage;const Times:Integer);
var
Bmp :TBitmap;
begin
Bmp :=TBitmap.Create;
Bmp.Width :=Img.Picture.Bitmap.Width div Times;
Bmp.Height :=Img.Picture.Bitmap.Height div Times;
StretchBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,
Img.Picture.Bitmap.Canvas.Handle,0,0,Img.Picture.Bitmap.Width,Img.Pi cture.Bitmap.Height,SRCCOPY);
Img.AutoSize :=True;
Img.Picture.Bitmap.Assign(Bmp);
SecondPic.Assign(Img.Picture);
Bmp.Free;
end;

[yczyk]

不懂，我在学习中呢！不过，还想拿点分，先UP一下啦！

[lqdmafeng]

谢谢大虾的帮助，本来打算迟两天再结，但是又要一周不能上网了，所以就结了。