webbrowser i delphi

Der findes et komplet eksempel på en WebBrowser...

Prøv at søge på *web* i dit Borland bibliotek.

MVH abpdk

Jeg har den selv liggende i /Borland/Delphi 5/Demos/CoolSuf...

jeg skal ikke lave en browser.... Det kan jeg godt.

Men et slags updaterings program...jeg skriver at den skal refreshe www.eksperten.dk/nye  eller hvad det hedder 2 gange i timen og hvis jeg vil ændre det til 4 gange i døgnet

Hvis du tager hvad en kode der er i det eksemplem for refresh knappen, og så lægger den kode i en timer-komponent...

Det virker som om du ikke helt selv ved hvad det er man skal gøre.... det du fortæller mig ved jeg allerede:

jeg disse componenter på min form. (jeg tror da nok det er disse der skal bruges)

1 button
1 timer
1 webbrowser
3*editboxe

jeg vil lave et program som jeg kan sætte til at check om der er lavet nogen updateringer på en hjemmeside, men allerede nu sider jeg med et mindre problem:

edit skriver man addressen på hjemmesiden.
denne kode brugte jeg:

edit1:
der skal indtastes hvor mange gange den skal checke om updateringer.

edit2:
på hvor lang tid (for eksempel 4 gange på fire timer..dvs en gang i timen

edit3:
addressen som den skal checke om der er updateret på

Dvs. der skal indtastes addressen...antal gange og på hvor lang tid. Når man trykker på knappen starter processen...

Det er meget enkelt tror jeg, men jeg er først flyttet til delphi for nyligt


takker

Prøv lige at korte dit spørgsmål lidt ned...jeg tror ikke helt jeg har forstået hvad du mener...

MVH abpdk

Der er ingen ?-tegn i dit spørgsmål, så det ser faktisk ud som om du bare vil have den komplette kode...

Jeg vil lave et program der kan dette:

Brugeren (mig) skriver en url
jeg vælger et bestemt antal gange programmet skal updatere siden...dvs. trykke updatere for mig

jeg vælger så på hvor langt tid skal disse updateringer fordeles... dvs. hvis jeg siger at den skal updatere 6 gange og det skal gøres på 60min dvs. 1 gang hver 10min

????????????

Jeg prøver bare at hjælpe dig på vej...Jeg ved hvordan det kan gøres men jeg har ikke tid til at lave programmet for dig...

du kan sætte timerens interval til antal_gange div tid * 60 * 60 * 1000 dvs:

procedure TForm1.Button1.Click(Sender: TObject);
begin
  Timer1.Interval := StrToInt(Edit2.Text) div StrToInt(Edit1.Text) * 60 * 60 * 1000;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  WebBrowser1.Navigate(Edit3.Text, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

en lille rettelse:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval := (StrToInt(Edit2.Text)  * 60 * 60 * 1000) div StrToInt(Edit1.Text);
  Timer1.Enabled := True;
end;

hmmm.... den virkede ikke.. prøv at skrive hele sourcen her på siden så kopiere jeg den

Du skal huske at timerens Enabled-property skal sættes til false i object inspectoren

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval := (StrToInt(Edit2.Text)  * 60 * 60 * 1000) div StrToInt(Edit1.Text);
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  WebBrowser1.Navigate(Edit3.Text, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

end.

der sker ikke noget når jeg trykker på knappen....kan det skyldes at jeg har delphi 5?

du kan sende mig eksemplet her elhamame@ofir.dk

Den virkede....Kan ikke lige se hvad jeg gjorde forkert før... pyt nu kan jeg selv bygge ud på den.

Mange tak
elhamame