VadKomarov
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Здравствуйте.
Есть очень большая проблеммма.
Страница с 2 фреймами, один из них тоже состоит из 2 фреймов. Надо заполнять поля, присутствующие в этом фрейме автоматически.... Я долго бился но не чего не получалось... Пришлось загружать только конкретный фрейм. вот пример его загрузки ( Нттр://.........../cgi-bin/pwrap.cgi?proc=t_webif.t_form('f011', 'spr') ) (если что не так то подскажите мои ошибки)
здесь код загружаемой (формы) страницы.
и заполнять поля.....
Код:
function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j,k: Integer;
FormItem: Variant;
begin
Result := False;
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;
...
FillForm(webbrowser1,'DB_NOMER_PSP','текст');
...
|
Но вопрос в другом... при нажатии на кнопку находящуюся в этом фрейме выдаётся сообщение что поля пустые, хотя на самом деле необходимый текст присутствует в этих полях... как обойти эту ошибку... Помогите увыжаемые знатоки .... |
Всего записей: 100 | Зарегистр. 01-05-2005 | Отправлено: 05:28 09-04-2009 | Исправлено: VadKomarov, 05:36 09-04-2009 |
|
