Капча

[bulldog5293]

DeDoK, с таким не сталкивался, т.к. полностью пример Terikona не проверил из-за того что ещё в начале поста спросил как отсеить ссылку на капчу, а то что я написал сайт который меня интересует, это в пример, у меня цикл на добавление ссылок используется и без rewrite, но с капчай начал работать только не давно

[DeDoK]

я пробовал в начале цикла писать

img.Clear;

но прога первую капчу отсылает на антигейти все четко.
а на вторую выдает что мол файл занят другим процессом

[Terikon]

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

я пробовал в начале цикла писать

img.Clear;

но прога первую капчу отсылает на антигейти все четко.
а на вторую выдает что мол файл занят другим процессом

Нужно не очищать а удалять
img.Free;

[DeDoK]

Нужно не очищать а удалять
img.Free;

в цикле прям?

вот у меня код
немного быдловат как по моему мнению

procedure TMainForm.sButton3Click(Sender: TObject);
var
img: TMemoryStream;
png: TPNGObject;
a : array[0..9] of string;
i, j : integer;
login, pass, s: string;
params : TStringList;
begin
//создаем капчу
img:=TMemoryStream.Create;
png:=TPNGObject.Create;
// создаем списки
loginlist:=TStringList.Create;
passlist:=TStringList.Create;
params:=TStringList.Create;
//создаем имя
a[0]:='Lena';
a[1]:='Masha';
a[2]:='Katya';
a[3]:='Jenny';
a[4]:='Sasha';
a[5]:='Sveta';
a[6]:='Ira';
a[7]:='Marina';
a[8]:='Natasha';
a[9]:='Vika';
sMemo1.Lines.Add('Создание списка паролей и логинов');
for i:=1 to Round(sDecimalSpinEdit1.value) do
begin
j:=random(9);
login := RandomString(Round(sDecimalSpinEdit2.Value));
pass:= RandomString(Round(sDecimalSpinEdit3.Value));
loginlist.Add(login);
passlist.Add(pass);
try
 IdHTTP1.Get('http://www.baby.ru/registration/captcha/image.png', img);
 img.Position:=0;
 png.LoadFromStream(img);
 png.SaveToFile('captcha.png');
s:=recognize('captcha.png',sEdit3.Text,false,false,false,0,0);
params.Add('save=true');
params.Add('firstname='+a[j]);
params.Add('login='+login);
params.Add('password='+pass);
params.Add('email='+login+'@'+sComboBox1.Text);
params.Add('captcha='+s);
idhttp1.Post('http://www.baby.ru/registration/',params);
png.Free;
img.Free;
finally
params.clear;
sMemo2.Lines.Add(login+'@'+sComboBox1.Text+sEdit2.Text+pass);
sMemo1.Lines.Add('Аккаунт '+login+' успешно зарегестрирован.');
Application.ProcessMessages;
Update;
end;
{
loginlist.SaveToFile('c:\Login.txt');
passlist.SaveToFile('c:\Pass.txt');
}
end;
sMemo1.Lines.Add('Регистрация окончена.');
loginlist.Free;
passlist.Free;
end;

исправить его у меня просто не получается((

буду премного благодарен если кто поможет

[zver777]

Ваш код не причём. Это у antigate функция ихняя не освобождает картинку.
Подпрвьте её. Правильно будет так:

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

[DeDoK]

сделал немного иначе

for i:=1 to Round(sDecimalSpinEdit1.value) do
begin
img:=TMemoryStream.Create;
png:=TPNGObject.Create;
// создаем списки
loginlist:=TStringList.Create;
passlist:=TStringList.Create;
params:=TStringList.Create;
//создаем имя

j:=random(9);
login := RandomString(Round(sDecimalSpinEdit2.Value));
pass:= RandomString(Round(sDecimalSpinEdit3.Value));
loginlist.Add(login);
passlist.Add(pass);
try
 IdHTTP1.Get('http://www.baby.ru/registration/captcha/image.png', img);
 img.Position:=0;
 png.LoadFromStream(img);
 png.SaveToFile('captcha.png');
s:=recognize('captcha.png',sEdit3.Text,false,false,false,0,0);
DeleteFile('captcha.png');
params.Add('save=true');
params.Add('firstname='+a[j]);
params.Add('login='+login);
params.Add('password='+pass);
params.Add('email='+login+'@'+sComboBox1.Text);
params.Add('captcha='+s);
idhttp1.Post('http://www.baby.ru/registration/',params);

finally

sMemo2.Lines.Add(login+'@'+sComboBox1.Text+sEdit2.Text+pass);
sMemo1.Lines.Add('Аккаунт '+login+' успешно зарегестрирован.');
Application.ProcessMessages;
params.free;
png.Free;
img.Free;
loginlist.Free;
passlist.Free;

end;
end;
end;

ошибка не возникает, но аккаунты не регистрируются(( кто еще знает решение?(
регистрируется только первый. остальные нет.

[Terikon]

Смотри сниффером что в ответ приходит, причины самые распространённые, куки не почистил\бан прокси\не верно ввели код капчи на антигейте

[DeDoK]

в том то и вся проблема..снифер ничего не показал!

[Terikon]

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

в том то и вся проблема..снифер ничего не показал!

Вообще ничиво не показал? пустую страницу чтоли загрузил?

[DeDoK]

все я разобрался. проблема была в антигейте.
не успевал распознавать капчу