Как парсить с flash?

[OneShot]

Ув-е подскажите, как парсить данные с flash приложения, к примеру тюряга?

(язык: delphi7)

Добавлено через 11 минут
з.ы Пишу бота на mail который будет пинать босса в тюряге, вот кусок кода:

procedure TForm1.Button1Click(Sender: TObject);
var params,responseres:tstringlist;
s: tstringlist;
data:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
data:=TStringList.Create;
s:=TStringList.Create;
try
params.Add('sig=b0d86ee58fc67f27b2f462503614b82a');
params.Add('app_id=552078');
params.Add('user=17921107636664866848');
params.Add('key=d646c2e8d27dd1112d1900249cf7ca3e');
params.Add('method=getBoss');
responseres.Text:=IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getBoss',params);
s.Add('app_id=552078') ;
s.Add('boss_id=1') ;
s.Add('sig=4b78052fa4bbb1b08d0068db0eb0b44b') ;
s.Add('user=17921107636664866848') ;
s.Add('key=d646c2e8d27dd1112d1900249cf7ca3e') ;
s.Add('spell_id=3') ;
s.Add('method=hitBoss') ;
IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getBoss',s);

[OP3]

Касательно парсинга ^_^
Ничего с flash-приложения ты не парсишь ... ты обмениваешься HTTP-запросами с сервером, который присылает ответ в виде XML(в данном случае).
Надеюсь про-"парсить" гугле сможешь на предмет строки "парсинг XML"?
Это какбе правильный и логичный метод обработки такого типа данных ...

Касательно твоего кода :
А зачем делать столько стринглистов да еще и без всякого смысла отправлять 2 запроса с разными? Ты используешь первый до того как вызываешь POST еще раз? Зачем getBoss если тут же hitBoss (в котором адрес скрипта по прежнему getBoss ... копипаст зло) ... может просто hit или get? Response лучше получать в string (хотя это лично моё мнение).
Ты рассчитываешь получить готовый код в теме? К чему приведен фрагмент?

[uma1805]

Цитата: IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getBoss',s);

от сюда ты и получишь ответ

[DKENT]

Включи снифер!
Долбани босса в приложении!!!
В снифере смотри ответ с сервера!!!
Да и даные идут в формате XML HTML!

Отправляешь Post Get запрос на сервер, получаешь ответ, парсишь его!!!
После чего задаешь условие!
Ну а потом уже выводишь результаты в твою программу!))))

[OP3]

[Ссылки могут видеть только зарегистрированные пользователи. ]

[foggy]

Цитата: Сообщение от OneShot Тюряга на мейл работает с пост запросами, в коде все норм у меня, все работает. Мне надо выводить статус, удачно ли я босса епнул или нет

Тебе 100 раз написали что из Пост запроса и берешь все.
Ты можешь в сниффере 1000 одинаковых ответов на пост запрос увидеть, но возможно на 1001-й раз что-то изменится и соответственно в xml уже будет другая инфа, вот ее то и надо будет тебе пытаться через функцию pos отловить ну и обработать.
Не знаю что там тебе с боссом надо, для примера попробуй с нычками. Скачай снифер (httpanalyze-каж-я так называется или какой нибудь другой)
Зайди скажем в бутырку и делай первую движуху. Вот как только нычка выпадет смотри как изменился ответ сервера на твои одинаковые пост запросы. С боссом все поди так же.

Ума писал тебе IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getBoss',s);

сделай скажем так
stroka:string
.....
stroka:=IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getBoss',s);
а вот тут и проверяй что у тебя в stroka записалось
как уже писал отлови снифером. я хз если ты его ударил что там будет в xml но пусть к примеру будет в xml следующее
<udar>0</udar> если не смог ударить
<udar>1</udar> если все ок
то пишем
stroka:=IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getBoss',s);
if pos('<udar>1', s)>0 then // удачно ударили
то делаем соответственно то что хотим делать после удачного удара

[vinni123]

Вроде это работает выводит в label твой уровень тока незабудь кинуть на форму XMLDocument1 с вкладки Internet

var params:tstringlist;
s: tstringlist;
data:tstringlist;
Response: string;
begin
params:=TStringList.Create;
data:=TStringList.Create;
s:=TStringList.Create;
params.Add('sig=b0d86ee58fc67f27b2f462503614b82a') ;
params.Add('app_id=552078');
params.Add('user=17921107636664866848');
params.Add('key=d646c2e8d27dd1112d1900249cf7ca3e') ;
params.Add('method=getBoss');
Response:=IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getBoss',params);
XMLDocument1.LoadFromXML(Response);
XMLDocument1.Active:=true;
Label1.Caption := XMLDocument1.DocumentElement.ChildNodes['level'].Text;
end;

