![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Делаю отправку новости на 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 помогите пожалуйста |