Проблемы с антикаптчей

[kardinal94]

Добрый день, уважаемые форумчане. Проблема с антикаптчей, точнее с ее реализацией. Я использую стандартную функцию для оправки файла на antigate.com:

 function recognize(filename: string; apikey: string; is_phrase: boolean; is_regsense: boolean; is_numeric: boolean; min_len: integer; max_len: integer): string;
var
ftype,tmpstr,captcha_id: String;
i: integer;
http: TIdHTTP;
multi: Tidmultipartformdatastream;
id:string;
begin
if (FileExists(filename)=false) then begin result:='ERROR: file not found'; exit; end;
ftype:='image/pjpeg';
if strpos(Pchar(filename),'jpg')<>nil then ftype:='image/pjpeg';
if strpos(Pchar(filename),'gif')<>nil then ftype:='image/gif';
if strpos(Pchar(filename),'png')<>nil then ftype:='image/png';

http:=TIdHTTP.Create(nil);

multi:=Tidmultipartformdatastream.Create;
multi.AddFormField('method','post');
multi.AddFormField('key',apikey);
multi.AddFile('file',filename,ftype);
if is_phrase=true then multi.AddFormField('phrase','1');
if is_regsense=true then multi.AddFormField('regsense','1');
if is_numeric=true then multi.AddFormField('numeric','1');
if min_len>0 then multi.AddFormField('min_len',inttostr(min_len));
if max_len>0 then multi.AddFormField('max_len',inttostr(max_len));

http:=TIdHTTP.Create(nil);
tmpstr:=http.Post('http://antigate.com/in.php',multi);
http.Free;
captcha_id:='';
if strpos(Pchar(tmpstr),'ERROR_')<>nil then
  begin
    result:=tmpstr;
    exit;
  end;
if strpos(Pchar(tmpstr),'OK|')<>nil then
  captcha_id:=AnsiReplaceStr(tmpstr,'OK|','');
if captcha_id='' then result:='ERROR: bad captcha id';
 for i:= 0 to 10 do
  begin
  sleep(5000);
  http:=TIdHttp.Create(nil);
  tmpstr:=http.Get('http://antigate.com/res.php?key='+apikey+'&action=get&id='+captcha_id);
  http.Free;
  if strpos(Pchar(tmpstr),'ERROR_')<>nil then
  begin
    result:=tmpstr;
    exit;
  end;
  if strpos(Pchar(tmpstr),'OK|')<>nil then
    begin
    result:=AnsiReplaceStr(tmpstr,'OK|','');
    exit;
  end;
  end;
result:='ERROR_TIMEOUT';
  exit;
  end;

Ну естественно вызываю ее :

 form1.label10.caption:=recognize(ExtractFilePath(ParamStr(0))+'1.png',form13.key1.Text,false,false,false,0,0);

Кроме этого я конечно же сохраняю картинки с сайтов:

Captcha1:=TMemoryStream.Create;
     form1.IdHTTP1.Get(capUrl,Captcha1);
     Captcha1.Position:=0;
     Captcha1.savetoFile(ExtractFilePath(ParamStr(0))+'1.png');

Первая отправка картинки происходит нормально, только потом у меня появляются проблемы, а именно говорит, что файл занят другим процессом. Как можно от этого избавиться? Покопался в коде, вроде ничего "конфликтного" нету. Опытным взглядом прошу посмотреть. ))

[Пепел Феникса]

а где Free на multi?

[kardinal94]

Хмммм, действительно его не было, сделал так:

tmpstr:=http.Post('http://antigate.com/in.php',multi);
http.Free;
multi.Free;

Все равно не помогает. (

[Voody]

Captcha1.free после сохранения

[kardinal94]

все та же ересь

[kardinal94]

Может проблема из-за того, что я это делаю в потоке? Не в основном, а в другом потоке.

[kardinal94]

Неужели никто не может помочь?