Автопостинг новости на UCOZ

[Stalkker247]

Здравствуйте. Пишу программу для автоматического добавления новостей на сайт. При нажатии кнопки "Добавить новость" сниффер выдает такого типа
Post Data:

-----------------------------78133059015735
Content-Disposition: form-data; name="title"

Nazvanie materiala
-----------------------------78133059015735
Content-Disposition: form-data; name="brief"

Kratkaya novost
-----------------------------78133059015735
Content-Disposition: form-data; name="message"

Polnaya novost

,
пробовал так

....
Data.Add('title=Nazvanie materiala');
Data.Add('brief=Kratkaya novost')
......

, не получается, помогите пожалуйста правильно отослать POST

[exn]

используй TIdMultiPartFormDataStream

[Stalkker247]

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

используй TIdMultiPartFormDataStream

пробовал и это:

   
    logparam.AddFormField('title','delphiTITLE');
    logparam.AddFormField('jkd498','1');
    logparam.AddFormField('jkd428','1');
    logparam.AddFormField('ocat','1');
    logparam.AddFormField('brief','DELPHIBRIEF');
    logparam.AddFormField('message','DelphiMESSAGE');
    logparam.Addformfield('tags','TEEEEEEEEEEEdfg');
    logparam.Addformfield('_wi','4');
    logparam.addformfield('_tp_','xml');
    logparam.addformfield('ssid','Scdaw_jV');

все равно новость не появляется

[exn]

ну значить что-то не правильно делаешь. про авторизацию не забыл, печеньки и т.д?
кто ищет, тот всегда найдет. )

[Stalkker247]

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

ну значить что-то не правильно делаешь. про авторизация не забыл, печеньки и т.д?
кто ищет, тот всегда найдет. )

хз, вот код:

procedure TForm1.Button5Click(Sender: TObject);
var
  logParam : TIdMultiPartFormDataStream;
  Data : Tmemorystream;
  CM : TidCookieManager;
  StrPage : String;

begin
    try
    logparam := TIdMultiPartFormDataStream.Create;
    Data:=tmemorystream.Create;
    CM := TidCookieManager.Create(idhttp1);
    idHTTP1.CookieManager:=cm;
    idhttp1.AllowCookies:=true;
    idhttp1.HandleRedirects:=true;

    idhttp1.Request.Host:='videogon.ucoz.ru';
    idhttp1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:5.0) Gecko/20100101 Firefox/5.0';
    idhttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    idhttp1.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
    idhttp1.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
    idhttp1.Request.Referer:='http://videogon.ucoz.ru/load/0-0-0-0-1';
    idhttp1.Request.ContentDisposition:='form-data';
    idhttp1.Request.ContentType:='multipart/form-data; boundary=---------------------------23071514723674';


    logparam.addformfield('user',edit1.text);
    logparam.addformfield('password',edit2.Text);
    logparam.AddFormField('title','delphiTITLE');
    logparam.AddFormField('jkd498','1');
    logparam.AddFormField('jkd428','1');
    logparam.AddFormField('ocat','1');
    logparam.AddFormField('brief','DELPHIBRIEF');
    logparam.AddFormField('message','DelphiMESSAGE');
    logparam.Addformfield('tags','TEEEEEEEEEEEdfg');
    logparam.Addformfield('_wi','4');
    logparam.addformfield('_tp_','xml');
    logparam.addformfield('ssid','Scdaw_jV');

    idhttp1.Post('http://videogon.ucoz.ru/load/',logparam,data);
    data.SaveToFile('C:\Users\my\Desktop\1111.txt');
    finally
     logparam.Free;
     data.Free;
     cm.Free;
    end;

end;

[exn]

там что, возможно добавление новостей анонимно? врядли! где у тебя авторизация? нету.
и это лишнее
idhttp1.Request.ContentDisposition: ='form-data';
idhttp1.Request.ContentType:='multi part/form-data; boundary=---------------------------23071514723674';

[Stalkker247]

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

там что, возможно добавление новостей анонимно? врядли! где у тебя авторизация? нету.
и это лишнее
idhttp1.Request.ContentDisposition: ='form-data';
idhttp1.Request.ContentType:='multi part/form-data; boundary=---------------------------23071514723674';

    logparam.addformfield('user',edit1.text);
    logparam.addformfield('password',edit2.Text);

а это не авторизация??, или надо логинится на главной а потом как??

[exn]

я откуда знаю, что это там у тебя. нигде не видел, чтобы авторизация проходила одновременно с добавлением новости. )