![]() |
|
|
Регистрация | << Правила форума >> | 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 помогите пожалуйста Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |