VPF::Не нужный знак % в TidHTTP: Post - Форум программистов

Teran

Дата 25.1.2006, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Делаю так:

Код


procedure TForm1.Button2Click(Sender: TObject);
 var
   str:TStringList;
 begin
   str:=TStringList.Create;
     str.Add('username=test);
     str.Add('password=Test_');

     IdHTTP1.Post('http://..!!!!!!.ru/..!!./!.!!.php', str);

     str.Free;
end;

но в отправлаемом пакете вижу:

Код


POST http://..!!!!...!!!!m.ru:80/..!!./l..!!!.php HTTP/1.0
Content-Type: application/x-www-form-urlencoded
Content-Length: 123
Pragma: no-cache
Proxy-Connection: keep-alive
Host: !!!!!!!!!!.ru
Accept: text/html, */*
Accept-Language: ru
User-Agent: Mozilla/3.0 (compatible; Indy Library)

username=test&password=Test%5F               ---- Вот Здесь и ВОПРОС  :qstn

Почему я отправляю 'password=Test_'
а уходит на самом деле 'password=Test%5F'
и как нужно писать правильно smile

--------------------

Ни цего не понимаю

Snowy

Дата 25.1.2006, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

В HTTPOptions Выключи hoForceEncodeParams

Teran

Дата 25.1.2006, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Спасибо Snowy

Не подскажеш еще как мне организовать что-то типа Автоматической авторизации
делаю так:

Код


procedure TForm1.Button6Click(Sender: TObject);
var
str:TStringList;
begin

     str:=TStringList.Create;
      str.Add('referer=');
     str.Add('UserName=Teran');
     str.Add('PassWord=!!!!!');
     str.Add('tst=');
     str.Add('CookieDate=1');

     Memo1.Lines.Text := IdHTTP1.Post('http://forum.vingrad.ru/index.php?act=Login&CODE=01', str);
 
     str.Free;
 

end;

а после нажатия на кнопку прога выдает : Выскакивает сообщение:"HTTP/1.1 302 Found" -> нажимаю "Ok"
и в Мемо ничего нету
smile

--------------------

Ни цего не понимаю

Teran

Дата 25.1.2006, 16:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Хочу сделать программку которая конектилась бы к форуму и получала .... например колличество непрочитанных писем

такое возможно сделать ????????

--------------------

Ни цего не понимаю

Snowy

Дата 25.1.2006, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

А печенюшки у тебя включены? А TIdCookieManager прикручен?
Без печенюшек не получится.

Код


var
  str:TStringList;
  ms: TMemoryStream;
begin
  str:=TStringList.Create;
  ms := TMemoryStream.Create;
  str.Add('referer=');
  str.Add('UserName=Teran');
  str.Add('PassWord=!!!!!');
  str.Add('tst=');
  str.Add('CookieDate=1');
  try
    IdHTTP1.Post('http://..../', str, ms);
    ms.Position := 0;
    Memo1.Lines.LoadFromStream(ms);
  finally
    ms.Free; str.Free;
  end;
end;

Teran

Дата 25.1.2006, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

расскажи пожалуйста поподробней кто такие эти

Цитата(Snowy @ 25.1.2006, 16:21

)

печенюшки

Цитата(Snowy @ 25.1.2006, 16:21

)

А TIdCookieManager прикручен?

а куда его вставлять ???

--------------------

Ни цего не понимаю

Snowy

Дата 25.1.2006, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Кидаешь на форму, а у IdHTTP1 назначаешь его, как Intercept.

Цитата(Teran @ 25.1.2006, 16:30

)

расскажи пожалуйста поподробней кто такие эти

Цитата(Teran @ 25.1.2006, 16:30

)

TIdCookieManager

Управляет печенюшками.
Он за тебя будет отдавать печенюшки сервену и сохранять новые.

Teran

Дата 25.1.2006, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Цитата(Snowy @ 25.1.2006, 16:41

)

Кидаешь на форму, а у IdHTTP1 назначаешь его, как Intercept.

закинул на форму IdCookieManager1 (Действительно похожа на печенюшку)
привязал IdHTTP1 с IdCookieManager1 свойством CookieManager

а к Intercept не хочет ничего вязатся??? smile

--------------------

Ни цего не понимаю

Snowy

Дата 25.1.2006, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Ну значит я напутал. Главное, что привязал.
А версия Indy у тебя какая?

Teran

Дата 25.1.2006, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

которая в Delphi 7 находится

так что просто привязать и все?
больше никаких действий делать не надо???

--------------------

Ни цего не понимаю

Snowy

Дата 25.1.2006, 18:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Нужно сделать его Active. И все.
Для этого он и нужен, чтобы руками больше ничего не делать.

Teran

Дата 25.1.2006, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

интересная проблема
пытаюся залогинится на Vingrad (по твоему коду)

но когда делаю POST на http://forum.vingrad.ru/index.php?act=Login&CODE=01
и набираю пароль правильно выскакивает сообщение :"HTTP/1.1 302 Found" и глючит сам форум

а когда неправильно в мемо -> страница авторизации

--------------------

Ни цего не понимаю

Snowy

Дата 25.1.2006, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Попробуй переключить ProtocolVersion на pv1_0
Добавлено @ 19:28
Я по этому же коду получаю страницу ошибки.
И не удивительно - пароль не "!!!!!" smile

Добавлено @ 19:33
Все. Понял в чем проблема.
При корректном входе подгружается главная страница.
А в ней очень большой размер.
Выставь параметр MaxLineAction в maSplit.

Teran

Дата 25.1.2006, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Делаю по этому коду:

Код


var
  str:TStringList;
  ms: TMemoryStream;
begin
  str:=TStringList.Create;
  ms := TMemoryStream.Create;
  str.Add('referer=');
  str.Add('UserName=Teran');
  str.Add('PassWord=!!!!!');
  str.Add('tst=');
  str.Add('CookieDate=1');
  try
    IdHTTP1.Post('http://forum.vingrad.ru/index.php?act=Login&CODE=01', str, ms);
    ms.Position := 0;
    Memo1.Lines.LoadFromStream(ms);
  finally
    ms.Free; str.Free;
  end;

но логинится не хочет(Пароль пишу правильный)

а у тебя получилось????

--------------------

Ни цего не понимаю

Snowy

Дата 25.1.2006, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

И HandleRedirect поставь в true
Добавлено @ 19:41

Цитата(Teran @ 25.1.2006, 19:39

)

а у тебя получилось????

Угу.

Teran

Дата 25.1.2006, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

УРРРРРРРАААААА Заработало smile

Спасибо ограмное
ВОТ:

Код


var
  str:TStringList;
  ms: TMemoryStream;
begin
  str:=TStringList.Create;
  ms := TMemoryStream.Create;
  str.Add('referer=');
  str.Add('UserName=Teran');
  str.Add('PassWord=!!!!!');
  str.Add('tst=');
  str.Add('CookieDate=1');
  try
    IdHTTP1.Post('http://forum.vingrad.ru/index.php?act=Login&CODE=01', str, ms);
    ms.Position := 0;
    Memo1.Lines.LoadFromStream(ms);
  finally
    ms.Free; str.Free;
  end;
  Memo1.Lines.Text:=IdHTTP1.Get('http://forum.vingrad.ru/index.php?act=Msg&CODE=01')

сразу открывает страницу где содержаться мои писма

а можно ли както сделать чтоб не в мемо был этот HTML а в -> борауер и открывался в нормальном виде
я так думаю кудато нужно TwebBrowser прикрутить ???? smile

--------------------

Ни цего не понимаю

Snowy

Дата 25.1.2006, 20:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Нет, нельзя.
В браузере нет печенюшек - они в Cookie менеджере.
Кроме того, вид все равно будет отличаться, т.к. стили хранятся в css, а его нужно отдельно скачивать. А одновременно подсунуть html и css можно только через файл.
Тогда нужно было изначально строить все на браузере.
И, даже, если ты все это отобразишь, будут испорчены относительные ссылки.
Браузер штука умная и тупая одновременно.

Teran

Дата 25.1.2006, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

а если код HTML с мемо просто забросить в броузер ????

Там всетаки лучше смотреть чем на сам код

--------------------

Ни цего не понимаю

Teran

Дата 25.1.2006, 20:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Я нашел для этого можно использовать компонент DHTMLEdit из ActiveX
Пишем:

Код


DHTMLEdit1.DocumentHTML:=Memo1.Lines.Text;

и он показывает нормальным языком

--------------------

Ни цего не понимаю

Snowy

Дата 25.1.2006, 22:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Поазывает.
Только без стилей. И 99% ссылок не работает.
Но показывает, да.
В принципе и TWebBrowser будет показывать.
В FAQ есть пример загрузки html из TMemoryStream.

Teran

Дата 26.1.2006, 00:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Ты можеш скинуть пожалуйста ссылочку на

Цитата(Snowy @ 25.1.2006, 22:05

)

В FAQ есть пример загрузки html из TMemoryStream.

А то у мня дома сильно глючит инет долго искать прийдется

--------------------

Ни цего не понимаю

Snowy

Дата 26.1.2006, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Код

uses ActiveX;

procedure LoadHtml(html: string);
var
  ms: TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  ms.Write(html[1], Length(html));
  ms.Position:=0;
  with MainWindow do
  try
    TWebBrowser1.Navigate('about:blank');
    while TWebBrowser1.ReadyState < READYSTATE_INTERACTIVE do
      Application.HandleMessage;
    (TWebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
  finally
    ms.Free;
  end;
end;

Teran

Дата 26.1.2006, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Все Работает

Спасибо Snowy

Я буду выдирать из HTML кода название и количество личных сообщений и вставлять себе в список на форме.

--------------------

Ни цего не понимаю

Teran

Дата 26.1.2006, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Ой

Если ковырятся в Html коде такая белеберда пролучается.

А нет ли какого нибудь другого общения с форумом,
чтоб по запросу допустим форум сам мне передавал личные сообщения(письма: название, тема, от кого, и .....)

smile

Както это в других программах реализовано

smile

--------------------

Ни цего не понимаю

Snowy

Дата 26.1.2006, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Нет. Другого способа нет.
Придется мучаться с html.
В принципе вполне реально.

Teran

Дата 26.1.2006, 18:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Цитата(Snowy @ 26.1.2006, 18:38

)

В принципе вполне реально.

это верно но для одного форума, а если их много??? smile

--------------------

Ни цего не понимаю

Snowy

Дата 26.1.2006, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Но другого не дано. Так что только так.
Универсального решения нет.

Teran

Дата 26.1.2006, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

а всякие HTML парсеры ??? или они не для этого предназначены???7 smile

--------------------

Ни цего не понимаю

Teran

Дата 26.1.2006, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Хочу перевести свой код на Buolder C++ ?

а там такого компонента нету:TIdCookieManager

а как тут быть??

делаю:

Код



  TStrings *Source=new TStringList();
  TStream *stream=new TMemoryStream();
     Source->Add("username=Teran");
     Source->Add("password=!!!"");
                                                                                                                                                                         
    Source->Add("autologin=on");
     Source->Add("login=");
 char buffer[1024];
 int readChars=1024;
 AnsiString strDisp;
     Source->Text;
  IdHTTP1->Post("http://myphpbb.com.ru/go/login.php?redirect=privmsg.php&folder=inbox",Source,stream);
Memo1->Lines->Clear();
        stream->Position = 0;
        readChars = 1024;
        while(readChars >= 1024)
          { readChars = stream->Read(buffer,1024);
            strDisp = AnsiString(buffer);
            Memo1->Lines->Add(strDisp);
           }

delete Source; delete stream;

но ничего не получилось

--------------------

Ни цего не понимаю

_hunter

Дата 26.1.2006, 20:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

версию индейцев по-новее поставить...

--------------------

Tempora mutantur, et nos mutamur in illis...

Teran

Дата 27.1.2006, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

а где её раздабыть ??

ссылочку дай пожалуйста
(правда я не знаю какая у меня версия Indy)

--------------------

Ни цего не понимаю

Teran

Дата 27.1.2006, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Спасибо уже ненадо
вроди бы нашел: http://www.indyproject.org/Sockets/Downloa.../Indy10.en.html

--------------------

Ни цего не понимаю

Teran

Дата 27.1.2006, 10:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Вот блин опять проблема тут нету именно для Builder C++

есть какието сорсы но они *.pas

а *.cpp не могу найти smile

--------------------

Ни цего не понимаю

_hunter

Дата 27.1.2006, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

там инструкция есть:
http://www.indyproject.org/Sockets/Docs/In...Install.en.html

--------------------

Tempora mutantur, et nos mutamur in illis...

Snowy

Дата 27.1.2006, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

А там и нет cpp сорсов. Оно все на дельфи писано.
Просто инсталь, как пакаджик.

Teran

Дата 27.1.2006, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

как .....?
Извини не понял??

расскажи чуть подробней smile

--------------------

Ни цего не понимаю

Snowy

Дата 27.1.2006, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Подробней, чем написано, только показать.

Цитата

Indy10Install

All packages are followed by X0 (Where X is your Delphi verison).
Download source from the Development Snapshot.

Delphi / BCB Installation
Open and compile in the following order:
* IndySystem (in Lib\System)
* IndyCore (in Lib\Core)
* IndyProtocols (in Lib\Protocols)
* IndySuperCore (in Lib\SuperCore)
Now open and click install in the following order
* dclIndyCore (in Lib\Core)
* dclIndyProtocols (in Lib\Protocols)
* dclSuperCore (in Lib\SuperCore)

Teran

Дата 27.1.2006, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Цитата(Snowy @ 27.1.2006, 13:28

)

Open and compile in the following order:
* IndySystem (in Lib\System)
.....

т.е. нужно по очереди откомпилить и то что создастся скопить в Lib\System?

а Lib\System - его самому создавать где угодно или system сщздавать в
C:\Program Files\Borland\CBuilder6\Lib
smile

--------------------

Ни цего не понимаю

_hunter

Дата 27.1.2006, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

в смысле по-очереди?
там только один .dpk
и папкаи в архиве уже есть. зачем их создавать?

--------------------

Tempora mutantur, et nos mutamur in illis...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »