Fehlermeldung mit MHTMLV

[Paulifan1000]

Guten Abend,
Ich habe folgendes Problem

Code: Alles auswählen

procedure TForm1.Button3Click(Sender: TObject);
var str:string;
  sl:Tstringlist;
begin
  if changelog.Top<0 then Changelog.Top:=8
  else Changelog.Top:=-1000;
  if httpgettext('http://minecontrol.funpic.de/changelog.html',sl)
  then
  str:=sl.Text
  else
  str:='<center>Error: Changelog konnte nicht geladen werden!</center>';
  Changelog.LoadFromString(str);
  end;                                       

Sobald wir den Button3 Drücken (Er soll ein MyHTMLViewer Fenster anzeigen) kommt eine Fehlermeldung....

Ich und Komoluna können den Fehler nicht finden
Danke für eure Hilfe im Vorraus

PF1000 und Komoluna

[theo]

Die StringList "sl" createn wäre z.B. eine Idee. Was "changelog" ist weiss man auch nicht, und wie der Fehler heisst ebensowenig.

[Komoluna]

1. Stimmt, das habe ich vergessen... (der Code stammt von mir)

2.

Code: Alles auswählen

Changelog: TMyHTMLViewer;

TMyHTMLViewer ist ein TIpHTMLPanel was um die functionen:

Code: Alles auswählen

 
function loadfromstream(stream:TStream):boolean;
function loadfromfile(path:string):boolean;
function loadfromstring(atext:string):boolean;
 

und einiges mehr erweitert

Komoluna

[Christian]

TIPHTMLPanel hat ja diese Funktionen extra nicht, damit es egal ist welche Quelle das anzuzeigende HTML hat.
Deshalb gibts dann ja TIPFileDataProvider.
Hat den selben Charme wie DataSource z.b.

[Paulifan1000]

Ich hatte es ohne Internet schon am Laufen. jedoch bei Internetverbindung kommst diese Meldung wieder.

Press okay to risk Data corruption
Press abort to kill the Program

[Komoluna]

Hallo Paulifan1000
wir haben vergessen:

Code: Alles auswählen

 
sl:=TStringlist.Create;
...
str:=sl.Text;
...
sl.destroy;
 

(Das projekt ist eine kooperation zwischen mir und Paulifan...