TNMHTTP

← →
serko © (2006-05-12 20:19) [0]

Здрасте! Посоветовали мне воспользоваться этим компонентом для отправки POST и получения GET данных от сервера!

Нашел в Demos кодик. Как им воспользоваться т.е. что нужно ввести в этой проге чтобы открылась моя страничка статистики!

Я делал так, но не получается!

UserID - ввел
Password - ввел
Location - ввел страничку которой я должен передать данные
Post Data - ввел что буду передавать

Если что подправьте!

← →
serko © (2006-05-13 00:19) [1]

А вот в IDHTTP вроде аутентификация проходит!

Мне вот нужно на страничку статистики зайти (это уже кажется сделал) и введя данные с карточки получить от сервера ответ о данных карточки! По какому принципу это вообще делается? Может у кого то есть инфа по этому поводу?

← →
Delphi5.01 © (2006-05-14 10:21) [2]

> serko © (13.05.06 00:19) [1]
>
> А вот в IDHTTP вроде аутентификация проходит!

Согласен, у меня похожая трабла, я пользуюсь компонентом TWebBrowser так вот там POST и HEADERS не передаться, пытался и конвертнуть данные в OleVariant но тоже не помогло. Вот моя тема, может вам поможет, там немного доки и ссылки
http://delphimaster.net/view/6-1147572005/

← →
anton773 © (2006-05-14 20:47) [3]

Где-то на сайте "Королевства Делфи" есть ветка(и не одна) где обсуждается как заполнить форму на сервере. Думаю это как раз для тебя

← →
serko © (2006-05-14 23:38) [4]

> Delphi5.01 © (14.05.06 10:21) [2]

У меня чере WebBrowser все передается, но мне нужно как то получить ответ от сервера о полученных им данных, а я незнаю как! Может поможеш?

← →
Тест_рез (2006-05-15 03:47) [5]

> serko © (14.05.06 23:38) [4]
>
>
> > Delphi5.01 © (14.05.06 10:21) [2]
>
> У меня чере WebBrowser все передается, но мне нужно как
> то получить ответ от сервера о полученных им данных, а я
> незнаю как! Может поможеш?

Я могу тебе сказать как такое делают многие проги мыло конфермы. Которые должны узнать прошла ли регистрация на сайте удачно, но надеюсь что в замен получу инфу как отсылать данные :-) Потому что у меня именно эта часть не работает.

Теперь по сути. Если ты отправляешь форму с данными то во первых надо анализировать что не сгенерировалась ошибка. Во вторых после того как ты получишь ответ, если ты все делаешь в ручную то получишь header с редиректом, точно не помню какой тэг за это отвечает, потом берешь страничку на которую редиректнул сервер и анализируешь код. Многие проги просто ищут ключевое слово. Типа "Your successfully submitted your information" или что-то в этом роде.

Если есть дополнительные вопросы, всегда пожалуйста

← →
Delphi5.01 © (2006-05-15 03:47) [6]

Удалено модератором

← →
serko © (2006-05-15 13:16) [7]

как отсылать данные я нашел на каком то сайте, там было опсание как отправить смс с определенного сайта! Вот код:

var vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant; iLoop: Integer; text,stPostData: String; begin stPostData:=""; пересылаемые данные vHeaders:= "Content-Type:application/x-www-form-urlencoded"+ #10#13#0; vPostData:= VararrayCreate([0, Length(stPostData)], varByte); for iLoop := 0 to Length(stPostData)- 1 do begin vPostData[iLoop]:= Ord(stPostData[iLoop+1]); end; vPostData[Length(stPostData)]:= 0; TVarData(vPostData).vType:= varArray; vWebAddr:="";//адресс странички на которою отсылаеш данные vFlags:=navNoWriteToCache; vFrame:=EmptyParam; try WebBrowser1.Navigate2(vWebAddr,vFlags,vFrame,vPostData,vHeaders); except end;

Но ведь искать ключевые слова в коде это помоему не рационально! Или я ошибаюсь?

← →
Delphi5.01 © (2006-05-15 15:09) [8]

> Но ведь искать ключевые слова в коде это помоему не рационально!
> Или я ошибаюсь?

Могу тебя заверить что многие гиганты (программы) именно так и делают. Что касается анализа то делается довольно просто. Надо удалить все теги а именно текст <*> вот и все. На PHP это одна строка но на дельфи нужно еще и код писать.

п.с. ИМХО только теперь начинаю понимать почему многие ругают дельфи :-( О VB и разговора нету

← →
Delphi5.01 © (2006-05-15 15:10) [9]

Да спасибо за ответ и пример :-) Обьязательно заюзаю

← →
serko © (2006-05-15 18:26) [10]

Ну что ж и тебе спасибо! Будем пробовать анализировать код! Кстати а как получить код открытой странички в WebBrowser?

← →
Delphi5.01 © (2006-05-15 19:56) [11]

> serko © (15.05.06 18:26) [10]
>
> Ну что ж и тебе спасибо! Будем пробовать анализировать код!
> Кстати а как получить код открытой странички в WebBrowser?
>

Это легче чем ты думаешь :-)
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Memo1.Text := (WebBrowser1.Document as IhtmlDocument2).Body.OuterHTML;
end;

← →
Delphi5.01 © (2006-05-15 19:59) [12]

п.с. После того как я разберусь с моим вопросом касаюшимся кукисов я собираюсь заняться именно тем чем ты сейчас занимещся. Проблему я думаю легче решить (получения чистого текста странички) можно с помощью свойства innerText но для этого надо получиться все елементы странички. А на это все у меня пока нет времени :-)
Кстати ни в коем случае конфирмеишен не базируй на состоянии URL-а, так как его могут запросто изменить разные обстановки.

Вот нашел вам хорошую доку, если не лень будет разбирать, то регулярные ворожения облегчать вашу жизнь наверно 50 раз :-)
http://www.delphipages.com/result.cfm?ID=1216
Проверено :-)

Скажи а как можна считать инфу со странички?
Ну вот допустим я нашел на страничке фразу: "На вашем счету: ", а мне нужно считать сколько именно на моем счету! как?

← →
WebSqlNeederr (2006-05-21 13:12) [15]

Анализируй связки тегов "На вашем счету" и тот тег где находится сам счет.

ну а примерчик есть?

> serko © (22.05.06 23:51) [16]
>
> ну а примерчик есть?

Ну думаю для начала что бы вам предложить уже готовое решение вам нужно будет выкинуть или ссылку на страничку где данный текст нужно считать, либо выложите здесь содержимое странички (HTML).

Я уже разобрался!

Другой вопрос:

Вот я отсылаю данные методом serko © (15.05.06 13:16) [7] по нажатию кнопки у меня выскакивает окошко для авторизации т.е. следует ввести Логин и пароль! Как сделать это автоматом т.е. программно, чтобы мне не приходилось ничего вписывать?

TNMHTTP Найти похожие ветки