Главная страница
    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
2-1262457629
Lordalexander
2010-01-02 21:40
2010.03.07
Окна


11-1213530831
Artlav
2008-06-15 15:53
2010.03.07
RichEdit: Синхронизация и ограничения.


2-1262455962
antonn
2010-01-02 21:12
2010.03.07
из регулярной процедуры в экземпляр класса


15-1261465203
MonoLife
2009-12-22 10:00
2010.03.07
Кто-нибудь пользуется yahoo почтой?


15-1261431022
Юрий
2009-12-22 00:30
2010.03.07
С днем рождения ! 22 декабря 2009 вторник





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский