hey is ziemlich easy brauchst 2 funktionen:
wichtig, du musst dich vorher einmal auf dem rechner bei cptcha killer angemeldet haben, damit er den aufruf akzeptiert und es gehen nur noch 30captchas pro tag
ansonsten is die seite geil, liest studiVZ und alle möglichen anderen imagecodes ohne probleme solange man die farbtiefe auf 8bit oder niedriger setzt.
hier datei hochladen:
Delphi-Quellcode:
function TLoginForm.uploadImage(dest:string):string;
var DataStream: TIdMultiPartFormDataStream;
stringvar:String;
idHTTP: TIdCustomHTTP;
begin
idHTTP:=TIdCustomHTTP.Create(self); //compo erstellen
DataStream := TIdMultiPartFormDataStream.Create; //stream erstellen
DataStream.AddFormField('method','upload_captcha');
DataStream.AddFormField('api_key',api_key);
DataStream.AddFormField('captcha_url','sro');
DataStream.AddFormField('expire','120');
DataStream.AddFormField('rights','true');
DataStream.AddFile('file', 'IMAGE.JPG', 'multipart/form-data'); //bild einfuegen
stringvar := idHTTP.Post(dest, DataStream); //upload
stringvar:=Copy(stringvar,21,Length(stringvar)-21);
{Delete(stringvar,1,20);
StringReplace(stringvar, #13#10, '', [rfReplaceAll]);}
DataStream.Free;
idHTTP.Free;
Memo1.Lines.Add(stringvar);
Result:=stringvar; //captcha_id is rueckgabewert
end;
text lesen = alle 10sekunden oder so aufrufen:
Delphi-Quellcode:
function TLoginForm.readImage(dest:string):string;
var DataStream: TIdMultiPartFormDataStream;
stringvar:String;
idHTTP: TIdCustomHTTP;
begin
idHTTP:=TIdCustomHTTP.Create(self); //compo erstellen
DataStream := TIdMultiPartFormDataStream.Create; //stream erstellen
DataStream.AddFormField('method','get_result');
DataStream.AddFormField('api_key',api_key);
DataStream.AddFormField('captcha_id',captcha_id);
DataStream.AddFormField('op','Submit');
sleep(50);
stringvar:=idHTTP.Post(dest, DataStream);
Memo1.Lines.Add(stringvar);
DataStream.Free;
idHTTP.Free;
Result:=stringvar; //rückgabe ist WAIT oder SUCCESS: text
end;
viel Spaß damit