Entwickler-Ecke :: Thema anzeigen

s0xtech - Fr 03.08.07 03:23
Titel: TWebBrowser hilfe

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:

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

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 - Fr 03.08.07 03:28
Titel: Re: TWebBrowser hilfe

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 - Fr 03.08.07 04:35

[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 - Fr 03.08.07 06:43

Wäre vieleicht nicht schlecht, wenn Du :wink: die Browserkomponente aufs Formular setzen würdest.

s0xtech - Fr 03.08.07 08:40

wie mach ich das denn ??

stigge - Fr 03.08.07 10:41

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

s0xtech - Fr 03.08.07 13:15

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 - 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 - Fr 03.08.07 14:01

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

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 - Fr 03.08.07 14:26

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

pigfacejoe - 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 - Sa 04.08.07 13:14

hab schon alles hingekriegt