Delphi Support

Пасаны

 

procedure TForm4.Button1Click(Sender: TObject);
var
data:Tstringlist;
pagedata:string;
begin
data:=TstringList.create;
data.Add('name'+edit1.Text);
data.add('password'+edit2.text);
data.add('cfms=Войти');
Data.add('sid');
data.add('ck=752085640912955');
data.add('link_id=0');
data.add('from=');
pagedata:=idhttp1.get('http://spaces.ru/registration/?r=reg/loginform');
end;

if pos ('logout' ,http://spaces.ru/?logout=1) then
memo1.text:Inttostr(pagedata):='Авторизовались!';
else
memo1.text:='Увы!';

А ты параметры ГЕТом передаешь ??? О_О
Приблизительно правильный вариант

procedure TForm4.Button1Click(Sender: TObject);
var
data:Tstringlist;
pagedata:string;
begin
data:=TstringList.create;
data.Add('name'+edit1.Text);
data.add('password'+edit2.text);
data.add('cfms=Войти');
Data.add('sid');
data.add('ck=752085640912955');
data.add('link_id=0');
data.add('from=');
pagedata:=idhttp1.Post('http://spaces.ru/registration/?r=reg/loginform',DATA);
end;

if pos ('logout' ,pagedata) then
memo1.text:='Авторизовались!';
else
memo1.text:='Увы!';

 

не флуди
я не понил что проверить?
аккаунта нет? так зарегай -_-

 

Я не тот скинул код, но там был пост запрос. Я в другом исправил на пост. Этот просто ели нашел, а тот бы вообще бы не нашел.

 

скорее всего это токен,
если ещё не сделал кидай мне аккаунт

 

PHP:

...
public
function Pars(T_, ForS, _T:string):string;
...

function TForm4.Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;


procedure TForm4.Button1Click(Sender: TObject);
var data:Tstringlist; pagedata:string;
begin

pagedata:=idhttp1.Get('http://spaces.ru/registration/?r=reg/loginform');
pagedata:=Pars('name="CK" value="', pagedata, '"');

Data:=TstringList.create;
Data.Add('name='+edit1.Text);
Data.add('password='+edit2.text);
Data.add('cfms=Войти');
Data.add('sid=');
Data.add('ck='+pagedata);
Data.add('link_id=0');
Data.add('from=');
pagedata:=idhttp1.Post('http://spaces.ru/registration/?r=reg/loginform', Data);
Data.Free;

if pos ('href="http://spaces.ru/mysite/?name=id', pagedata) //к примеру, редирект у инди должен быть включен
then ShowMessage('Авторизовались!') else 
if pos ('busi stnd_padd' ,pagedata)
then ShowMessage('Аккаунт невалидный!') else 
ShowMessage('Ошибка!');

end;

Вот, попробуй​

 

Там корочь выдает 3 ошибки Все строки с ошибками сделаю КИРПИЧНЫЙ ЦВЕТ

 

ап

 

Ну так исправь код под себя. Что за стыд?

 

Извиняй, писал на ходу без делфи, исправляюсь
if pos ('href="http://spaces.ru/mysite/?name=id', pagedata)<>0 //к примеру, редирект у инди должен быть включен
then ShowMessage('Авторизовались!') else
if pos ('busi stnd_padd', pagedata)<>0
then ShowMessage('Аккаунт невалидный!') else
ShowMessage('Ошибка!');

 

чтобы не путаться, советую сделать так:
if pos ('href="http://spaces.ru/mysite/?name=id', pagedata)<>0 then begin
ShowMessage('Авторизовались!');
end else begin
if pos ('busi stnd_padd', pagedata)<>0 then begin
ShowMessage('Аккаунт невалидный!')
end else begin
ShowMessage('Ошибка!');
end;