Delphi Simulation website Verification Code (cool, put random text on the picture)

[Delphi]View PlainCopyprint?

2. function Tfrmlabelpages.  Pwdimg (img:timage): string;
4. Var
6. I,j,k:integer;
8. Vpoint:tpoint;
10. Vleft:integer;
12. ARRSTR:Array [1..36]of string;
14. Strresult: string;
16. Begin
18. Strresult: = ";
20. arrstr[1]: = ' 0 ';  arrstr[2]:=' 1 ';  arrstr[3]:=' 2 ';  arrstr[4]:=' 3 ';
22. arrstr[5]: = ' 4 ';  arrstr[6]:=' 5 ';  arrstr[7]:=' 6 ';  arrstr[8]:=' 7 ';
24. arrstr[9]: = ' 8 ';  arrstr[10]:=' 9 '; arrstr[11]:=' A '; arrstr[12]:=' B ';
26. arrstr[]: = ' C '; arrstr[14]:=' D '; arrstr[15]:=' E '; arrstr[16]:=' F ';
28. arrstr[]: = ' G '; arrstr[18]:=' H '; arrstr[19]:=' I '; arrstr[20]:=' J ';
30. arrstr[]: = ' K '; arrstr[22]:=' L '; arrstr[23]:=' M '; arrstr[24]:=' N ';
32. arrstr[]: = ' O '; arrstr[26]:=' P '; arrstr[27]:=' Q '; arrstr[28]:=' R ';
34. arrstr[]: = ' S '; arrstr[30]:=' T '; arrstr[31]:=' U '; arrstr[32]:=' V ';
36. arrstr[]: = ' W '; arrstr[34]:=' X '; arrstr[35]:=' Y '; arrstr[36]:=' Z ';
38. For j:=1 to 4 do
40. begin
42. Randomize;
44. K: = Strtoint (Format ('%.1d ', [Random (36)]));
46. Strresult: = strresult + trim (Arrstr[k])
48. end;
50. Vleft: = 10;
52. IMG. Picture: = nil;
54. For I: = 1 to Length (strresult) does
56. begin
58. With Img do
60. begin
62. Canvas. Font.  Size: = Random (ten) + 9;
64. Canvas. Font. Color: = RGB (Random () and $C 0,
66. Random ( $C 0, Random () and $C 0);
68. if Random (2) =1 Then
70. Canvas. Font. Style: = [Fsbold]
72. Else Canvas. Font.  Style: = [];
74. begin
76. Canvas. Font. Name: = Screen.  fonts[10];
78. Vpoint.  X: = Random (4) + vleft;
80. Vpoint.  Y: = Random (5);
82. Canvas. TextOut (Vpoint. X, Vpoint.  Y,strresult[i]);
84. Vleft: = Vpoint. X + Canvas.  TextWidth (Strresult[i]);
86. end;
88. end;
90. end;
92. End

http://blog.csdn.net/yanjiaye520/article/details/7957397

Delphi Simulation website Verification Code (cool, put random text on the picture)