Вот, отправляю такой запрос:
begin
t:=Tstringlist.create;
t.add(Edit4.Text);
Form1.Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/xajaxAPI.php?sid=Сид',t);
В ответ должно прийти такое:
<?xml version="1.0" encoding="utf-8" ?><xjx><cmd cmd="js"><![CDATA[SexternalPPP.handleProfileSearchReturn("[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/p/4v5O3-BNtZB/?lang=ru", "Игрок найден")]]></cmd></xjx>
А вот отсюда такой строкой:
s:=Copy(s,Pos('handleProfileSearchReturn',s)+27,56 );
Я пытаюсь достать эту ссылку :
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/p/4v5O3-BNtZB/?lang=ru
Но ничего не происходит, до этого ошибок нет. Подскажите, пожалуйста
R.A.Z.O.R
08.12.2011, 18:35
О_О
А какой именно запрос отправляешь? Он может быть неправильным. На картинке с чарли было 3 строки.
P.S. Обычно добавляю в uses Clipbrd, и пишу Clipboard.AsText := S; {Строчка со страницей}, вставляю текст после работы программы в Оперу и смотрю.
Nugno
08.12.2011, 18:44
Запрос нормальный) одна строка, сид достаем из эдита и т.д.
На чарлике 3 одинаковых строки, я же небуду ставить ххх;ххх;ххх ?
Skuka.95
08.12.2011, 19:03
На чарлике 3 одинаковых строки, я же небуду ставить ххх;ххх;ххх ?
а ты попробуй)
VeTaL_UA
08.12.2011, 20:35
s:=Copy(s,Pos('handleProfileSearchReturn',s)+27,56 );
За работоспособность этого кода ручаюсь. Разве что строка:
handleProfileSearchReturn
Повторяется в исходном коде дважды...
Добавлено через 6 минут
Повесь на форму Memo, Button и Edit и вставь на кнопку такой код:
Edit1.Text:=Copy(Memo1.Lines.Text,Pos('handleProfi leSearchReturn',Memo1.Lines.Text)+27,56 );
Дальше скомпиль прогу, вставь в Memo это:
<?xml version="1.0" encoding="utf-8" ?><xjx><cmd cmd="js"><![CDATA[SexternalPPP.handleProfileSearchReturn("[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/p/4v5O3-BNtZB/?lang=ru", "Игрок найден")]]></cmd></xjx>
и нажми на кнопку.
Ещё вопросы???
*Хalyava*
09.12.2011, 14:04
За работоспособность этого кода ручаюсь. Разве что строка:
Повторяется в исходном коде дважды...
Добавлено через 6 минут
Повесь на форму Memo, Button и Edit и вставь на кнопку такой код:
Edit1.Text:=Copy(Memo1.Lines.Text,Pos('handleProfi leSearchReturn',Memo1.Lines.Text)+27,56 );
Дальше скомпиль прогу, вставь в Memo это:
и нажми на кнопку.
Ещё вопросы???
нее. это не то)
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Edit3.Text+'.darkorbit.bigpoint.com/p/4v5O3-BNtZB/?lang=ru
нам нужно найти вот эту красную строку которая лежит по URL (она меняется в зависимости от ника игрока, то есть мы ее не знаем):
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Sid
собственно нужно ее спарсить. вот вопрос:
Как ее спарсить ?
-------------------------
точнее
--------------
при вводе ника игрока идет редирект сюда: [Ссылки могут видеть только зарегистрированные и активированные пользователи]'+Sid
а тут уже нужно парсить. но вот проблема. когда переходишь по этой ссылке в браузере, то страница пустая, хотя в чарлике есть код:<xjx>
<cmd cmd="js">
<![CDATA[SexternalPPP.handleProfileSearchReturn("[Ссылки могут видеть только зарегистрированные и активированные пользователи]", "Игрок найден")]]>
</cmd>
</xjx>
вот отсюда и вопрос. как спарсить ?
PseudoDog
09.12.2011, 15:10
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
sid, str:string;
begin
str := '<![CDATA[SexternalPPP.handleProfileSearchReturn("[Ссылки могут видеть только зарегистрированные и активированные пользователи]", "Игрок найден")]]>';
i:= Pos('"Игрок найден"', str);
sid := Copy(str, i - 23, 11);
ShowMessage(sid);
end;