Отправить данные из формы

← →
Муслик (2008-06-18 10:01) [0]

Скажите пожалуйста как передать из программы текст в Internet Explorer точнее есть форма отправки сообщение (гостевая книга) вот мне из программы делфи нужно передать в <input type=text> текст

← →
Palladin © (2008-06-18 10:10) [1]

спамеры маст дай

← →
Муслик (2008-06-18 10:12) [2]

Нет это не в целях флуда это для удобства точнее для своего скрипта!

← →
Муслик (2008-06-18 10:32) [3]

Скажите с каким компонентом нужно работать

← →
Palladin © (2008-06-18 10:44) [4]

TIdHTTP

← →
Муслик (2008-06-18 10:47) [5]

Да пробовал с этим компонентом я боротся и читал много про него но никак не получается

← →
Palladin © (2008-06-18 10:49) [6]

) понятно, и по колесам пинал, и по рулю бил...

← →
Муслик (2008-06-18 10:51) [7]

Ну до этого не дошло.
А есть примеры по работе с передачей данных в форму IE

← →
Palladin © (2008-06-18 10:53) [8]

Ну где нибудь да есть. Поискать сложно?

← →
Муслик (2008-06-18 11:28) [9]

создал запрос для отправки данных
ar send_post: TStringList; begin send_post:= TStringList.Create; //Òóò áóäåò POST çàïðîñ send_post.add("session=0fb42726948bbd8e93ca9f37b1316821"); //Ïåðåìåííûå send_post.Add("IsPublic=1"); send_post.Add("act="); send_post.Add("ChatFilter=0"); send_post.Add("mesg=test"); send_post.Add("whisper="); send_post.Add("clr_to=on"); send_post.Add("style_i="); send_post.Add("user_color=20"); send_post.Add("tr=off"); idHTTP1.Post("http://www.xchat.ru/sender.php", send_post); send_post.Free; exit;

выдаёт ошабку Соект еррор 10049

← →
Муслик (2008-06-18 11:30) [10]

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

← →
Муслик (2008-06-18 11:31) [11]

блин! как всегда спешу... отправка произошла успешно

← →
Муслик (2008-06-19 10:11) [12]

скажите пожалуйста, вот код, почему ничего не происходит почему данные не добавляются в форму?
webbrowser1.navigate("www.ya.ru")
и

var hIE: HWND; ShellWindow: IShellWindows; WB: IWebbrowser2; spDisp: IDispatch; IDoc1: IHTMLDocument2; Document: Variant; k, m: Integer; ovElements: OleVariant; i: Integer; begin ShellWindow := CoShellWindows.Create; for k := 0 to ShellWindow.Count do begin spDisp := ShellWindow.Item(k); if spDisp = nil then Continue; spDisp.QueryInterface(iWebBrowser2, WB); if WB <> nil then begin WB.Document.QueryInterface(IHTMLDocument2, iDoc1); if iDoc1 <> nil then begin WB := ShellWindow.Item(k) as IWebbrowser2; begin Document := WB.Document; for m := 0 to Document.forms.Length - 1 do begin ovElements := Document.forms.Item(m).elements; begin try if (CompareText(ovElements.item(i).tagName, "INPUT") = 0) and (CompareText(ovElements.item(i).type, "text") = 0) then begin ovElements.item(i).Value := "FindWindow"; end; except end; try if (CompareText(ovElements.item(i).tagName, "INPUT") = 0) and (CompareText(ovElements.item(i).type, "SUBMIT") = 0) and (ovElements.item(i).Value = "Search") then begin ovElements.item(i).Click; end; except end; end; end; end; end; end; end;

← →
Муслик (2008-06-19 11:24) [13]

никакого решения этому нет?

← →
palva © (2008-06-19 12:05) [14]

У вас счетчик цикла m, а в теле вы используете переменную i.

← →
Муслик (2008-06-19 13:04) [15]

Ну так правльно! если поставить i то будит ошибка

← →
Муслик (2008-06-19 13:07) [16]

или может чтото я не правильно пнял

не хватает еще одного цикла.
после
ovElements := Document.forms.Item(m).elements;

блок begin - end это должен быть телом еще одного цикла со счетчиком i

← →
Муслик (2008-06-19 13:10) [18]

и как его реализовать? чёт я непонял

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

предположу, что
ovElements := Document.forms.Item(m).elements; for i := 0 to ovElements.Length - 1 do begin

← →
Муслик (2008-06-19 13:20) [20]

Стоп... то был неправильно скопирован коддд! цикл который вы написалии он существует но всё равно не работает код

← →
Муслик (2008-06-19 13:49) [21]

Скажите у кого нить этот пример работает?

Отправить данные из формы Найти похожие ветки