Entwickler-Ecke

Internet / Netzwerk - Browser programmieren - Hilfe!


Killi - Do 12.06.03 12:38
Titel: Browser programmieren - Hilfe!
Hi!

Ich hab noch keine Ahnung wie ich einen eigenen Brower programmieren soll, aber ich weiß dass es dafür eine Komponente gibt (ich benutze D6) - und zwar die TWebBrowser Kompo....jetzt meine Frage: Kann mir jemand helfen bei den wichtigsten Dingen?
Man müsste oben die URL eingeben können, hinspringen und drucken usw können...
kann mir jmd helfen?


Killi - Do 12.06.03 13:30

also - hab mal rumprobiert und nat. gleich ein paar probleme....wenn ich auf meinen Button klicke dann soll er das hier machen:

Quelltext
1:
        Browser.Navigate(EURL.Text);                    

warum macht ers nicht? Er lädt nur Seiten die ich schonmal besucht habe, d.h. Offline....will aber ne Verbindung aufbauen - und offline ist auf FALSE....


Anonymous - Do 12.06.03 21:54


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Webbrowser1.Navigate(Edit1.Text);
end;

end.



So funktioniert es....


toms - Do 12.06.03 22:12

Guck mal hier:
http://www.delphi-forum.de/viewtopic.php?t=10521


Killi - Fr 13.06.03 08:25

Sagt mal...ich hab doch extra geschrieben dass mein

Quelltext
1:
2:
3:
4:
procedure TForm1.Button1Click(Sender: TObject);
begin
        WebBrowser1.Navigate('www.audi.de'); //o.auch Edit1.Text, geht beides net
end;
NICHT funzt...das wundert mich ja gerade, weil alle anderen anscheinend keine Probleme damit haben


inselberg - Fr 13.06.03 18:19

darum solltest du ja auch nicht dein code schnipsel posten sondern das komplette project ;)

denn wenn ich es so übernehme wirds bei mir lauf ... jede wette

kannst mich aber gerne auch an msgen ... irgendwas der untigen wirst du ja sicher haben


Killi - Fr 13.06.03 23:25

hier der code - ist genau das gleiche wie oben steht und ANSCHEINEND tut!!! Habe Delphi 6 mit Win98

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
        WebBrowser1.Navigate('www.audi.de');
end;

end.


Anonymous - Sa 14.06.03 00:03

probiers mal mit navigate2


inselberg - Sa 14.06.03 00:04


Quelltext
1:
2:
3:
4:
5:
darum solltest du ja auch nicht dein code schnipsel posten sondern das komplette project  

denn wenn ich es so übernehme wirds bei mir lauf ... jede wette 

kannst mich aber gerne auch an msgen ... irgendwas der untigen wirst du ja sicher haben


ich glaub wir sind in einer raum-zeit-schleife gefangen


fcg - Sa 14.06.03 12:59

hi

setzt doch einfach mal die Offline Property des Webbrowser auf false ;-)

fcg


Killi - Sa 14.06.03 13:22

@fcg: hättest du ALLES gelesen, hättest du gemerkt dass sie schon auf FALSE steht!!!

jetzt hab ichs mit Navigate2 gemacht:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
procedure TForm1.Button1Click(Sender: TObject);
var
        Flag: OleVariant;
        adr: OleVariant;
begin
        adr:= 'www.audi.de';
        Flag := 2;
        WebBrowser1.Navigate2(adr, Flag);
end;

tut aber trotzdem nich....zuerst kommt "Aktion abgebrochen" und wenn ich nochmals klicke kommt "Die Seite kann nicht angezeigt werden".....


fcg - Sa 14.06.03 13:32

oh sorry, habe ich übersehen... :oops:


olliistmeinname - Sa 14.06.03 13:36

versuch mal ein http:// vor der adresse zu setzen.


mfg OLLI


Killi - Sa 14.06.03 13:47

tut auch nicht aber war ne gute Idee...hab schon gedacht "wenns das jetzt war......grml :roll: " ABer tut nicht...


Steven - So 15.06.03 02:22

welche delphi version benutzt du?
hier ist ein beispiel
[url]http://www.fusshoeller.com/webbrowser.rar[/url]


Killi - So 15.06.03 20:11

Ich benutze Delphi6 wie schonmal geschrieben...und das Bsp. ist ja echt schön, sieht haargenau aus wie mein Projekt, aber es kommt immer das gleiche! Aktion abgebrochen und Seite kann nicht angezeigt werden!
Liegts evtl. am Win98???
Tat das Bsp bei dir?


Steven - So 15.06.03 20:33

welche browserversion hast du drauf?
das beispiel funktioniert bei mir...
du kannst mir ja mal dein beispiel schicken...
an hodah@web.de


Anonymous - So 15.06.03 20:40

das liegt an deinen real internet explorer einstellungen....



die twebbrowser kombo greift auf deine falschen einstellungen vom ie zurück....


Steven - So 15.06.03 21:30

läuft den dein internet explorer?


Killi - Mo 16.06.03 22:31

Hi!
Hä??? Welche EInstellungen? Ja, mein IE tut - und ich hab die 6er Version drauf!
Habs heute in de rArbeit nachprogrammiert - tut alles wunderbar! Wieso denn bei mir daheim nicht??? Liegts wirklich nicht an Win98? Wenn nicht - dann...:WELCHE Einstellungen?