Парсинг неизвестного значения

[scroyler]

Делаю отправку новости на dle сайты, но проблема.
Но на большинстве сайтов нужно парсить значение.

Вот код:

var
LoginData, Response: TStrings;
str,s:string; n:integer;
begin
idhttp1.CookieManager:=idcookiemanager1;
LoginData := TStringList.Create;
Response := TStringList.Create;
try
LoginData.Add('title='+title.text);
LoginData.Add('catlist[]=3');
LoginData.Add('bbfont=0');
LoginData.Add('bbsize=0');
LoginData.Add('short_story='+brief.text);
LoginData.Add('full_story='+ful.Text);
LoginData.Add('tags=');
LoginData.Add('allow_comm=1');
LoginData.Add('allow_main=1');
LoginData.Add('approve=1');
LoginData.Add('allow_rating=1');
LoginData.Add('add=Отправить');
LoginData.Add('add=отправить');
LoginData.Add('mod=addnews');
Response.Text:=idhttp1.Post(site.text+'addnews.html',logindata);
Response.Text:=idhttp1.Post(site.text+'index.php?do=addnews',logindata);
except
end;
end;

вот примеры сайтов, на которых нужно парсить значение:
http://02-online.ru/
http://xtreme.ws/

логин YaModeratoR12
пароль YaModeratoR12

помогите пожалуйста

[Человек_Борща]

нужно парсить значение

Его мне в вашей голове найти? Или сами напишите ? А вообще есть овер9000 спец. софта для удобного постинга в блоги и CMS без использования браузера, посмотрите подерживает ли dle обмен XML RPC, если да.. вам и спец ПО писать не надо, таких валом. Гугл знает.

[scroyler]

Сообщение от Человек_Борща

Его мне в вашей голове найти? Или сами напишите ? А вообще есть овер9000 спец. софта для удобного постинга в блоги и CMS без использования браузера, посмотрите подерживает ли dle обмен XML RPC, если да.. вам и спец ПО писать не надо, таких валом. Гугл знает.

Мне не нужен софт, я знаю, что его навалом, можно сказать мне для практики.

Вот оно значение, я бы сам спарсил значение,да значений которые начинаются на <input type="hidden" name= очень много и парсит не то

<input type="hidden" name="wxvckpth" value="136ff34515bb19271a93901ea49d08e0">

[Человек_Борща]

показывайте, как парсите. Эти hidden все однотипны. Парсить можно без проблемно.

[Zoomer123]

Допустим по счету нужный токен у тебя 5-й. Используй цикл, постепенно удаляя первоидущие токены.

[scroyler]

Ну да...

Вот так парсю, 1 значение без проблем, а 2 почему то не парсит...

str:=idhttp1.Get(site.Text+'addnews.html');
n:=pos('<input type="hidden" name="mod" value="addnews" />',str)+length('<input type="hidden" name="mod" value="addnews" />');
stroka:= copy(str,n,posex('/>',str,n)-n);

str:=stroka;
n:=pos('<input type="hidden" name="',str)+length('<input type="hidden" name="');
edit1.Text:= copy(str,n,posex('" value="',str,n)-n);

str:=stroka;
n:=pos('value="',str)+length('value="');
edit2.Text:= copy(str,n,posex('"',str,n)-n);

что не так?

[scroyler]

Ну сделал как то так, парсит то нормально, но почему то , не работает
что делать?

var
LoginData, Response: TStrings;
 str,s,stroka,hranilishe:string;n:integer;
begin
idhttp1.CookieManager:=idcookiemanager1;
LoginData := TStringList.Create;
Response := TStringList.Create;
try
//

str:=idhttp1.Get(site.Text+'addnews.html');
n:=pos('<input type="hidden" name="mod" value="addnews" />',str)+length('<input type="hidden" name="mod" value="addnews" />');
stroka:= copy(str,n,posex('/>',str,n)-n);
memo1.text:=copy(str,n,posex('/>',str,n)-n);

str:=stroka;
n:=pos('<input type="hidden" name="',str)+length('<input type="hidden" name="');
edit1.Text:= copy(str,n,posex('" value="',str,n)-n);

str:=memo1.text;
n:=pos('<input type="hidden" name="'+edit1.text+'" value="',str)+length('<input type="hidden" name="'+edit1.text+'" value="');
edit2.Text:= copy(str,n,posex('"',str,n)-n);

//
LoginData.Add('title='+title.text);
LoginData.Add('catlist[]=3');
LoginData.Add('bbfont=0');
LoginData.Add('bbsize=0');
LoginData.Add('short_story='+brief.text);
LoginData.Add('full_story='+ful.Text);
LoginData.Add('tags=');
LoginData.Add('allow_comm=1');
LoginData.Add('allow_main=1');
LoginData.Add('approve=1');
LoginData.Add('allow_rating=1');
LoginData.Add('add=Отправить');
LoginData.Add('add=îòïðàâèòü');
LoginData.Add('mod=addnews');
LoginData.Add(edit1.Text+'='+edit2.text);
Response.Text:=idhttp1.Post(site.text+'addnews.html',logindata);
Response.Text:=idhttp1.Post(site.text+'index.php?do=addnews',logindata);
except
end;
end;

[Usov]

function GetSubStr(AInputStr, ABeginStr, AEndStr: String; AInclude: Boolean = False): String;
var
  s: String;
  sp, ep: Int64;
begin
  Result := '';
  if pos(ABeginStr, AInputStr) <> 0 then begin
    sp := pos(ABeginStr, AInputStr) + length(ABeginStr);
    s := copy(AInputStr, sp, length(AInputStr));
    ep := pos(AEndStr, s) - 1;
    if AInclude then
      Result := ABeginStr + copy(s, 1, ep) + AEndStr 
    else
      Result := copy(s, 1, ep);
  end;
end;

Использование:

var 
  pname,pval,s: String;
begin
  s := '<input type="hidden" name="wxvckpth" value="136ff34515bb19271a93901ea49d08e0">';
  // имя поля формы
  pname := GetSubStr(s, '<input type="hidden" name="', '"');
  // значение поля формы
  pval := GetSubStr(s, pname + 'value="', '"');
end;

Вариантов очень много, это не один из лучших

[scroyler]

Сообщение от Usov

function GetSubStr(AInputStr, ABeginStr, AEndStr: String; AInclude: Boolean = False): String;
var
  s: String;
  sp, ep: Int64;
begin
  Result := '';
  if pos(ABeginStr, AInputStr) <> 0 then begin
    sp := pos(ABeginStr, AInputStr) + length(ABeginStr);
    s := copy(AInputStr, sp, length(AInputStr));
    ep := pos(AEndStr, s) - 1;
    if AInclude then
      Result := ABeginStr + copy(s, 1, ep) + AEndStr 
    else
      Result := copy(s, 1, ep);
  end;
end;

Использование:

var 
  pname,pval,s: String;
begin
  s := '<input type="hidden" name="wxvckpth" value="136ff34515bb19271a93901ea49d08e0">';
  // имя поля формы
  pname := GetSubStr(s, '<input type="hidden" name="', '"');
  // значение поля формы
  pval := GetSubStr(s, pname + 'value="', '"');
end;

Вариантов очень много, это не один из лучших

спасибо, но результат такой же, не отправляет, может ошибка не в парсере?

[scroyler]

помогите пожалуйста