TWebBrowser verursacht Fehler bei Ansteuerung

[youuu]

Hi,

Ich habe z.B. auf "Form 2" einen Webbrowser und möchte diesen Refreshen, wenn auf "Form 1" ein Button geklickt wird.

Delphi-Quellcode:

Form2.Webbrowser.Refresh;

funktioniert leider aber nicht, denn ich erhalte jedesmal eine Zugriffsverletzung (Lesen von Adresse 00000388).

Gleiche Fehler auch, wenn ich den Refresh aus einem Thread ansteuern möchte bzw. generell wenn ich den Browser auf Form 2 ansteuern will.

Wieso ist das So? Problem tritt nur mit dem TWebbrowser auf.

[himitsu]

Die Variable "Form2" ist nicht zufällig nil?

Und auf nichtthreadsichere VCL-Komponenten greift man nicht von einem Thread zu. (jedenfalls nicht ohne Synchronize)

[youuu]

Nein Form2 ist nicht nil und im Thread sicher ich das alles durch CriticalSektion ab.

Ich erstelle Form2 allerdings vorher im Form1 und danach will ich Refreshen lassen. Kann es da zur Kollesion kommen?

Delphi-Quellcode:

procedure TTestThread.Execute;
var
  slText: TStringList;
begin
  slText := TStringList.Create;
  try
  CritSektion.Enter;
    try
      frm_Test.Browser.Refresh;
      slText.AddStrings(frm_Test.Browser.HTMLCode);
    except
      on E: Exception do
        Showmessage(E.Message);
    end;
  CritSektion.Leave;
  finally
    FreeAndNil(slText);
  end;
end;

So Sieht der Thread aus, dieser ist auch im Form2 gespeichert.
Ist erst einmal nur zum testen gedacht.

[himitsu]

Und woher kennt die VCL deine CriticalSection?

Garnicht, also greifst du dennoch ungesichert darauf zu, denn der VCL-Thread (Hauptthread) kann dennoch gleichzeitig arbeiten.


Weder der TWebBrowser noch Showmessage sind threadsicher.

[youuu]

Zitat:

Und woher kennt die VCL deine CriticalSection?

meinst du das?

Delphi-Quellcode:

constructor TTestThread.Create;
Begin
  inherited create(true);
  CritSektion := TCriticalSection.create;
  FreeOnTerminate := True;
End;

destructor TTestThread.Destroy;
begin
  FreeAndNil(CritSektion);
  inherited;
end;

[haentschman]

Hallo...

ich verstehe das so:
1. Form1 (Mainform) erzeugt Form2 (mit Webbrowser)
2. Aufruf von Form2.Webbrowser.Refresh aus Form1 schlägt fehl.
3. Form1 erzeugt Thread
4. Aufruf von Webbrowser.Refresh aus dem Thread schlägt fehl.

soweit korrekt ?

[youuu]

Zitat:

1. Form1 (Mainform) erzeugt Form2 (mit Webbrowser)
2. Aufruf von Form2.Webbrowser.Refresh aus Form1 schlägt fehl.
3. Form1 erzeugt Thread
4. Aufruf von Webbrowser.Refresh aus dem Thread schlägt fehl.

Fast.

1 und 2 ist Versuch 1

1 - 3 - 4 ist Versuch 2

Beide Versuche gleiche Ergebnis

[haentschman]

dann bleiben wir mal bei Versuch 1...
Du mußt 2 Dinge prüfen:
- existiert Form2 (erzeugt, automatisch oder manuell)
- existiert der Webbrowser (erzeugt, automatisch oder manuell)

alles andere ist rumdocktern an den Sympthomen. Bevor die o.g. 2 Punkte nicht klar sind brauchst du nix anderes probieren.

[youuu]

Beides ist vorhanden, denn das Fenster ist offen und ich kann den Webbrowser + aufgerufene Seite sehen.

[haentschman]

Dann hast du ein wundersames Delphi... stelle mal das Projekt rein.