استخدام captcha في الطلبات ( مثال جيد )

[onexite]

السلام عليكم ورحمة الله وبركاته
يسعدني ان اقدم لكم هذا الموضوع والذي يتناول طريقة استخدام رقم الحماية ( captcha )
صور من البرنامج



وفعالية البرنامج



ملاحظة
عند ارسال الطلب اذا كان الطلب صحيح فلن يكون هناك تحويل واذا كان الكود خاطا سيكون هناك تحويل لذلك طريقة معرفة نجاح الارسال هكذا

PHP كود :

if idhttp1.Response.ResponseCode=302 then 


الكود المستخدم

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var list:tstringlist;
ms:tmemorystream;
gif:tgifimage;
begin
ms:=tmemorystream.Create;
gif:=TGIFImage.Create;
try
idhttp1.Get('http://www.anonymailer.net/captcha/CAPTCHA_image.asp',ms);
ms.Position:=0;
gif.LoadFromStream(ms);
image1.Picture.Assign(gif);
finally
gif.Free;
ms.Free;
end;

StatusBar1.Panels[0].Text:='';
application.ProcessMessages;
 list:=tstringlist.Create;
 list.Add(format('anonyFRONAME=%s',[edit4.Text])) ;
 list.Add(format('anonyFROM=%s',[edit1.Text])) ;
 list.Add(format('anonyTO=%s',[edit2.Text]));
 list.Add(format('anonySUBJECT=%s',[edit3.Text]));
 list.Add(format('anonyMSG=%s',[memo1.Text]));
 list.Add(format('securityCode=%s',[inputbox('security Code','Code','')]));
 list.Add('submit=Submit');
 try
 try
idhttp1.Post('http://www.anonymailer.net/thankyou-page.asp',list) ;
StatusBar1.Panels[0].Text:='Thank you anonymailer. Your message has been sent.';
 except
  if idhttp1.Response.ResponseCode=302 then
   StatusBar1.Panels[0].Text:='The security code you entered is incorrect'
 end;
 finally
  list.Free
 end;
end; 


الاضافات

PHP كود :

uses  GifImage  ; 


السورس في المرفقات