Ошибка THTTP

[alex0097]

Может кто подскажет. Уже всю голову сломал. В чем может быть проблема((( Не подрубается к проксям. В делфях выбивает это сообщение

First chance exception at $76CDB9BC. Exception class EIdHTTPProtocolException with message 'HTTP/1.1 403 Forbidden'. Process Project1.exe (6280)

[alex0097]

Исходник:

procedure TForm1.BitBtn1Click(Sender: TObject);
var searchResult : TSearchRec;
begin
**Randomize;
**if (TypeProxy<>0) then
***ProxyList.LoadFromFile(ExtractFilePath(Application.ExeName)+'proxy.txt');

**Follow:=CheckBox2.Checked;
**Followname:=Edit2.Text;

**Avatar:=CheckBox1.Checked;
**Description:=CheckBox4.Checked;
**if Description then
***begin
****Location:=LabeledEdit1.Text;
****Site:=LabeledEdit2.Text;
****About:=LabeledEdit3.Text;
***end;

**ProxyGlob:=-1;
**AssignFile(Accounts,ExtractFilePath(Application.ExeName)+'accounts.txt');

**NameList.Clear;
**NameList.LoadFromFile(ExtractFilePath(Application.ExeName)+'name.txt');

**if CheckBox1.Checked then
***begin
****Avatar:=true;
****AvatarList.Clear;
****if FindFirst('avatars\*.*', faAnyFile, searchResult) = 0 then
*****begin
******repeat
*******if (searchResult.Name<>'..') and (searchResult.Name<>'.') then
********AvatarList.Add(searchResult.Name);
******until FindNext(searchResult)<>0;
*****end;
****if AvatarList.Count=0 then
*****begin
******Avatar:=false;
******CheckBox1.Checked:=false;
*****end;
***end
**else Avatar:=false;

**TCheckThread.Create(false);
end;

procedure TCheckThread.Execute;
var HTTP: TIdHTTP;
*****IdSocksInfo: TIdSocksInfo;
*****IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
*****ProxyLoc:integer;
*****Page,Page2,fcaptcha,twname, twpass,twfullname:string;
*****s:utf8string;
*****multi: Tidmultipartformdatastream;
*****error:boolean;
*****Data: TStringList;
*****MS:TMemoryStream;
*****pic: TGifImage;
*****ftp: TIdFTP;

begin
ftp:=TIdFTP.Create;
**while true do
**begin
***second:=false;
***Http := TIdHTTP.Create(nil);
***Http.AllowCookies:=true;
***with Http.Request do
***begin
****UserAgent:='Opera/9.80 (Windows NT 6.0; U; ru) Presto/2.2.15 Version/10.10';
****Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
****AcceptLanguage:='ru-RU,ru;q=0.9,en;q=0.8';
****AcceptCharset:='windows-1251, utf-8, utf-16, *;q=0.1';
****ContentType:='application/x-www-form-urlencoded';
***end;
***HTTP.HandleRedirects:=false;
***Http.ConnectTimeout:=30000;
***Http.ReadTimeout:=30000;
***HTTP.OnStatus:=form1.IdHTTP1Status;
***IdSocksInfo:= TIdSocksInfo.Create;
***IdSSLIOHandlerSocketOpenSSL:= TIdSSLIOHandlerSocketOpenSSL.Create(http);
***HTTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL;

**CS.Enter;
***if (TypeProxy<>0) then
****begin
*****inc(ProxyGlob);
*****if ProxyGlob>=ProxyList.Count then ProxyGlob:=0;
*****ProxyLoc:=ProxyGlob;
*****Form1.Memo1.Lines.Add('Используем прокси: '+ProxyList[ProxyLoc]);
*****if TypeProxy=1 then
******begin
*******HTTP.ProxyParams.ProxyServer:=Copy(ProxyList[ProxyLoc],1,Pos(':',ProxyList[ProxyLoc])-1);
*******HTTP.ProxyParams.ProxyPort:=StrToInt(Copy(ProxyList[ProxyLoc],Pos(':',ProxyList[ProxyLoc])+1,Length(ProxyList[ProxyLoc])-Pos(':',ProxyList[ProxyLoc])));
******end
*****else if TypeProxy=2 then
******begin
*******IdSocksInfo.Version:=svSocks4;
*******IdSocksInfo.Host:=Copy(ProxyList[ProxyLoc],1,Pos(':',ProxyList[ProxyLoc])-1);
*******IdSocksInfo.Port:=StrToInt(Copy(ProxyList[ProxyLoc],Pos(':',ProxyList[ProxyLoc])+1,Length(ProxyList[ProxyLoc])-Pos(':',ProxyList[ProxyLoc])));
*******IdSocksInfo.Authentication:= saNoAuthentication;
*******IdSSLIOHandlerSocketOpenSSL.TransparentProxy:=IdSocksInfo;
*******HTTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL;
*******IdSSLIOHandlerSocketOpenSSL.ConnectTimeout:=30000;
*******IdSSLIOHandlerSocketOpenSSL.ReadTimeout:=30000;
******end
*****else
******begin
*******IdSocksInfo.Version:=svSocks5;
*******IdSocksInfo.Host:=Copy(ProxyList[ProxyLoc],1,Pos(':',ProxyList[ProxyLoc])-1);
*******IdSocksInfo.Port:=StrToInt(Copy(ProxyList[ProxyLoc],Pos(':',ProxyList[ProxyLoc])+1,Length(ProxyList[ProxyLoc])-Pos(':',ProxyList[ProxyLoc])));
*******IdSocksInfo.Authentication:= saNoAuthentication;
*******IdSSLIOHandlerSocketOpenSSL.TransparentProxy:=IdSocksInfo;
*******HTTP.IOHandler:=IdSSLIOHandlerSocketOpenSSL;
*******IdSSLIOHandlerSocketOpenSSL.ConnectTimeout:=30000;
*******IdSSLIOHandlerSocketOpenSSL.ReadTimeout:=30000;
******end;
****end;
***Form1.Memo1.Lines.Add('Запрос страницы регистрации');
***CS.Leave;
****error:=false;
***try
****Page:=Http.Get('https://mobile.twitter.com/signup');
***except
****error:=true;
****CS.Enter;
****Form1.Memo1.Lines.Add('Ошибка запроса');
****CS.Leave;
***end;
****Form1.Memo1.Lines.Add('запрос выполнен');
***if not(error) then
****begin
*****CS.Enter;
*****Form1.Memo1.Lines.Add('Запрос каптчи');
*****CS.Leave;
*****fcaptcha:=pars('name="captcha_challenge_field" value="',Page,'"');
*****MS:=TMemoryStream.Create;
*****try
******HTTP.Get('https://mobile.twitter.com/signup/captcha/'+fcaptcha+'.gif',MS);
*****except
******error:=true;
******CS.Enter;
******Form1.Memo1.Lines.Add('Ошибка запроса капчи');
******CS.Leave;

*****end;

[Человек_Борща]

исходник не рабочий
В тексте ошибки есть код ответа сервера, вот и учитывайте это.

[alex0097]

Человек_Борща ну может скажешь что именно не рабочие?

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

1) звездочки сами ставили? для чего?
2)ошибка 403, значит что сервер вас послал.
http://ru.wikipedia.org/wiki/Список_...ояния_HTTP#403

[alex0097]

Пепел Феникса да если бы. Он сам выставил на пробел звездочки(((
Почему сервис мог послать? Можешь помочь?

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

например может куков каких не хватает.
или видит что много запросов идет и тп.

[Stilet]

alex0097

Ты можешь пройтись пошаговкой по коду, и посмотреть на каком операторе выбивает ошибку? Трассировать умеешь?

[alex0097]

Пепел Феникса сможешь помочь? Если в аську стукну? а то всю голову сломал(
Stilet умею. забыл про это. сейчас гляну

[Человек_Борща]

Пепел Феникса, зачем сказал, код явно не он писал,коли про звездочки не знает =)