Creator Posted July 12, 2015 Share Posted July 12, 2015 I am getting the Error on the following code: procedure CaptchaAlarm(Beeps : Integer); var CaptchaNr1 : TSCARBitmap; CaptchaNr2 : TSCARBitmap; CaptchaNr3 : TSCARBitmap; Client : TSCARClient; BeepCount : Integer; X : Integer; Y : Integer; begin CaptchaNr1 := TSCARBitmap.Create('deNqt0L8OQ1AYBfA+gvdptbTaSmw2jyDxEAZCYvAIwuoRDP7sZgYSdt2stCfk3hTpIOlvkHO/73ATzIE5PPfgOO7xV5ZlrSb3Lzjatp1l2WtSluU4jvclgUAOguBNdF2HMoLwA66ea77vIw/DML+IlSiKtHYj0jRtmkZV1duGoig0Xwl8OQzD6wY6eZ7TI0+gr+s6v+G6LlbbeZIksiyvhpIk9X2PFZ1whKZpeNL/E8ex4zhFUSCbpklrl6W5XNd1VVVz9jzvu3ZeQqFt226CKwzDWHXYpSiKUGB/O+103OkDB2UnLA=='); CaptchaNr2 := TSCARBitmap.Create('deNqVkc2LAWEcx/0JatvNxNJMM7adhCtODk7cpeQsbyXhpOSllLeDlCblJG4cJCTJeivxByAHBzlIirv9NjXb1raH+Rym3+95vs/v+32ekUqkkul0+vUHs9n88g+vInkTCcuyzWZzsVgUi0WlUimTyQiC4DjO5XLJeGKxWLfb7fV6mUxGpVI1Go3NZoPd0+kUCAQg1mq1z+ez3W4TPBg1n8/T6fTlcsnlcvv9PhQKyeVyCMrlMgqHw4Gt5XKJaWhns1kikUCRz+dxEHqfz6dQKPAmRqMRBYa0Wq31em0ymdBCn0qlUMACNfQej+f9F8PhEI6j0cjtdqMdj8ewRn04HCqVCr5er1cloFart9utwWDgeLAyGAzO5/NkMqnVanq9HnpckyTJeDwejUaR4Xq9hsNhREJarCNDNpslBXa7XSQSoSiq0+nADg91v98RZrVaHY9HhmHwu3EjSqBarcKiUCjcbjen01mv1/v9Pk3TOp3u8XjYbDbML5VKtIBGo4EdfgfCYFowGMQphgcJLRaL3++32+2MwIdIPkXCCiSTSavV+tP+p/8G+N0PdA=='); CaptchaNr3 := TSCARBitmap.Create('deNq1yssJwCAQBUBLsMKgJH4Qkxq2ja1WvT98sBDnPN55NzZERFUvwH8A/Efw778B/w/gPwHZWz8DpQqoRu2wfthr9BlNrymrIA=='); Client := GetClient; if (FindBitmapTol(X, Y, CaptchaNr1, Client.InputArea.X1, Client.InputArea.Y1, Client.InputArea.X2, Client.InputArea.Y2, 10)) then begin if (FindBitmapTol(X, Y, CaptchaNr2, Client.InputArea.X1, Client.InputArea.Y1, Client.InputArea.X2, Client.InputArea.Y2, 10)) then begin if (FindBitmapTol(X, Y, CaptchaNr3, Client.InputArea.X1, Client.InputArea.Y1, Client.InputArea.X2, Client.InputArea.Y2, 10)) then begin for BeepCount := 1 to Beeps do begin PlaySound(ScriptPath + 'Beep.wav'); //You can remove this line to test its' workings Wait(100); end; end; end; end; CaptchaNr1.Free; CaptchaNr2.Free; CaptchaNr3.Free; end; Why? Quote Link to comment Share on other sites More sharing options...