delphi 实现验证码功能

Question

本人在用delphi做一个登录界面，想实现验证码的功能。但在百度上没找到源码。求源码连接地址或源码，谢谢。

Answer 1

很久之前做过一个，源码找不到了，可以提供一个思路：
1.将待生成验证码的字符分解，对每一个字符进行以下处理：
2.将当前字符使用随机颜色（白色除外）输出到一个大小固定的矩形图像中（使用textout函数）
3.将此图像进行随机角度（可以在一定范围内）旋转（可能会用到图像处理中的rotate函数）
4.将此图像复制且追加到目标图像中的尾部（可能用到copyrect函数），尽量避免尺寸定义过小带来的覆盖之前字符的问题，当然可以在小尺度上进行覆盖，这样验证效果更好些
5.在最终图像上，使用不同的线型画上几道线（直线、曲线、非连续线等可以随机搭配），以增加机器识别的难度，但不得太粗防止客户都无法识别。
6.将最终结果输出为图像即可。