end.

[OneShot]

В лейбл ничего не выводится, вот код:

procedure TForm1.Button1Click(Sender: TObject);
var params,responseres:tstringlist;
s: tstringlist;
data:string;
begin
params:=TStringList.Create;
s:=TStringList.Create;

try

s.Add('app_id=552078') ;
s.Add('boss_id='+Edit3.Text) ;
s.Add('sig=4b78052fa4bbb1b08d0068db0eb0b44b') ;
s.Add('user='+Edit1.Text) ;
s.Add('key='+Edit2.Text) ;
s.Add('spell_id=3') ;
s.Add('method=hitBoss') ;
IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getBoss',s);
data:=IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getInfo',s);
XMLDocument1.LoadFromXML(data);
XMLDocument1.Active:=true;
Label1.Caption:= XMLDocument1.DocumentElement.ChildNodes['rating'].Text;
if Pos('<user>',data)>0 then
  ShowMessage('Авторизовались!');



finally
params.free;
responseres.free;
end;
end;

[vinni123]

Я не понипаю если пишу level,screen или currentDamage с папки data то всё отображается но если с папки boss и из других папок то в label пустота
[Ссылки могут видеть только зарегистрированные пользователи. ]

[vinni123]

вот так парси тут парсится время.Код на кнопку закинь и жми на кнопку потом ещё раз и время должно уменьшится

var
params:tstringlist;
Response: string;
TempStr: string;
begin
params:=TStringList.Create;
params.Add('sig=b0d86ee58fc67f27b2f462503614b82a') ;
params.Add('app_id=552078');
params.Add('user=17921107636664866848');
params.Add('key=d646c2e8d27dd1112d1900249cf7ca3e') ;
params.Add('method=getBoss');
Response:=IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getBoss',params);
TempStr := Pars('<battle_time>',Response,'</battle_time>'); //парсим
Label1.Caption :=TempStr;

end;
end.

[OneShot]

Цитата: Сообщение от vinni123 вот так парси в коде парсится время код на кнопку закинь и жми на кнопку пото ещё раз и время должно ументшаться (у меня вышло) var params:tstringlist; Response: string; TempStr: string; begin params:=TStringList.Create; params.Add('sig=b0d86ee58fc67f27b2f462503614b82a') ; params.Add('app_id=552078'); params.Add('user=17921107636664866848'); params.Add('key=d646c2e8d27dd1112d1900249cf7ca3e') ; params.Add('method=getBoss'); Response:=IdHTTP1.Post('http://109.234.156.254/prison/universal.php?getBoss',params); TempStr := Pars('<battle_time>',Response,'</battle_time>'); //парсим Label1.Caption :=TempStr; end; end.

компилятор ругается на эти строчки

[foggy]

Цитата: Сообщение от OneShot компилятор ругается на эти строчки

Вместо TempStr := Pars('<battle_time>',Response,'</battle_time>'); //парсим

напиши
i:integer;
...
i:= pos('<battle_time>',Response); ищем позицию начала строки <battle_time >
j:= pos('</battle_time>',Response); ищем позицию начала строки </battle_time>
тут и строки response выдираем время
TempStr := copy(response,i+13, j-i);
label1.caption:=temtstr:

[Рэйзор]

заводи все объекты динамически.
и выводи их в отдельные функции.
Вообще есть свойства:
idhttp1.request.useragent = "";
и другие, которые желательно прописывать.
OneShot, я же тебе скидывал примеры [Ссылки могут видеть только зарегистрированные пользователи. ].

[foggy]

Цитата: Сообщение от OneShot в label1 ничего не выводится всеравно!

кинь на форму Tmemo 2 штуки
и напиши


responce:=idhttp1.Get('http://109.234.156.254/prison/universal.php?user=17921107636664866848&key=d646c2 e8d27dd1112d1900249cf7ca3e&app_id=552078+sig=sig=b 0d86ee58fc67f27b2f462503614b82a&method=getBoss');

i:= pos('<battle_time>',Response);
j:= pos('</battle_time>',Response);
TempStr := copy(response,i+13, j-i);
memo1.Lines.Text:=responce;
memo2.Lines.Text:=Tempstr;
в первом поле будет результат твоего запроса к серверу
во втором то что ты из этого результата попытался выдрать

[.AsTex.]

Расскажу в теории как все это делается на C#(на дельфи тоже самое только код другой)
берем регулярные выражения.
Отсылаем пакет на сервер.Получаем ответ. Вводим переменную(регулярную) и по пойску такого или другого слова делаем примерно так: @udar "\" "/"
выводим регулрнуюю в лейбл и там видим если появилось число 1,значит ударили,а если 2 значит нет