关于自动修改图像问题(200分)(200分)

  • 主题发起人 主题发起人 刘善强
  • 开始时间 开始时间

刘善强

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大虾,本人因非常急要一套系统,望各位大虾指点:
要求,在车辆办理挂牌业务时,从摄像头采集到车辆图片后,输入号牌号码后,
该号码自动加到车辆照片中的相应位置,清晰、逼真。
 
如果车辆照片中的号牌位置固定,或有特殊标志就好办了。
用下面的语句。
Canvas.TextOut(100,100,'1234567');
 
位置是完全固定的,您能提供点思路吗?
 
1.位置是完全固定的在扫描出来的图片应该是bmp型 的
image1.Canvas.Font.Color :=clred;//字体颜色
image1.Canvas.TextOut(x,y,'输入自行车牌照');
 
那位置和角度如何随机调整?每种车型的位置是固定的(因为是一张照片嘛),
不同的车型就不一样了,如何在程序中让不太懂微机的人就能轻易调整呢?
 
看看这个代码
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x1,y1:integer;

implementation

{$R *.DFM}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
x1:=x;
y1:=y;
end;

procedure TForm1.Image1DblClick(Sender: TObject);
begin
image1.Canvas.TextOut(x1,y1,'qwer');
end;

end.
 
唉!这些法子都不行!!!
高手在哪??
我是说:角度可以任意转动,而不是在一个平在面上旋转。。。。
 
多人接受答案了。
 
后退
顶部