На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
Дорогие друзья! Поздравляем вас с днём Победы!
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> WinInet, Hook HttpSendRequest...
    ExpandedWrap disabled
      function HttpSendRequestHook(hRequest: HINTERNET; lpszHeaders: PChar;
                                      dwHeadersLength: DWORD; lpOptional: Pointer;
                                      dwOptionalLength: DWORD): BOOL; stdcall;
      var
      ...
        BytesRead,BuffSize:cardinal;
        Buff:string;
      begin
      Result:= HttpSendRequestNext(hRequest,lpszHeaders,dwHeadersLength,lpOptional,dwOptionalLength);
      BytesRead:=0;
      BuffSize:=0;
      HttpQueryInfo(hRequest,
                    HTTP_QUERY_FLAG_REQUEST_HEADERS
                     or
                    HTTP_QUERY_RAW_HEADERS_CRLF
                    , @Buff[1], BuffSize, BytesRead);
      if BuffSize > 0 then
          begin
            SetLength(Buff, BuffSize);
            HttpQueryInfo(hRequest,
                           HTTP_QUERY_FLAG_REQUEST_HEADERS
                            or
                           HTTP_QUERY_RAW_HEADERS_CRLF
                           ,@Buff[1], BuffSize, BytesRead);
          end;
      SetLength(Buff, BuffSize);
      if BuffSize>0 then
      ...
      end;

    Hook срабатывает, заголовок читается, только вот Explorer.EXE дальше не пускается-"Невозможно отобразить страницу".
    Где грабли? :wall:
    зы:может кто подскажет как с помощью HttpQueryInfo получить POST-данные передаваемые при пост запросе,какой флаг нужен?(про lpOptional я знаю).
    1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0181 ]   [ 15 queries used ]   [ Generated: 11.05.24, 05:47 GMT ]