Hallo zusammen,

ich habe mehrere eigene Systeme mit einer API, wo ich mich über ein Programm anmelden möchte und einen entsprechenden Token bekomme. Das holen des Token u.s.w. funktioniert. Ich habe nur ein Problem mit dem TWebbrowser. Die Komponente TWebbrowser benutze ich, um mich an den Systemen zu authentifizieren, geht leider nicht anders. Über den Login speichere ich mir den Token für das jeweilige System.Nun zum eigentlichen Problem.

Bei jeder Authentifizierung wird eine einzelne Form mit der Komponente TWebbrowser aufgerufen. Beim ersten Aufruf funktioniert noch alles wunderbar. Nur beim zweiten Aufruf bekomme ich eine Access violation wenn ich Webbrowser1.Navigate('http://<adresse>'); aufrufe. Dieser Beitrag bei Expert-Exchange beschreibt vom Symthom her genau mein Problem. Leider funktioniert aber der Aufruf Webbrowser1.Destroy nur beim ersten Schliessen der Form. Der zweite Aufruf der Form funktioniert einwandfrei mit dem entsprechenden Login. Beim dritten Aufruf habe ich wieder eine Access Violation in der Funktion Navigate von TWebbrowser.

Die Form mit der Komponente TWebbrowser wird zur Laufzeit so erstellt :

markieren

Delphi-Quellcode:

LoginWindow := TForm2.Create(nil);
try
  { Den Login durchführen }
finally
  LoginWindow.Free;
end;

Kennt jemand das Problem ?

Mumm create Nil ist nicht gut, ordne das wenigstens der application zu!

Alles was mit MS zu tun hat macht vieles mit cashing vielleicht löst die application Zuweisung schon dein Problem

Was passiert wenn du nicht jedesmal eine neue Instanz deines Formulars erzeugst sondern immer die gleiche Instanz?

Zitat von arnof:

Mumm create Nil ist nicht gut, ordne das wenigstens der application zu!

Alles was mit MS zu tun hat macht vieles mit cashing vielleicht löst die application Zuweisung schon dein Problem

Bei Self habe ich den gleichen Effekt.

Zitat von Bernhard Geyer:

Was passiert wenn du nicht jedesmal eine neue Instanz deines Formulars erzeugst sondern immer die gleiche Instanz?

Dann nimmt der TWebbrowser die neue übergebene URL nicht an.

Kann ich die Komponente TWebbrowser irgendwie zurücksetzen auf den Status nachdem das Formular das erste Mal erstellt wurde ?

Hallo,

man ruft nie Destroy direkt auf!
Benutze statt dessen Free,
besser noch FreeAndNil,
Das findet dann auch Fehler,
wenn du nach dem Free noch auf die Komponente zugreifen solltest.

Das Nil als Parameter ist OK.

Du solltest die LoginWindow-Variable Aubergine auf jeden Fall
als lokale Variable benutzen, nicht dass du das Fenster zweimal aufrufst,
dann würde die erste Freigabe den Pointer zerschießen.

Heiko

Hattest Du schon LoginWindow.Release statt LoginWindow.Free probiert?

Hallo zusammen,

danke erstmal für die zahlreichen Tipps. Leider hat bis jetzt kein Tipp geholfen. Sobald das Fenster das zweite und oder das dritte mal geöffnet wird, wird beim Aufruf von Webbrowser1.Navigate die Access Violation gemeldet.

Was mich ein wenig verwundert, wenn ich das Programm aus der IDE ausführe, wird die Access viloation angezeigt. Wenn das Programm außerhalb der IDE gestartet wird, dann wird keine Fehlermeldung angezeigt. Das Ergebnis ist aber beides Mal das gleiche. Der ermittelte Token aus der LoginForm wird nicht gespeichert.

Warum hast du in der Form überhaupt ein Webbrowser1.Destroy; stehen?
Das hat dort überhaupt nichts zu suchen.

Auch nicht Webbrowser1.Free; .

Mach doch mal ein größeres Beispiel.

Ich benutze regelmäßig TWebbrowser und erzeuge die immer wieder (das ganze Fenster) und habe dort keinerlei Probleme!

Zitat von Sir Rufo:

Warum hast du in der Form überhaupt ein Webbrowser1.Destroy; stehen?
Das hat dort überhaupt nichts zu suchen.

Auch nicht Webbrowser1.Free; .

Hast Du meinen verlinkten Artikel aus dem Beitrag #1 gelesen ? Deshalb habe ich das Destroy und Free eingebaut. Aber auch wenn ich es weglasse funktioniert es nicht und es gibt die obenstehende Fehlermeldung.

Zitat von arnof:

Mach doch mal ein größeres Beispiel. Ich benutze regelmäßig TWebbrowser und erzeuge die immer wieder (das ganze Fenster) und habe dort keinerlei Probleme!

Muss ich mal schauen, ob ich das ganze in ein entsprechendes Beispiel packen kann, da es sich ja um eigene Systeme handelt.