How to make Captcha in unigui?

墨蓝 2021-11-22 16:04 250阅读 0赞

unit UniCaptcha;  
  
interface  
uses  
  classes,  
  Graphics,  
  uniImage;  
  
type TUniCaptcha=class(TUniImage)  
  private  
    FChallenge:ShortString;  
    procedure Render;  
  public  
    constructor create(Owner:TComponent);override;  
    procedure SetChallenge(aChallenge :ShortString);  
  published  
    property Challenge  :ShortString    read FChallenge   write FChallenge;  
end;  
  
procedure Register;  
  
implementation  
  
constructor TUniCaptcha.Create(Owner:TComponent);  
begin  
  inherited;  
end;  
  
procedure TUniCaptcha.SetChallenge(aChallenge:ShortString);  
begin  
  FChallenge:= aChallenge;  
  Render;  
end;  
  
procedure TUniCaptcha.render;  
Var  
  b :TBitmap;  
  i :Integer;  
begin  
  b :=TBitmap.Create;  
  with b do  
  begin  
    b.Width  :=self.Width;  
    b.height :=self.Height;  
    For i :=0 to 30dobegin  
      randomize;  
      canvas.Pen.Width     := random(5)+5;  
      Canvas.Pen.Color     := random(64738)+64738;  
      Canvas.Brush.Style   := bsFDiagonal;  
  
      Canvas.Ellipse(random(width),random(Height),random(width),random(height));  
    end;  
    Canvas.Font.Color:= clBlue;  
    Canvas.Font.Size  :=18;  
    Canvas.TextOut(10,trunc(self.height/2),FChallenge);  
    Canvas.Font.Color:= clRed;  
    Canvas.TextOut(8,trunc(self.height/2)-2,FChallenge);  
  end;  
  
  Picture.Assign(B);  
  b.Free;  
end;  
  
procedure Register;  
begin  
    RegisterComponents('UniCustom',\[TUniCaptcha\]);  
end;  
  
end.

转载于:https://www.cnblogs.com/wxb-km/archive/2012/11/05/2755980.html

发表评论取消回复

表情：

评论列表（有 0 条评论，250人围观）

还没有评论，来说两句吧...

相关阅读

相关 how to make NaCS with daily necessities

NaCS (纳卡斯) 是一种化学物质，是钠(Na)和碳酸盐(CS)的化合物。如果您想要用日常用品制作 NaCS，您需要以下材料和设备： 1. 钠碳酸钠(NaHCO3)，通常

╰半橙微兮°/ 2024年03月25日 17:44/ 0 赞/ 82 阅读

相关 How to active Profiles in Spring

Activate different profiles in different environments 1. Use @Profile on a Bean

矫情吗；*/ 2024年02月23日 08:16/ 0 赞/ 69 阅读

相关学习方法：《How to Study in College》

知道你为啥学习（工作）很努力但成绩却很差吗？智商？大多数人的智力水平基本一样，对，就是方法，你不知道也没掌握正确的学习方法。不知道为啥这么好的书很少人知道，而且竟然找不

「爱情、让人受尽委屈。」/ 2022年11月11日 13:14/ 0 赞/ 200 阅读

相关 How to dev Gstreamer In Windows

<script type="text/javascript"> document.body.oncopy = function() \{ if (window.cli

àì夳堔傛蜴生んèń/ 2022年08月07日 01:47/ 0 赞/ 203 阅读

相关 How to use forms in Tapestry 5.

Forms are probably the most used way of getting data from an end user. Tapestry does a l

一时失言乱红尘/ 2022年07月12日 14:12/ 0 赞/ 265 阅读

相关 How to make your issues in GitHub more professional? [Labels feature]

How to make your issues in GitHub more professional? \[Labels feature\] First,

缺乏、安全感/ 2022年06月07日 11:15/ 0 赞/ 220 阅读

相关 Python - How to make a chain of function decorators?

分享一个大牛的人工智能教程。零基础！通俗易懂！风趣幽默！希望你也加入到人工智能的队伍中来！请点击[http://www.captainbed.net][http_www.cap

深藏阁楼爱情的钟/ 2022年05月29日 06:54/ 0 赞/ 181 阅读

相关 How to make nutch run in eclipse ?

\[b\]\[color=green\]\[size=large\]Nutch是一个优秀的开源的数据爬取框架，我们只需要简单的配置，就可以完成数据爬取，当然，Nutch里面也提

﹏ヽ暗。殇╰゛Y/ 2022年04月13日 10:24/ 0 赞/ 198 阅读

相关 How to make an SDL window the child of another window in Win32

<table style="color:rgb(0,0,0); font-size:13px; text-align:justify; background-c

亦凉/ 2022年04月11日 07:13/ 0 赞/ 142 阅读

相关 How to make Captcha in unigui?

unit UniCaptcha; interface uses classes, Graphics, uniImage; typ

墨蓝/ 2021年11月22日 16:04/ 0 赞/ 251 阅读