Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 4 824

Раздел: Delphi » Прочее
/ вопрос открыт /

Здравствуйте уважаемые эксперты!
Вообщем, Как передать данные из edit в определенный html-код в поле input, если это возможно, если возможно плз наведите примерчик. Прошу помочь, очень нужно!!!
Заранее благодарен
С уважением alshkavro

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Примечание #1 (16 декабря 2010, 13:29):
Напишите хотя б своё мнение уважаемые эксперты чи это возможно, плз...

alshkavro Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: alshkavro (статус: Посетитель)
Вопрос отправлен: 16 декабря 2010, 12:15
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Шичко Игорь

Здравствуйте, alshkavro!
Есть такая функция (не помню источника оригинала)
function TForm1.FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean; (код в приложении)
Заполняет поле TWebBrowser данными по имени поля.

Применение описал ниже функции. Если появятся вопросы - пишите в форум.
Удачи.

Приложение:
  1. function TForm1.FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
  2. var
  3. i, j: Integer;
  4. FormItem: Variant;
  5. temp: string;
  6. begin
  7. Result := False;
  8.  
  9.  
  10. begin
  11. Exit;
  12. end;
  13.  
  14.  
  15. begin
  16. FormItem := WebBrowser.OleObject.Document.forms.Item(I);
  17.  
  18. for j := 0 to FormItem.Length - 1 do
  19. begin
  20. temp:= FormItem.Item(j).Name;
  21. try
  22. if FormItem.Item(j).Name = FieldName then
  23. begin
  24. FormItem.Item(j).Value := Value;
  25. Result := True;
  26. end;
  27. except
  28. Exit;
  29. end;
  30. end;
  31. end;
  32. end;
  33.  
  34.  
  35.  
  36.  
  37. procedure TForm1.Button1Click(Sender: TObject);
  38. begin
  39. Webbrowser1.Navigate('http://yandex.ru/');
  40. end;
  41.  
  42.  
  43. procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
  44. begin
  45.  
  46. end;
  47.  
  48.  
  49.  


Ответ отправил: Шичко Игорь (статус: 9-ый класс)
Время отправки: 17 декабря 2010, 16:19
Оценка за ответ: 5

Комментарий к оценке: спасибо большое за ответ

Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 17 декабря 2010, 17:13; участников в обсуждении: 2.
Roma_no_off

Roma_no_off (статус: Посетитель), 16 декабря 2010, 19:10 [#1]:

Можно нажать кнопку искать, посмотреть, что будет в строке адреса и передавать строку своей программой, но с нужными параметрами. Если же для передачи параметров используется сессия, то там хз, как сделать. Во 2 случае можно написать кликер с имитацией ввода с клавы, но, я так полагаю, это не тот случай.
mirt.steelwater

mirt.steelwater (статус: Посетитель), 17 декабря 2010, 17:13 [#2]:

это работает на голом яваскрипте или в html-форму можно отправлять get/post запросы? если последний вариант возможен, то используй syncedit
Ⓐ свобода сопротивление солидарность

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:27
Выполнено за 0.03 сек.