pavel!
12.04.2012, 18:35
ребят почему-то при коннекте на страницу дает ошибку 302 found , да и ладно комлимирую все норм, НО после 1 удачной авторизации программа стопается.
[Ссылки могут видеть только зарегистрированные и активированные пользователи] не помогает, идет все в неудачную авторизацию ^____^ мучуюся уже целый день помогите.
var CurAcc:integer;
data:Tstringlist;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
proxyacc: Tstringlist;
begin
while Work do
begin
proxyacc := Tstringlist.Create;
proxyacc.LoadFromFile('proxy.txt');
CS.Enter;
Inc(Acc);
if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
CS.Leave;
if Work then
begin
CS.Enter;
if (accpr=proxyacc.Count-1) then
begin
accpr:=-1;
end;
CS.Leave;
FProxy:=Copy(proxyacc[accpr] , 1,Pos(':',proxyacc[accpr])-1);
FPort:=Copy(proxyacc[accpr],Pos(':',proxyacc[accpr])+1,Length(proxyacc[accpr]));
FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1);
FPas:= Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));
data:=Tstringlist.create;
data.Add('login='+FAcc);
data.Add('passw='+FPas);
data.Add('dologin=login');
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
try
[Ссылки могут видеть только зарегистрированные и активированные пользователи]('страница', data);
Rez:=-1;
except
if Pos('Set-Cookie: last_session=', [Ссылки могут видеть только зарегистрированные и активированные пользователи])<>0 then
Rez:=1
else
Rez:=0;
end;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
data.Free;
end;
end;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] не помогает, идет все в неудачную авторизацию ^____^ мучуюся уже целый день помогите.
var CurAcc:integer;
data:Tstringlist;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
proxyacc: Tstringlist;
begin
while Work do
begin
proxyacc := Tstringlist.Create;
proxyacc.LoadFromFile('proxy.txt');
CS.Enter;
Inc(Acc);
if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
CS.Leave;
if Work then
begin
CS.Enter;
if (accpr=proxyacc.Count-1) then
begin
accpr:=-1;
end;
CS.Leave;
FProxy:=Copy(proxyacc[accpr] , 1,Pos(':',proxyacc[accpr])-1);
FPort:=Copy(proxyacc[accpr],Pos(':',proxyacc[accpr])+1,Length(proxyacc[accpr]));
FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1);
FPas:= Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));
data:=Tstringlist.create;
data.Add('login='+FAcc);
data.Add('passw='+FPas);
data.Add('dologin=login');
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
try
[Ссылки могут видеть только зарегистрированные и активированные пользователи]('страница', data);
Rez:=-1;
except
if Pos('Set-Cookie: last_session=', [Ссылки могут видеть только зарегистрированные и активированные пользователи])<>0 then
Rez:=1
else
Rez:=0;
end;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
data.Free;
end;
end;