Главная страница
    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-1239176461
MAcK
2009-04-08 11:41
2010.03.07
TXMLTransformClient


2-1262601063
dragon3232
2010-01-04 13:31
2010.03.07
помогите с заданием


2-1262161972
pleasure
2009-12-30 11:32
2010.03.07
формы, права, доступ


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


2-1262073913
oleg1963
2009-12-29 11:05
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский