Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2010, 09:26   #1
bulldog5293
Форумчанин
 
Регистрация: 13.05.2010
Сообщений: 670
Печаль POST и COOkIE

пытался в цикле передать COOkIE, но не получается
Код:
ii:=0;
repeat
ii:=ii+1;
     try
        Otvet := FH.get('http://' + FUrl + 'view.php?ad=' + BBUX.Listview1.Items[w]
          .SubItems[8]);
        BBUX.Listview1.Items[w].SubItems.delete(8);
         except
        Resume;
        end;
          BBUX.Listview1.Items[w].SubItems.delete(8);
      Ur := PosSrc(Otvet);
      TRY
        Otvet1 := FH.get('http://' + FUrl + Ur);
        except
        Resume;
        end;
        вход1 := poster(Otvet1);
      h := SetTimeOutJS(Otvet1);
      g1 := Para(Otvet1);
      g6 := PosSyilki(Otvet1);
      g5 := TStringList.Create;
      Otvet3 := TStringStream.Create;
      try
        FH.get('' + g6);
      sleep(15000);
        except
        Resume;
        end;
           FH.get('http://' + FUrl + вход1, Otvet3);//передаются нормальные
        FH.Request.CustomHeaders.Add('Cookie: '+c);
        c := FH.Request.RawHeaders.Values['Set-Cookie'];
        c := Copy(c,1,Pos(';',c));
        Otvet4 := Otvet3.datastring;
      If Pos('submit', Otvet3.datastring) > 0 then
          try
      FH.Post('http://' + FUrl + g4, cis);// тут не те:(
     FH.Request.CustomHeaders.Clear;
        FH.Request.CustomHeaders.Add('Cookie: '+c);
           FINALLY
      cis.free;
      end;
     until ii=count;
end;
end;
end;
end;
Что я делаю не так, подскажите
bulldog5293 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
WebBrowser cookie Cpluser Общие вопросы .NET 1 17.06.2010 00:43
добавить cookie пауэрлифтинг Общие вопросы Delphi 1 27.04.2010 01:28
HttpWebRequest и Cookie d9m0n Общие вопросы .NET 1 23.12.2009 11:38
Проблема с Cookie eldar Работа с сетью в Delphi 5 21.08.2008 13:27