Einzelnen Beitrag anzeigen

Benutzerbild von Aenogym
Aenogym

Registriert seit: 7. Mär 2004
Ort: Schwerin
1.089 Beiträge
 
Delphi 7 Enterprise
 
#1

twebbrowser: "Nicht posit. Markupzeiger für diesen Vorg

  Alt 6. Jan 2005, 17:13
hi ihr,

ich habe gerade ein komisches problem und rein garnichts dazu im internet gefunden.
auf meinem formular befindet sich eine TWebbrowser-Kompo.

beim ersten sichtbarwerden des formulars bekomme ich eine AV. wenn das formular dass geschlossen und später wieder sichtbar gemacht wird, kommt folgende fehlermeldung:

Zitat:
---------------------------
iceChat
---------------------------
Nicht positionierter Markupzeiger für diesen Vorgang.
---------------------------
OK
---------------------------
mein FormShow-Code:

Delphi-Quellcode:
procedure Tfrm_smilies.FormShow(Sender: TObject);
var range: IHTMLTxtRange;
    i: integer;
begin
  webbrowser1.navigate('about:blank'); //inhalt des webbrowsers "löschen"

  { neuen html code anhängen }
  Range := ((WebBrowser1.Document as IHTMLDocument2).body as
    IHTMLBodyElement).createTextRange;
  Range.collapse(False);

  //für jeden smiley ein <img>
  for i:=0 to frm_main.smilies_list.count-1 do
  begin
    Range.pasteHTML('<a href="ic_smile:'+
                     getword_ds(frm_main.smilies_list[i], ',', 0)+
                     '"><img border="1" src="'+extractfilepath(paramstr(0))+'smilies\'+
                     getword_ds(frm_main.smilies_list[i], ',', 1)+'" title="'+
                     getword_ds(frm_main.smilies_list[i], ',', 0)+'"></a> ');
  end;
end;
die funktionen getword_ds im parameter, der bei range.pasteHTML() angegeben wurde, funktionieren einwandfrei und geben einen normalen string zurück (überprüft mit debugger).

wisst ihr, wie ich das in den griff bekommen kann?

danke,
Aenogym
Steffen Rieke
Was nicht buzzt, wird buzzend gemacht!
http://blog.base-records.de
http://www.base-records.de
  Mit Zitat antworten Zitat