webbrowser v delphi

audiotrack · Napísal **audiotrack**: 19.01.2007 19:23

ako zistím v delphi kedy už je načítana vo webbrowseri stránka? našiel som property ondownloadcomplete ale nejak ju neviem použiť :cry:

javo · Napísal **javo**: 19.01.2007 19:49

mno vyskusal som to a u mna to pracuje taky akosi divne ,
osetril som tuu udalost takto :

Kód:

showmessage('nacitanie prebehlo uspesne');

po nacitani prvej stranky to funguje ale potom ked to chcem pouzit este raz tak spravu ukaze uz pred nacitanim , newim preco to robi , tebe to nejde vobec?

audiotrack · Napísal autor témy **audiotrack**: 19.01.2007 19:52

napíš mi prosímťa celý zdroják..

javo · Napísal **javo**: 19.01.2007 19:57

zdrojak je jednoduchy , normalny , mne to funguje ale ako pisem iba na prvej stranke

Kód:

procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
showmessage('Stranka nacitana');
end;

audiotrack · Napísal autor témy **audiotrack**: 19.01.2007 19:59

hmm.. no dík.. asi sa s tým budem musieť pohrať ale už sa mi nechce. Ale dík za ochotu, ak má ešte niekto iné nápady (a riešenia v čom je problém) tak píšte

audiotrack · Napísal autor témy **audiotrack**: 21.01.2007 10:06

tak som to vyriešil, a mám nový problém: ako nasimulujem v tom webbrowseri kliknutie na odkaz/button? (aj keď mám dojem že tu mi nikto nepomôže)

LordMMX · Napísal **LordMMX**: 12.05.2007 2:18

"Tady máš synku"... nedokočený LordMMX Minibrowser....

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, Menus, StdCtrls, ExtCtrls, ComCtrls, ShellAPI;
type
TForm1 = class(TForm)
Edit1: TEdit;
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
WebBrowser1: TWebBrowser;
Label1: TLabel;
WebBrowser2: TWebBrowser;
Button1: TButton;
Button2: TButton;
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormActivate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure WebBrowser1DownloadComplete(Sender: TObject);
procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
begin
WebBrowser1.Navigate(Edit1.Text);
Label1.Caption := 'Hľadám stránku, čakajte prosím...'
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Edit1.Width := (Form1.Width - 8);
WebBrowser1.Width := (Form1.Width - 8);
WebBrowser1.Height := (Form1.Height - 118);
Label1.Top := (Form1.Height - 70);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Edit1.Width := (Form1.Width - 8);
WebBrowser1.Width := (Form1.Width - 8);
WebBrowser1.Height := (Form1.Height - 118);
Label1.Top := (Form1.Height - 70);
end;
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
Label1.Caption := 'Stránka úspešne načítaná.'
end;
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var location : string;
begin
ppDisp := WebBrowser1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Stop;
Label1.Caption := 'Zastavené.'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Refresh;
Label1.Caption := 'Obnovujem, čakajte prosím...'
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
close;
end;
end.

audiotrack · Napísal autor témy **audiotrack**: 12.05.2007 12:50

1) niekedy si pozri aj dátum založenia témy, toto je už staré
2) zdrojáky dávaj do code, takto je to neprehladné
3) nepomohlo, keby si čítal posledný môj post tak by si vedel že chcem simulovať kliknutie bez pohybu myšky a to tam nikde nemáš. Takisto ten downloadcomplete tam nerieši ten problém ktorý sme spomínal (funguje iba pri prvom načítaní)
4) nenazývaj ma synku, myslím že v programovaní sa viem trošku viac obracať, keď som videl ten tvoj zdroják tak som mal dosť. Pri zmene rozmerov nastavovať pozície komponentov? A čo ak ich bude 200? také že alignment a anchors ti nič nehovorí?

LordMMX · Napísal **LordMMX**: 12.05.2007 16:18

audiotrack píše:

1) niekedy si pozri aj dátum založenia témy, toto je už staré
2) zdrojáky dávaj do code, takto je to neprehladné
3) nepomohlo, keby si čítal posledný môj post tak by si vedel že chcem simulovať kliknutie bez pohybu myšky a to tam nikde nemáš. Takisto ten downloadcomplete tam nerieši ten problém ktorý sme spomínal (funguje iba pri prvom načítaní)
4) nenazývaj ma synku, myslím že v programovaní sa viem trošku viac obracať, keď som videl ten tvoj zdroják tak som mal dosť. Pri zmene rozmerov nastavovať pozície komponentov? A čo ak ich bude 200? také že alignment a anchors ti nič nehovorí?

ušlo ti asi že som napísal "nedokončený"... a naviac ako som s tým začal tak som s tým skončil... čiže ak je to BAD tak je to BAD s tým už nič nenarobím... len som chcel pomôcť

martin90 · Napísal **martin90**: 13.05.2007 22:00

aj by som skusil pomoct ale mam uz len Delphi 7 Personal a tam neni komponenta WebBrowser :cry:

. By som musel zase nainstalovat Delphi 2005 Architect . Ale sak skusim

audiotrack · Napísal autor témy **audiotrack**: 13.05.2007 23:05

delphi 7 enterprise webbrowser má

martin90 · Napísal **martin90**: 14.05.2007 13:44

ale ja mam PERSONAL. A enterprise je zadara??? kde ho zozeniem?

audiotrack · Napísal autor témy **audiotrack**: 14.05.2007 17:06

na nekomerčné účely hej

martin90 · Napísal **martin90**: 14.05.2007 21:53

no stiahol som si to Enterprise z codegear.com a neviem serial. a nijaky nepasuje. Dufam ze som nestiahol Professional :loony:

. kaslat na to budem 2 hodiny cakat kym sa nainstaluje 2005 Architect Edition.

martin90 · Napísal **martin90**: 15.05.2007 14:42

uz som si nainstaloval 2005 Architect a nieco som vyhutal.
skus toto. asi je to to co si chcel. malo by ti to ist :

Kód:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
Label1.Caption := 'Nacitane';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Nacitava sa';
Form1.WebBrowser1.Navigate(edit1.Text);
end;

end.

audiotrack · Napísal autor témy **audiotrack**: 15.05.2007 17:17

nie, keby si pozrel javov post hore, tak tam písal prestne to čo ty

martin90 · Napísal **martin90**: 15.05.2007 19:04

ale je tam jeden rozdiel - ja mam event "OnDocumentComplete" a on ma "OnDownloadComplete". skus tam dat to moje

martin90 · Napísal **martin90**: 19.05.2007 14:22

aj ti to ide?

webbrowser v delphi

Podobné témy