[babay89]

Имеется код загрузки картики:

Код:

1 2 3 4 5 6 7 8

<font color="DarkOrange">Большой кусок кода</font> Memo := TMemoryStream.Create; idHTTP1.Get('http://ru6.darkorbit.bigpoint.com'+s4,Memo); idHTTP1.Disconnect; Memo.SaveToFile('image.gif'); Memo.Free; captcha:=recognize('image.gif',edit6.Text,false,false,false,0,0); <font color="DarkOrange">Большой кусок кода</font>

Первый раз качается все чОтко.
Но второй раз вылетает ошибка в это строке:

Код:

1	Memo.SaveToFile('image.gif');

Вот с такой ошибкой: http://floomby.ru/content/yHNnskxd30

Помогите решить.

[babay89]

ап. Помогите плииз

[M.A.D.M.A.N.]

Динамически создавай idHTTP1.

[babay89]

Сообщение от M.A.D.M.A.N.

Динамически создавай idHTTP1.

А при чем он здесь?

[M.A.D.M.A.N.]

Сообщение от babay89

А при чем он здесь?

Я скрин с твоей ошибкой не могу просмотреть, там одна реклама лезет, короче все кроме скрина, объясни на словах что там? Может быть так, что твоя гика занята другим процессом и по этому не получается перезаписать ее.

[M.A.D.M.A.N.]

Убэдиль, просмотрел твой срЫн, ну так там же ясно написано, файло занято, значит твой рекогнайз его занимает и не отпускает.

[babay89]

Сообщение от M.A.D.M.A.N.

Убэдиль, просмотрел твой срЫн, ну так там же ясно написано, файло занято, значит твой рекогнайз его занимает и не отпускает.

И как освободить?) P.S. рекогнайз - это сервис антигейт

[M.A.D.M.A.N.]

Надо смотреть под капот. Рекогнайз на каком-то объекте построен, или там дллька?

[babay89]

Сообщение от M.A.D.M.A.N.

Надо смотреть под капот. Рекогнайз на каком-то объекте построен, или там дллька?

Рекогнайз - это функция. Она использует только картинку(хотя не знаю). Кароче, вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

function form1.recognize(filename, apikey: string; is_phrase, is_regsense,   is_numeric: boolean; min_len, max_len: integer): string; var ftype,tmpstr,captcha_id: String; i: integer; http: TIdHTTP; multi: Tidmultipartformdatastream; 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';   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 20 do   begin   Application.ProcessMessages;   sleep(2000);   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;   Application.ProcessMessages;   end; result:='ERROR_TIMEOUT';   end;

[M.A.D.M.A.N.]

Пробуй:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

function form1.recognize(filename, apikey: string; is_phrase, is_regsense,   is_numeric: boolean; min_len, max_len: integer): string; var ftype,tmpstr,captcha_id: String; i: integer; http: TIdHTTP; multi: Tidmultipartformdatastream; 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';   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 20 do   begin   Application.ProcessMessages;   sleep(2000);   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;   Application.ProcessMessages;   end; result:='ERROR_TIMEOUT'; <b>multi.free;</b> end;

P.S. Твой код оформлен очень ужасно.

[babay89]

Сообщение от M.A.D.M.A.N.

P.S. Твой код оформлен очень ужасно.

А кто сказал что он мой? был скачан с сайта антигейта
P.s. Все равно та же ошибка.

[babay89]

UP!!! Проблема актуальна.

[Pyro]

на крайний случай можно менять имена файлов)

[babay89]

Сообщение от Pyro

на крайний случай можно менять имена файлов)

Каждый раз делать новый файл? Это извращение

[@Rafa3L]

так ты разберись со своим функционалом, так прям поле чудес какое-то "угадай где баг". или весь свой сорс выложи.