Проблема - парсинг

[KREGI]

Всю страницу выводит, а нужно только значение sid, что не как не выходит

[Pasha_Sh]

Да ну бред значит, такое невозможно..
Вы на моем коде проверяли?

[KREGI]

да, на вашем, хм...
я помоему нашел причину - авторизация перестала проходить (не известно почему), и этой строки на странице просто нет

[Pasha_Sh]

Блин во я ступил!!!
Вот код

var
buff:string;
begin
buff:=idhttp1.get(СЮДА АДРЕС СТРАНИЦЫ);
delete(buff, Pos('<!DOCTYPE', buff), Pos(';sid=', buff);
delete(buff, Pos('" class="mainmenu">Выход', buff), lenght(buff);
memo1.lines.text:=buff;
end;

[KREGI]

всю страницу вывел опять, но мне кажется программа перестала проходить авторизацию, завтра буду разбираться. Спасибо за помощь

[kangreon]

Может пригодится

uses StrUtils;

var
  s, sid:string;
begin
 s := IdHTTP1.GET('http://...');
 sid := Copy(s,pos('amp;sid=',s)+8,posex('" ',s,pos('amp;sid=',s)+9)-pos('amp;sid=',s)-8);
end;

[Alest]

KREGI, Делать так

url := IdHTTP1.Get('Сайт');
id := Copy(url, Pos('1&sid=', url)+10, PosEx('"',url,Pos('1&sid=', url)+11)-Pos('1&sid=', url)-10);
Edit1.Text := id; // проверка

[Alest]

ой , на вторую страницу не глянул, ... не успел

[RAZOR-X]

хех, сид из даркорбита решил вытащить ))