Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi TWebBrowser Login funtz net (php) (https://www.delphipraxis.net/10050-twebbrowser-login-funtz-net-php.html)

EvilDragon 10. Okt 2003 12:57


TWebBrowser Login funtz net (php)
 
also, ich rufe eine Datei über die TWebBrowser komponente auf, es handelt sich um ein php-loginscript... nahc dem eingeben der logindaten und absenden bin ich aber nicht eingeloggt... warum???

villeicht weil kein cookie erstellt wird wie eigentlich oder muss man was bestimmtes einstellen???

CalganX 10. Okt 2003 13:21

Re: TWebBrowser Login funtz net (php)
 
Hi,
vielleicht drückst du immer <ENTER> um die Daten abzusenden. Versuch's im Zweifelsfalle mal mit einem Klick. ;)

Chris

EvilDragon 10. Okt 2003 13:35

Re: TWebBrowser Login funtz net (php)
 
funtz auch net... wenn ich die datei über den IE aufrufe klappt alles nur nicht wenn ich es über delphiprogramm nutze

EvilDragon 10. Okt 2003 14:22

Re: TWebBrowser Login funtz net (php)
 
also, im TWebBrowser ist man angemeldet, aber es öffnet sich ein popup in dem man beim ie auch angemeldet ist, aber wenn ich jetzt men programm nehme mich anmelde bin ich im popup nicht angemeldet (ist echtes IE fenster das popup)

KyroxX 10. Okt 2003 14:34

Re: TWebBrowser Login funtz net (php)
 
Hmm wie kann man eigentlich sich öffnende popups umleiten und in nem andren TWebBrowser anzeigen?

EvilDragon 10. Okt 2003 16:25

Re: TWebBrowser Login funtz net (php)
 
SO, hab hier mal eben aus meinem proßen prog ein kleines gemacht da mit man mal sehen kann was vielleicht falsch seien könnte...

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw, StdCtrls, ExtCtrls, ActnList, ImgList, ComCtrls,
  Menus, ToolWin;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure WebBrowser1TitleChange(Sender: TObject;
      const Text: WideString);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    URL: String;
    Einloggen: String
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.WebBrowser1TitleChange(Sender: TObject;
  const Text: WideString);
begin
  Form1.Caption := 'MyBrowser - '+Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  URL := 'http://localhost/messenger/';
  Einloggen := 'messi_login.php';
  URL := Form1.URL + Einloggen;
  WebBrowser1.Navigate(URL);
end;

end.

EvilDragon 11. Okt 2003 10:39

Re: TWebBrowser Login funtz net (php)
 
Liste der Anhänge anzeigen (Anzahl: 1)
Weiß keiner ne lösung *vorsichtig hochschieb*

hier mal nen webbrowser den ich gefunden hab (einfacher) bei dem das geht, was bei mir nicht funtz vielleicht kommt ja dann jemand weiter

Edit:
hat sich erledigt hab den fehler.... *schäm*


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:37 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz