TWebBrowser hilfe

s0xtech · Hält's aus hier Beiträge: 14

hey

ich bin neu hier. ich bin auch ganz neu in der sprache. Ich möchte halt gern ein formular machen, womit ich ein download auf meiner homepage einfüge. zudem davor kommt der login darum gehts im moment

ich lese ständig was vom TWebBrowser find nix dazu, weis ihn nicht anzuwenden. Wenn ich das hier mache:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.loginClick(Sender: TObject);
begin
Webbrowser1.Navigate('http://sound-base.extra.hu/admin/login-formular.php');
WebBrowser1.OleObject.document.forms.item(0).elements.item('name').value:=name.Text;
WebBrowser1.OleObject.document.forms.item(0).elements.item('passwort').value:=pass.Text;
end;

ich kanns nicht compilieren weil irgendwo nen fehler ist. in der ersten zeile also bei Webbrowser1.Navigate.
ich find da nix zu.

kann mir da jemand helfen ??

das ist mein bisheriger quelltext

markieren

Delphi-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:
34:
35:
36:
37:

unit sb;

interface

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

type
  TForm1 = class(TForm)
    name: TEdit;
    pass: TEdit;
    Username: TStaticText;
    Pwtext: TStaticText;
    login: TBitBtn;
    procedure loginClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.loginClick(Sender: TObject);
begin
Webbrowser1.Navigate('http://sound-base.extra.hu/admin/login-formular.php');
WebBrowser1.OleObject.document.forms.item(0).elements.item('name').value:=name.Text;
WebBrowser1.OleObject.document.forms.item(0).elements.item('passwort').value:=pass.Text;
end;

end.

falls das jemanden hilft

ASO ich habe Delphi 6

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

Danniolo · Beiträge: 693

Hallo und Herzlich Willkommen als erstes! :welcome:

s0xtech hat folgendes geschrieben:

ich kanns nicht compilieren weil irgendwo nen fehler ist. in der ersten zeile also bei Webbrowser1.Navigate.
ich find da nix zu.

Wäre gut zu wissen, um was für einen Fehler es sich da handelt. Schreib doch am besten mal, was dir der Compiler da anzeigt.

s0xtech · Hält's aus hier Beiträge: 14

[Fehler] sb.pas(32): Undefinierter Bezeichner: 'Webbrowser1'
[Fehler] sb.pas(32): Operator oder Semikolon fehlt
[Fehler] sb.pas(32): Undefinierter Bezeichner: 'i'
[Fehler] sb.pas(33): Operator oder Semikolon fehlt
[Fehler] sb.pas(33): Operator oder Semikolon fehlt
[Fehler] sb.pas(33): Operator oder Semikolon fehlt
[Fehler] sb.pas(33): Operator oder Semikolon fehlt
[Fehler] sb.pas(34): Operator oder Semikolon fehlt
[Fehler] sb.pas(34): Operator oder Semikolon fehlt
[Fehler] sb.pas(34): Operator oder Semikolon fehlt
[Fehler] sb.pas(34): Operator oder Semikolon fehlt
[Fataler Fehler] Project2.dpr(5): Verwendete Unit 'sb.pas' kann nicht compiliert werden

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Wäre vieleicht nicht schlecht, wenn Du :wink:

die Browserkomponente aufs Formular setzen würdest.

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

s0xtech · Hält's aus hier Beiträge: 14

wie mach ich das denn ??

stigge · Beiträge: 426 WinXP Delphi 2007

Im Objektinspector (der Kasten rechts unten) nach einem Element namens TWebbrowser suchen, anklicken, irgendwo aufs Formular klicken und fertig :wink:

s0xtech · Hält's aus hier Beiträge: 14

hmmm was muss ich denn auswegählt haben... bei Form1 und bei login find ich nix davon

wie gesagt ich hab den Borland Delphi 6 editor... ist TWebBrowser auf der 6 nicht vertreten ??

##edit##

soll ich bei type unten hinsetzen

Webbrowser1 : TWebBrowser;
??

pigfacejoe · Verfasst: Fr 03.08.07 13:34

Ne, der TWebBrowser ist eine ActiveX Komponenete. Die fügst du so hinzu:

Komponente-> ActiveX importieren. In der Liste gibts die Microsoft Internet Controls (oder so ähnlich^^). Die wählst du aus und klickst auf Installieren. Dann befindet sich die Komponenete TWebBrowser in der ActiveX Sparte!

Viel Glück!

Gruss
Pigface Joe

s0xtech · Hält's aus hier Beiträge: 14

danke

##EDIT##

nächstes prob: wenn ich starten will das ganze bricht der ab und kehrt zum programm zurück...
eine auflistug was ich getan hab. ich hab ein webbrowser aufs formular geschoben.
und benannt usw.

compilieren tut der nicht

markieren

Delphi-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:
34:
35:
36:
37:
38:
39:
40:
41:
42:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, OleCtrls, SHDocVw_TLB, ScktComp;

type
  TForm4 = class(TForm)
    name: TEdit;
    pass: TEdit;
    Username: TStaticText;
    Passwort: TStaticText;
    login: TBitBtn;
    WebBrowser1: TWebBrowser;
    procedure loginClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}



procedure TForm4.loginClick(Sender: TObject);
begin
WebBrowser1.Navigate('http://sound-base.extra.hu/admin/login-formular.php');
WebBrowser1.OleObject.document.forms.item(0).elements.item('name').value:=name.Text;
WebBrowser1.OleObject.document.forms.item(0).elements.item('passwort').value:=pass.Text;
WebBrowser1.OleObject.document.forms.item(0).submit;
end;


end.

was ich seh nur grau mehr nicht

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

Danniolo · Beiträge: 693

Hm, naja.. wie auch das letzte mal wäre es jetzt gut zu wissen, welche Fehlermeldungen ausgegeben werden. :mrgreen:

pigfacejoe · Verfasst: Fr 03.08.07 19:04

Ich versteh nicht ganz wie er nicht compilieren kann und du grau siehst. Compiliert er oder nicht?

Falls ja:
Setz einfach mal das nach dem WebbRowser1.Navigate(bla) als Kommentar mit (* und am ende dann *)
Und dann schauste mal ob er überhaupt auf diese Seite kommt und sie anzeigt.

Falls nein:
Bitte die Fehlermeldungen vom Compiler hier posten!

Gruss
PigfaceJoe

s0xtech · Hält's aus hier Beiträge: 14

hab schon alles hingekriegt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme