Текущий архив: 2010.03.07;
Скачать: CL | DM;
Вниз
Как заполнить поля в определенном фрейме? Найти похожие ветки
← →
Антон К. (2010-01-03 17:23) [0]Хотел использовать вот этот код:
function FillFormStr(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
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;
Однако, этот код не работает. Вероятно это связано с тем, что страница, которую я пытаюсь заполнить, состоит из нескольких фреймов. Подскажите плиз как модифицировать указанный код, чтобы заполнить поля в нужном фрейме. Фрейма всего два.
Заранее спасибо.
← →
TIF © (2010-01-03 21:03) [1]> как модифицировать указанный код
Код взят из DelphiWorld
Там же найти несколько примеров для работы с фреймами, изучить (как добраться до нужного фрейма), скрестить с этим примером и, наверное, получить правильный результат
← →
Антон К. (2010-01-03 21:29) [2]
> Там же найти несколько примеров для работы с фреймами, изучить
> (как добраться до нужного фрейма), скрестить с этим примером
> и, наверное, получить правильный результат
Пробовал. :) Не получилось :(
Я для души программированием занимаюсь, поэтому особых знаний нет. Может вы подскажите?
Страницы: 1 вся ветка
Текущий архив: 2010.03.07;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.005 c
