Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.01.2010, 15:15   #1
Maxs
Заблокирован
 
Регистрация: 06.04.2009
Сообщений: 130
По умолчанию Поля без value

Как заполнить поля без value? [Реклама удалена] Работаю через TWebBrowser.
Код:
<table cellpadding="0" cellspacing="0" border="0" width="100%">
		<tr valign="top">
		<td class="controlbar">

		<textarea name="message" id="vB_Editor_001_textarea" rows="10" cols="60" style="display:block; width:540px; height:250px" tabindex="1" dir="ltr"></textarea>
		</td>
		<td class="controlbar">
В поле subject(оно выше - получается щаписывать - там есть value). Тут обращаюсь к имени message - эффекта 0. Помоему тут надо выполнять какую-то javascript функцию?

Не нужно тут рекламировать...
Модератор.

Последний раз редактировалось mihali4; 26.01.2010 в 15:27.
Maxs вне форума Ответить с цитированием
Старый 26.01.2010, 16:06   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

просто нет определенного значения по умолчанию.
обычно равносильно пустому инпуту.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 26.01.2010, 16:14   #3
Maxs
Заблокирован
 
Регистрация: 06.04.2009
Сообщений: 130
По умолчанию

Но все-равно не получается обычным способом вписать
Maxs вне форума Ответить с цитированием
Старый 26.01.2010, 16:20   #4
Maxs
Заблокирован
 
Регистрация: 06.04.2009
Сообщений: 130
По умолчанию

Вот такую функцию использую
Код:
function FillValue(WebBrowser : TWebBrowser; FieldName : String; Value : String): Boolean;
var
  i, j : Integer;
  FormItem : Variant;
begin
  Result := False;
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    ShowMessage('<FORM> is not here');
    Exit;
  end;
  for i := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(i);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;
Что может быть помехой? фреймы? функции?

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

Последний раз редактировалось mihali4; 26.01.2010 в 18:51.
Maxs вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Записать табл DataSours без ввода в поля редактирования Virga Помощь студентам 3 15.08.2009 16:32
Выявление одинаковости значений поля в одной талице по значению поля в другой nikmay SQL, базы данных 4 13.08.2009 12:51
поля в DBgrid Mihailhome БД в Delphi 4 19.05.2009 11:24
Процедуры без Bios и без Dos,бывают? codeok Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 31.10.2008 03:17
Вычесляемые поля puma Помощь студентам 6 12.05.2008 20:26