Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.03.07;
Скачать: [xml.tar.bz2];

Вниз

Как заполнить поля в определенном фрейме?   Найти похожие ветки 

 
Антон К.   (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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
1-1220526665
evgenij
2008-09-04 15:11
2010.03.07
узнать запущена моя программа или нет


10-1164542794
vlad-mal
2006-11-26 15:06
2010.03.07
Утечка памяти (объекты TConnectionPoints/TConnectionPoint )


2-1262678486
Eh
2010-01-05 11:01
2010.03.07
Меню как в Access


6-1212825133
Андрей
2008-06-07 11:52
2010.03.07
Отправка информации по сокетам


15-1261387411
Юрий Зотов
2009-12-21 12:23
2010.03.07
Регулярные выражения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский