[Помогите!] Не получаеться нормально спарсить через COPY POS DEL

[Nugno]

Вот, отправляю такой запрос:

begin
t:=Tstringlist.create;
t.add(Edit4.Text);
Form1.IdHTTP1.Post('http://'+Edit3.Text+'.darkorbit.bigpoint.com/xajaxAPI.php?sid=Сид',t);

В ответ должно прийти такое:

<?xml version="1.0" encoding="utf-8" ?><xjx><cmd cmd="js"><![CDATA[SexternalPPP.handleProfileSearchReturn("http://'+Edit3.Text+'.darkorbit.bigpoint.com/p/4v5O3-BNtZB/?lang=ru", "Игрок найден")]]></cmd></xjx>

А вот отсюда такой строкой:

s:=Copy(s,Pos('handleProfileSearchReturn',s)+27,56);

Я пытаюсь достать эту ссылку :

http://'+Edit3.Text+'.darkorbit.bigpoint.com/p/4v5O3-BNtZB/?lang=ru

Но ничего не происходит, до этого ошибок нет. Подскажите, пожалуйста

[R.A.Z.O.R]

О_О

А какой именно запрос отправляешь? Он может быть неправильным. На картинке с чарли было 3 строки.

P.S. Обычно добавляю в uses Clipbrd, и пишу Clipboard.AsText := S; {Строчка со страницей}, вставляю текст после работы программы в Оперу и смотрю.

[Nugno]

Запрос нормальный) одна строка, сид достаем из эдита и т.д.
На чарлике 3 одинаковых строки, я же небуду ставить ххх;ххх;ххх ?

[Skuka.95]

Цитата: Сообщение от Nugno На чарлике 3 одинаковых строки, я же небуду ставить ххх;ххх;ххх ?

а ты попробуй)

[VeTaL_UA]

Цитата: Сообщение от Nugno s:=Copy(s,Pos('handleProfileSearchReturn',s)+27,56 );

За работоспособность этого кода ручаюсь. Разве что строка:

Цитата: handleProfileSearchReturn

Повторяется в исходном коде дважды...

Добавлено через 6 минут
Повесь на форму Memo, Button и Edit и вставь на кнопку такой код:

Edit1.Text:=Copy(Memo1.Lines.Text,Pos('handleProfileSearchReturn',Memo1.Lines.Text)+27,56 );

Дальше скомпиль прогу, вставь в Memo это:

Цитата: <?xml version="1.0" encoding="utf-8" ?><xjx><cmd cmd="js"><![CDATA[SexternalPPP.handleProfileSearchReturn("http://'+Edit3.Text+'.darkorbit.bigpoint.com/p/4v5O3-BNtZB/?lang=ru", "Игрок найден")]]></cmd></xjx>

и нажми на кнопку.

Ещё вопросы???

[*Хalyava*]

Цитата: Сообщение от VeTaL_UA За работоспособность этого кода ручаюсь. Разве что строка: Повторяется в исходном коде дважды... Добавлено через 6 минут Повесь на форму Memo, Button и Edit и вставь на кнопку такой код: Edit1.Text:=Copy(Memo1.Lines.Text,Pos('handleProfileSearchReturn',Memo1.Lines.Text)+27,56 ); Дальше скомпиль прогу, вставь в Memo это: и нажми на кнопку. Ещё вопросы???

нее. это не то)
[Ссылки могут видеть только зарегистрированные пользователи. ]4v5O3-BNtZB/?lang=ru
нам нужно найти вот эту красную строку которая лежит по URL (она меняется в зависимости от ника игрока, то есть мы ее не знаем):
[Ссылки могут видеть только зарегистрированные пользователи. ]
собственно нужно ее спарсить. вот вопрос:
Как ее спарсить ?


-------------------------
точнее
--------------
при вводе ника игрока идет редирект сюда: [Ссылки могут видеть только зарегистрированные пользователи. ]
а тут уже нужно парсить. но вот проблема. когда переходишь по этой ссылке в браузере, то страница пустая, хотя в чарлике есть код:

<xjx>
	<cmd cmd="js">
		<![CDATA[SexternalPPP.handleProfileSearchReturn("http://ru5.darkorbit.bigpoint.com/p/4A9XB-8ZwcE/?lang=ru", "Игрок найден")]]>
	</cmd>
</xjx>

вот отсюда и вопрос. как спарсить ?

[PseudoDog]

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
sid, str:string;
begin
   str := '<![CDATA[SexternalPPP.handleProfileSearchReturn("http://ru5.darkorbit.bigpoint.com/p/4A9XB-8ZwcE/?lang=ru", "Игрок найден")]]>';
   i:= Pos('"Игрок найден"', str);
   sid := Copy(str, i - 23, 11);
   ShowMessage(sid);
end;