Søg
Avatar billede fastpoint Nybegynder
10. juni 2001 - 20:07 Der er 6 kommentarer og
1 løsning

nico22 ?

der var den....
en knap i html har en value eller navn...når man klikker på mobil i delphi skal den finde knappen i html koden og klikke på den.

hvis jeg skriver adressen http://www.mobil.dk og den så bliver ændret så vil siden ikke blive fundet, men hvis jeg bruger den samme knap (med samme value) så vil den altid finde siden:=)

Meget smart.

Hvordan gør jeg det?
Jeg opretter lige et andet spørgsmål så du kan får dine point.
Avatar billede nico26 Nybegynder
10. juni 2001 - 20:31 #1
i dit oprindelige spørgsmål - http://www.eksperten.dk/spm/74682 - fandt vi nogle textfelter og en combobox. På samme måde måde kan du finde en knap, eller en hvilken som helst anden type html-objekt. Det første man skal gøre er at få en såkaldt collection med alle de elementer af den ønskede type, hvorefter man kan identificere det ønskede objekt med et ID eller navn. Når man så har fundet knappen, mener jeg at den har en click procedure man kan kalde.

Jeg er bare ikke helt med på hvad html-knappen skal. Skal browseren navigere til mobil.dk når man trykker på den?
Avatar billede fastpoint Nybegynder
10. juni 2001 - 20:37 #2
ja... når man klikker i delphi på knappen mobil så skal delphi i webbrowser1 finde knappen med value eller name mobil og klikke på den.
Avatar billede nico26 Nybegynder
10. juni 2001 - 20:39 #3
okay - jeg kigger på det og vender tilbage i morgen.
Avatar billede fastpoint Nybegynder
10. juni 2001 - 20:46 #4
okay:)
Avatar billede nico26 Nybegynder
11. juni 2001 - 11:07 #5
det var jo slet ikke så svært

<html>
<head>
  <title>Html i Delphi</title>
  <script language=\"JavaScript\">

    function mobilClick() {
      alert(\"Du klikkede på mobilknappen\");
    }

  </script>
<head>
<body>
  <h1>Html i Delphi</h1>
  <input type=\"button\" id=\"mobil\" value=\"Mobil\" onClick=\"mobilClick()\"/>
</body>
</html>



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw_TLB, MSHTML_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    btnMobil: TButton;
    btnNavigate: TButton;
    procedure btnMobilClick(Sender: TObject);
    procedure btnNavigateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  ComObj;

{$R *.DFM}

procedure TForm1.btnMobilClick(Sender: TObject);
var
  Doc: IHTMLDocument2;
  AllElts: IHTMLElementCollection;
  Elt: IDispatch;
  Mobil: IHTMLInputButtonElement;
begin
  Doc := WebBrowser1.Document as IHTMLDocument2;

  if Assigned(Doc) then
  begin
    AllElts := Doc.all;
    Elt := AllElts.item(\'mobil\', EmptyParam);

    if Assigned(Elt) then
    begin
      OleCheck(Elt.QueryInterface(IHTMLInputButtonElement, Mobil));
      (Mobil as IHTMLElement).click;
    end;
  end;
end;

procedure TForm1.btnNavigateClick(Sender: TObject);
begin
  WebBrowser1.Navigate(\'sidens navn\', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

end.
Avatar billede nico26 Nybegynder
11. juni 2001 - 11:08 #6
det var jo slet ikke så svært

<html>
<head>
  <title>Html i Delphi</title>
  <script language=\"JavaScript\">

    function mobilClick() {
      alert(\"Du klikkede på mobilknappen\");
    }

  </script>
<head>
<body>
  <h1>Html i Delphi</h1>
  <input type=\"button\" id=\"mobil\" value=\"Mobil\" onClick=\"mobilClick()\"/>
</body>
</html>



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw_TLB, MSHTML_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    btnMobil: TButton;
    btnNavigate: TButton;
    procedure btnMobilClick(Sender: TObject);
    procedure btnNavigateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  ComObj;

{$R *.DFM}

procedure TForm1.btnMobilClick(Sender: TObject);
var
  Doc: IHTMLDocument2;
  AllElts: IHTMLElementCollection;
  Elt: IDispatch;
  Mobil: IHTMLInputButtonElement;
begin
  Doc := WebBrowser1.Document as IHTMLDocument2;

  if Assigned(Doc) then
  begin
    AllElts := Doc.all;
    Elt := AllElts.item(\'mobil\', EmptyParam);

    if Assigned(Elt) then
    begin
      OleCheck(Elt.QueryInterface(IHTMLInputButtonElement, Mobil));
      (Mobil as IHTMLElement).click;
    end;
  end;
end;

procedure TForm1.btnNavigateClick(Sender: TObject);
begin
  WebBrowser1.Navigate(\'sidens navn\', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

end.
Avatar billede fastpoint Nybegynder
11. juni 2001 - 12:11 #7
Ja...letterer kunne det jo ikke have været:)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 21/08/202611:03
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 21/08/202611:08
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »