reger1992
23.05.2010, 08:25
Всем привет, создаю многопоточное приложение, в каждом потоке динамически создаю индейца. Потом делаю запрос на антикапчу:
procedure Torrent.capthca;
var cap:array [1..1000] of TIdMultiPartFormDataStream;
cap_id: array [1..1000] of string;
i:integer;
response2:array [1..1000] of tstringlist;
begin
response2[num]:=Tstringlist.Create();
IDHTTP2[num]:=TIDHTTP.Create(nil);
IDHTTP2[num].HandleRedirects:=true;
IDHTTP2[num].AllowCookies:=true;
cap[num]:=TIdMultiPartFormDataStream.Create;
cap[num].AddFormField('method','post');
cap[num].AddFormField('key','cd68a7198ea23eb4a77c179d4775e 899');
cap[num].AddFile('file',GetCurrentDir+'\'+inttostr(num)+'. jpg','image/jpeg');
response2[num].text:=IDHTTP2[num].Post('http://antigate.com/in.php',cap[num]);
cap_id[num]:=copy(response2[num].Text,4,9);
sleep(5000);
response2[num].text:=IDHTTP2[num].Get('http://antigate.com/res.php?key='+antigatekey'+'&action=get&id='+cap_id[num]);
И вот этот GET запрос не выполняется, хотя неделю назад все работало. Что это может быть?
procedure Torrent.capthca;
var cap:array [1..1000] of TIdMultiPartFormDataStream;
cap_id: array [1..1000] of string;
i:integer;
response2:array [1..1000] of tstringlist;
begin
response2[num]:=Tstringlist.Create();
IDHTTP2[num]:=TIDHTTP.Create(nil);
IDHTTP2[num].HandleRedirects:=true;
IDHTTP2[num].AllowCookies:=true;
cap[num]:=TIdMultiPartFormDataStream.Create;
cap[num].AddFormField('method','post');
cap[num].AddFormField('key','cd68a7198ea23eb4a77c179d4775e 899');
cap[num].AddFile('file',GetCurrentDir+'\'+inttostr(num)+'. jpg','image/jpeg');
response2[num].text:=IDHTTP2[num].Post('http://antigate.com/in.php',cap[num]);
cap_id[num]:=copy(response2[num].Text,4,9);
sleep(5000);
response2[num].text:=IDHTTP2[num].Get('http://antigate.com/res.php?key='+antigatekey'+'&action=get&id='+cap_id[num]);
И вот этот GET запрос не выполняется, хотя неделю назад все работало. Что это может быть?