Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Автоматическая отправка данных форм [D7, WinXP]

Stranger © (2007-12-01 19:05:00)
Доброго времени суток.
Ситуация: есть сайт на котором есть форма для отправки данных.
Вопрос: каким образом можно реализовать автоматическое заполнение-отправку данной формы из моей программы на delphi.
Заранее спасибо

Lamer666 (2007-12-14 08:37:00) [1]

> Anatoly Podgoretsky © (13.12.07 18:37) [18]

Спасибо!

Anatoly Podgoretsky (2007-12-13 18:37:00) [2]
> Lamer666 (13.12.2007 17:55:17) [17]

Они этим не занимаются и заниматься не могут.

Lamer666 (2007-12-13 17:55:00) [3]

> MetalFan

А МОЖНО ЛИ ПАРСИТЬ странички методами POST и GET?

tButton (2007-12-13 14:02:00) [4]
извините

MetalFan (2007-12-12 17:39:00) [5]
форум вообщето посвящен делфи. вот на форуме пхпшников и спроси

tButton (2007-12-12 15:27:00) [6]

> Отправить на этот сайтнужным образом сформированный GET
> или POST http-запрос

а не подскажите как это реализовать на php?)

MetalFan (2007-12-09 19:09:00) [7]
хм. еле нашел бесплатный, но навороченный отладчик HTTP
http://www.fiddlertool.com/Fiddler2/version.asp

MetalFan (2007-12-09 18:39:00) [8]
http://www.google.ru/search?q=http+tracer

Lamer666 (2007-12-09 17:30:00) [9]

> HTTP debuggerom

дай ссылку где скачать можно

MetalFan (2007-12-09 15:04:00) [10]

> ИМХО не стоит так делать, и советы такие давать тоже!

+1

> Для того, что бы отправить Get/Post нафиг не надо грузить
> всю страницу, причем каждый раз заного.

и тащить с собой не легкий TWebBrowser.
Алгоритм примерно такой:
1. Смотришь любым HTTP debuggerom что шлет браузер
2. с пом любого HTTP клиента/набора функций (Indy, ICS, WinInet, WinHTTP) шлешь то же самое.
3. радуешьсо

Dennis I. Komarov (2007-12-06 14:49:00) [11]
> [8] Lamer666 (06.12.07 11:05)

Медвежья услуга - не помощь а вредЪ. Впрочем я с тобой спорить не собираюсь. Для того, что бы отправить Get/Post нафиг не надо грузить всю страницу, причем каждый раз заного. Нравиться - пиши как вздумается.

Lamer666 (2007-12-06 11:05:00) [12]
Для КОГО услуга, для кого ПОМОЩЬ!

Dennis I. Komarov (2007-12-06 10:38:00) [13]
> [6] Lamer666 (05.12.07 16:23)

Зачем я буду писать, если в [1] уже ответили. Далее вопросов от автора не поступало.

> ХОТЬ что то человеку ПРАКТИЧНОЕ написал

Медвежья услуга! :)

Lamer666 (2007-12-05 16:23:00) [14]

> ИМХО не стоит так делать, и советы такие давать тоже!
> Читать [1] до полного просветления

Пока я ВИЖУ что я ХОТЬ что то человеку ПРАКТИЧНОЕ написал в отличии от Вас, уважаемый!

Dennis I. Komarov (2007-12-05 14:57:00) [15]
> [4] Lamer666 (05.12.07 12:38)

ИМХО не стоит так делать, и советы такие давать тоже!
Читать [1] до полного просветления

Lamer666 (2007-12-05 12:38:00) [16]
Если на страничке при отправке данных формы нет ЗАЩИТЫ ОТ СПАМА (контрольные цифры или что то вэтом роде) то так делаешь:

1. На форму кидаешь TWEBBROWSER
2. В процедуре создания формы пишешь:
WebBrowser1.Navigate(' АДРЕСС');
3. На форму конпку (при нажатии на которую будут заполняться и отправляться данные):
FillFun(' имя поля','значение для имени поля',WebBrowser1);- эта функция ищет нужное поле по имени, и вводит туда твои данные
Выше указанную строчку для всех полей которые хочешь заполнить!
Например:
FillFun('_phoneNumber','',WebBrowser1); FillFun('_salePointCode','050500700',WebBrowser1); FillFun('_iNN','000013375592',WebBrowser1); FillFun('_contactPhone','0000015010',WebBrowser1);
И так далее.
Сама функция FillFun выглядит так:

Function FillFun (Sid:string;Svalue:string;WebBrowser1:TWebBrowser):Boolean; Var i,j:integer;FormItem:variant; Begin Result := False; For I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do begin FormItem := WebBrowser1.OleObject.Document.forms.Item(I); for j := 0 to FormItem.Length - 1 do begin try If (FormItem.Item(j).name=Sid) and (FormItem.Item(j).type='text') then begin Result:=True; FormItem.Item(j).Value:=Svalue; end; except Exit; end; end; end; End;
После заполнения всех форм пишешь следующее:

For I := 0 to WebBrowser1.OleObject.Document.forms.Length - 1 do begin FormItem := WebBrowser1.OleObject.Document.forms.Item(I); for j := 0 to FormItem.Length - 1 do begin try If (FormItem.Item(j).type='submit') and (FormItem.Item(j).value=' НАДПИСЬ НА КНОПКЕ') then FormItem.Item(j).click; //when the fieldname is found, try to fill out {if FormItem.Item(j).Name = FieldName then begin FormItem.Item(j).Value := Value; Result := True; end;} except Exit; end; end; end;
Тут мы ищем ЭЛЕМЕН типа 'submit' (кнопка), надпись на которой " НАДПИСЬ НА КНОПКЕ", как только такую нашли (кнопок может быть много (хотя нет гарантии что НЕТ ДВУХ кнопок с одинаковыми надписями на них - ориентируйся по ситуации)) щелкаем нанее, тем самым отправляем данные....

MetalFan (2007-12-04 14:12:00) [17]
если нет доп защиты от ботов (ввод капчи, разгадывание загадки), то вполне реально сгенерировать такой же, как и браузер, запрос из своей программы.
в случае доп.защиты это так же возможно, но гораздо сложнее

Dennis I. Komarov (2007-12-04 10:02:00) [18]
> [0] Stranger (01.12.07 19:05)

На сайтах обычно делают защиту от ботов, так что 99% что не получиться. (Все не так просто).

DiamondShark (2007-12-03 16:38:00) [19]
Отправить на этот сайт нужным образом сформированный GET или POST http-запрос.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »