|
#1
|
|||
|
|||
Вопрос!
Господа, дайте совет:
Я написал программу, она подгружает данные с сайта, и заполняет поля web-формы. Затем После отправки данных снова загружает эту страничку. Но возникает проблема: страничка загружается, а повторно данные не могу отправить... как это исправить?? Последний раз редактировалось realOEM, 13.02.2007 в 23:16. Причина: Очепятка.... |
#2
|
||||
|
||||
Интересные люди.... Каг да каг =))) А где пример кода? Мы ж не экстрасенсы=) От куда ж нам знать что там наворотил...
SysMan. C++Builder Internet/Intranet Programming. |
#3
|
|||
|
|||
Цитата:
Я просто гружу в скрытый компонент TWebBrowser url: procedure TForm1.FormCreate(Sender: TObject); begin Webbrowser1.Navigate('https://хх.хх.хх.хх/cgi-bin/cgi.exe?function=хххххххх&хххххх=1') end; с помощью editов и memo заполняю формы в страничке, а с помощью buttonов нажимаю на страничке кнопки. Запоненая страничка выполняет скрипт, и должна по новой загрузиться: procedure TForm1.Button1Click(Sender: TObject); var iDoc: IHtmlDocument2; i: integer; ov: OleVariant; iDisp: IDispatch; iColl: IHTMLElementCollection; InputImage: HTMLInputImage; IDoc1: IHTMLDocument2; Web: IWebBrowser2; begin while Webbrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages; Webbrowser1.Document.QueryInterface(IHTMLDocument2 , iDoc1); Web := WebBrowser1.ControlInterface; antispamText(Web, iDoc1, Webbrowser1.Document,edit1.Text); To_(Web, iDoc1, Webbrowser1.Document,edit2.Text); Msg_(Web, iDoc1, Webbrowser1.Document,memo1.Text); WebBrowser1.ControlInterface.Document.QueryInterfa ce(IHtmlDocument2, iDoc); if not Assigned(iDoc) then begin Exit; end; ov := 'INPUT'; iDisp := iDoc.all.tags(ov); if Assigned(IDisp) then begin IDisp.QueryInterface(IHTMLElementCollection, iColl); if Assigned(iColl) then begin for i := 1 to iColl.Get_length do begin iDisp := iColl.item(pred(i), 0); iDisp.QueryInterface(HTMLInputImage, InputImage); if Assigned(InputImage) then begin if InputImage.type_ = 'image' then //Нажимаю кнопку исполняющую скрипт на страничке begin InputImage.Click; end; end; end; end; end; edit1.Text:=''; edit2.text:=''; memo1.Text:=''; //Webbrowser1.Navigate('https://хх.хх.хх.хх/cgi-bin/cgi.exe?function=хххххххх&хххххх=1') end; Тут проблема и возникает. Скрипт открывает страницу. Я по новой гружу исходную. Она грузится, но вот скрипт не выполняет. Последний раз редактировалось realOEM, 14.02.2007 в 22:28. |
#4
|
|||
|
|||
Если интересуют и другие фрагменты кода, могу их указать...
|
#5
|
|||
|
|||
Я так подумал, никто не подскажет... ладно буду сам копать...
|