delphi og html

ewc, jeg kigger lige lidt på det, men lad endelig andre komme til, er ret newbie til delphi.

jeg tror at man skal give edit boxen på html siden et id...men som jeg sagde:

jeg har måske et tip, men jeg vil ikke forvirre jer:)

dvs.. der er sikkert en MEGET bedre måde at gøre dette på

<html>
  <head>
    <title>HTML in Delphi</title>
  </head>
  <body>
    <h1>HTML in Delphi<h1>
    <input type=\"text\" id=\"edit\"/>
  </body>
</html>



unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    wbDoc: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  wbDoc.Navigate(\'d:\\delphi.html\', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
  AllElts: IHTMLElementCollection;
  Text: IHTMLInputTextElement;
begin
  Doc := wbDoc.Document as IHTMLDocument2;

  if Assigned(Doc) then
  begin
    AllElts := Doc.all;
    Text := AllElts.item(\'edit\', EmptyParam) as IHTMLInputTextElement;

    if Assigned(Text) then
      Text.value := \'Hello world\';
  end;
end;

end.

jeg ved ikke lige hvad du mener med random text

hvis du bruger Delphi5 skal SHDocVw_TLB og MSHTML_TLB byttes ud med SHDocVw og MSHtml

den skal kopier en tilfældig tekst in i textboxen

hvor skal den kopiere fra???

det skal være ligesom man kan lave random nr...det kan delphi selv klare...så skal den lave random txt. ellers prøv med tal

nå brothersalsa.dk det ser ud til at den ikke gik...jeg prøver at klare den selv..

ellers tak

brodersalsa har også andet at lave end at hjælpe utålmodige eksperter :)

prøv det her - det er godt nok en underlig funktion - hvad skal du bruge den til???


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    wbDoc: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    function RandomText(Length: Integer): string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.RandomText(Length: Integer): string;
var
  i: Integer;
  s: string;
begin
  s := \'\';
  for i := 1 to Length do
    s := s + Chr(Random(26) + 97);

  Result := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  wbDoc.Navigate(\'d:\\delphi.html\', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
  AllElts: IHTMLElementCollection;
  Text: IHTMLInputTextElement;
begin
  Doc := wbDoc.Document as IHTMLDocument2;

  if Assigned(Doc) then
  begin
    AllElts := Doc.all;
    Text := AllElts.item(\'edit\', EmptyParam) as IHTMLInputTextElement;

    if Assigned(Text) then
      Text.value := RandomText(15);
  end;
end;

end.

jeg prøver den lige....den skal bruges til at lave tilfældige passwords...det passer ind i mit projekt, som jeg er i gang med.

den laver en streng med tegn fra a-z

det kommer lige til at tage lidt tid...skal lige samle skittet..jeg har delphi 5

hmmm.... Den ser rigtig nok ud, men jeg kan ikke få den til at virke:

SHDocVw_TLB og MSHTML_TLB byttes ud med SHDocVw og MSHtml

har jeg ændret...


send et kopi hertil kalpe@ofir.dk

Kan man gøre det samme uden at give editboxen et id? ...bruge name istedet for

og svaret for før er accepteret..det virkede

Jeg tror ikke man, kan søge på name, men jeg er ikke sikker. Finder lige ud af det

functionen er ligeglad, om det er id eller name den får som parameter - så du kan selv vælge

Okay tusind tak