Browser programmieren - Hilfe!

Killi · Beiträge: 299 Win* D6 Prof

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 · Beiträge: 299 Win* D6 Prof

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

markieren

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....

Gast Erhaltene Danke: 1

markieren

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 · Beiträge: 1099 Erhaltene Danke: 2

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

Killi · Beiträge: 299 Win* D6 Prof

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

markieren

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 · Beiträge: 458

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

_________________
hans bist du das ?

Killi · Beiträge: 299 Win* D6 Prof

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

markieren

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.

Gast Erhaltene Danke: 1

probiers mal mit navigate2

inselberg · Beiträge: 458

markieren

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

_________________
hans bist du das ?

fcg · Beiträge: 360 WinXP D3 Prof, D6 Pers

hi

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

fcg

_________________
.: Wer für alles offen ist, kann nicht ganz dicht sein! :.

Killi · Beiträge: 299 Win* D6 Prof

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

jetzt hab ichs mit Navigate2 gemacht:

markieren

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 · Beiträge: 360 WinXP D3 Prof, D6 Pers

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

_________________
.: Wer für alles offen ist, kann nicht ganz dicht sein! :.

olliistmeinname · Beiträge: 59

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

mfg OLLI

_________________
Olliistmeinname und bin da für jede Dame

Killi · Beiträge: 299 Win* D6 Prof

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

" ABer tut nicht...

Steven · Beiträge: 57

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

Killi · Beiträge: 299 Win* D6 Prof

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 · Beiträge: 57

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

Gast Erhaltene Danke: 1

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

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

Steven · Beiträge: 57

läuft den dein internet explorer?

Killi · Beiträge: 299 Win* D6 Prof

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?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme