Einzelnen Beitrag anzeigen

youuu

Registriert seit: 2. Sep 2008
Ort: Kleve
822 Beiträge
 
Delphi 2010 Professional
 
#3

AW: TWebBrowser verursacht Fehler bei Ansteuerung

  Alt 8. Apr 2012, 16:39
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.
Steven

Geändert von youuu ( 8. Apr 2012 um 16:41 Uhr)
  Mit Zitat antworten Zitat