Форум программистов [Powered by Invision Power Board]

Код


  params.Clear;
  params.Add('_wi=1');
  params.Add('a=2');
  params.Add('cat=0');
  params.Add('coms_allowed=1');
  params.Add('edttmessage=2');
  params.Add('format_message=1');
  params.Add('html_message=1');
  params.Add('jkd428=1');
  params.Add('jkd498=1');
  params.Add('file1=');
  params.Add('tags=');
  params.Add('title='+Songs[CurSong].Name);
  params.Add('user=');
  //определение ssid
  res := fmMain.idNews.Get(site+'/news/0-0-0-0-1');
    //вручную сохраняю Cookies, т.к. самостоятельно он не сохраняет из-за домена вида .domain (распр. проблема, все дело в точке)
    slCookies.Clear;
    s := fmMain.idNews.Response.RawHeaders.CommaText;
    k := Pos('Set-Cookie:', s);
    while k<>0 do
    begin
      k := k + 12;
      temps := '';
      while s[k]<>'"' do
      begin
        temps := temps + s[k];
        inc(k);
      end;
      slCookies.Add(temps);
      s := Copy(s, k, Length(s)-k+1);
      k := Pos('Set-Cookie:', s);
    end;
    for i := 0 to slCookies.Count - 1 do
    begin
      ipos := Pos('; domain=',slCookies.Strings[i]);
      if ipos<>0 then
      begin
        ipos := ipos+9;
        temps := slCookies.Strings[i];
        Delete(temps, ipos, 1);
        slCookies.Strings[i] := temps;
      end;
    end;

  ///end...
  for i := 0 to slCookies.Count - 1 do
    fmMain.IdCookieManager1.AddCookie(slCookies.Strings[i], shost);

  ipos := Pos('name="ssid" value="', res);
  ipos := ipos+19;
  ssidparam := '';
  while res[ipos]<>'"' do
  begin
    ssidparam := ssidparam + res[ipos];
    inc(ipos);
  end;
  params.Add('ssid='+ssidparam);
  songtemplate := CreateMp3Message(CurSong);
  params.Add('message='+songtemplate);

  fmMain.idNews.Request.Referer := site+'/news/0-0-0-0-1';
  res := fmMain.idNews.Post(site+'/news/', params);

Код


(Request-Line):POST /news/ HTTP/1.1
Content-Type:application/x-www-form-urlencoded; charset=UTF-8
Content-Length:315
Host:softwareznik.ucoz.com
Accept:application/xml, text/xml, */*
Accept-Charset:windows-1251,utf-8;q=0.7,*;q=0.7
Accept-Encoding:identity
Referer:http://softwareznik.ucoz.com/news/0-0-0-0-1
User-Agent:Mozilla/3.0 (compatible; Indy Library)
Cookie:dsoftwareznikuzll=1258965943; path=/; dsoftwareznikuCoz=uz%3D943d0c19feb01fa2993c98534475fc8f41dacc194f227c6e12beee6c04c3365333a7af08f69282c4cf5bf790ca75725aeec225cff023735fb8841f8a9bef7a5a90caa8fa46439de8dad2cbb86cd85920d2e2e6347ae9a4393118c44567d6a721e6%2Cses%3D61384c436b6e4c786255657659a5ee; dsoftwareznikuispm=0-0