Недавно добавленные исходники

•  3D Designer  105

•  Sik Screen Capture  87

•  Patch Maker  76

•  Айболит (remote control)  95

•  ListBox Drag & Drop  73

•  Доска для игры Реверси  1 272

•  Графические эффекты  84

•  Рисование по маске  62

•  Перетаскивание изображений  66

•  Canvas Drawing  68

•  Рисование Луны  143

•  Поворот изображения  50

•  Рисование стержней  44

•  Paint on Shape  41

•  Генератор кроссвордов  53

•  Головоломка Paletto  63

•  Теорема Монжа об окружностях  105

•  Пазл Numbrix  49

•  Заборы и коммивояжеры  74

•  Игра HIP  56

•  Игра Go (Го)  47

•  Симулятор лифта  49

•  Программа укладки плитки  52

•  Генератор лабиринта  92

•  Проверка числового ввода  43

•  HEX View  97

•  Физический маятник  99

•  Задача коммивояжера  125

•  Автомобильная пробка  49

•  Квадратные сетки из слов  43

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Нажать кнопку Submit в TWebBrowser если она в виде картинки



Оформил: DeeCo

{ 
 If you have a webpage with a Form on it, but the submit - button is an image, 
 you can use this code (using a TWebBrowser) 
}

 { 
 Falls du eine Webpage mit einem Formular hast, 
 bei welchem der Submit-Knopf ein Bild ist, 
 dann kannst du diesen Code benutzen (sowie ein TWebBrowser) 
}

 uses
   MSHTML;

 var
   iDoc: IHtmlDocument2;
   i: integer;
   ov: OleVariant;
   iDisp: IDispatch;
   iColl: IHTMLElementCollection;
   InputImage: HTMLInputImage;
 begin
   WebBrowser1.ControlInterface.Document.QueryInterface(IHtmlDocument2, iDoc);
   if not Assigned(iDoc) then
   begin
     Exit;
   end;
   ov := 'INPUT';
   iDisp := iDoc.all.tags(ov);
   if Assigned(IDisp) then
   begin
     IDisp.QueryInterface(IHTMLElementCollection, iColl);
     if Assigned(iColl) then
     begin
       for i := 1 to iColl.Get_length do
       begin
         iDisp := iColl.item(pred(i), 0);
         iDisp.QueryInterface(HTMLInputImage, InputImage);
         if Assigned(InputImage) then
         begin
           if InputImage.Name = 'submit' then
           // if the name is submit / falls der name submit lautet 
          begin
             InputImage.Click;  // click it / klick es 
          end;
         end;
       end;
     end;
   end;
 end;

 // 2. 

procedure TForm1.Button1Click(Sender: TObject);
 var
   i: Word;
   Document: IHtmlDocument2;
   str: string;
 begin
   // Schleife uber alle Bilder im Webbrowser 
  for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
   begin
     Document := WebBrowser1.Document as IHtmlDocument2;
     // URL auslesen 
    Str := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
     // Dateiname des Bildes uberprufen 
    if Pos('submit_icon.gif', str) <> 0 then
     begin
       ((Document.Images.Item(i, 0) as IHTMLImgElement) as IHTMLElement).Click;
     end;
   end;
 end;




Похожие по теме исходники

Учет посетителей интернет-салона

Оптимизация рациона питания

Автонастройщик сети

Игра Фанорона

 

Игра в жизнь Джона Конвея

Метод Симпсона

База данных Видеофильмов

Видеозахват с камеры XCam

 

Передача видео по сети




Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter