![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 18.01.2007
Сообщений: 9
|
![]()
Подскажите пожалуйста, как можно забрать информацию с сайта после регистрации
Заполнение формы регистрации делаю так: procedure TForm1.SpeedButton1Click(Sender: TObject); var tL: TStringList; s: String; begin tL := TStringList.Create; tL.Add('password=пароль'); tL.Add('login=имя'); try s := IdHTTP1.Post('адрес формы регистрации',tl); finally tL.Free; end; После ввода регистрационных данных на сайте, происходит автоматический переход на страницу содержащую нужную информацию, каким образом мне программно забрать с неё инфу??? ![]() |
![]() |
![]() |
![]() |
#2 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,634
|
![]()
Давай конкретный пример - что за сайт, и ещё исходник проги, будем думать вместе.
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 18.01.2007
Сообщений: 9
|
![]()
сайт например СПб МТС https://spb.mts.ru/selfcare/(login.aspx) это форма авторизации, после ввода данных Login, password переходим на страницу
https://spb.mts.ru/selfcare/account-status.aspx где и находится нужная информация. исходник Unit1.pas.txt |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 23.05.2007
Сообщений: 151
|
![]()
Я отправляю данные методом POST. Набираю в переменную Query типа TStrings различную информацию строками
Query.Append('<?xml version="1.0" encoding="windows-1251"?>'); Query.Append('<root>'); Query.Append('<auth uid="1" pwd="password" vp="2"/>'); ....и т.д. ........... затем : ResultQuery := HTTP.Post(AdressScripta, Query); Анализ ResultQuery показал, что отправленные мной данные не верны. Тогда я вывел переменную Query в поле Memo: mmPolya.Lines:=Query; Увидел вместо вышеприведенных строк такие: <?xml version=%221%2E0%22+encoding%3D%22w indows%2D1251%22%3F%3E <root> <auth uid=%221%22+pwd%3D%22password%22+vp %3D%222%22%2F%3E Почему он заменил симолы кавычек, уголков и прочего на коды? |
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
![]()
IdHttpClient
тот же метод символы могут заменяться только в случае неверной кодировки
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 23.05.2007
Сообщений: 151
|
![]()
Где на панели компонентов находится idHTTPClient? Все вкладки, относящиеся к Indy прочесал, но нет.
|
![]() |
![]() |
![]() |
#7 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
![]()
IndyClients
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 23.05.2007
Сообщений: 151
|
![]()
Там со слововм Client в названии токо такие компоненты:
IdTCPClient, IdUDPClient, IdICMPClient, IdIPMCastClient. Укажите pls точное местонахождение на этой вкладке! Delphi 7, WinXP_sp2 |
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
![]()
Компонент называется IdHttp
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 23.05.2007
Сообщений: 151
|
![]()
А причем тут слово Client?
|
![]() |
![]() |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
WebBrowser POST | micq | Компоненты Delphi | 5 | 19.09.2008 21:37 |
POST | Stanislav | Работа с сетью в Delphi | 3 | 03.03.2008 18:05 |
HTTPS и POST | Alex_C | Работа с сетью в Delphi | 4 | 25.10.2007 21:04 |
Все тот же IdHTTP (Post) | AVer | Работа с сетью в Delphi | 5 | 28.09.2007 10:40 |
submit button w/o name - вопрос по http post | web surfer | HTML и CSS | 2 | 20.02.2007 04:10 |