Open HTML-File ?

[fadz]

hi,
imma wenn ich nne html file oda sowas mit meinem delip7 in nem memo einlesn will, erscheint im memo immer nur: "ÿþ<"

hier der code:

Delphi-Quellcode:

var 
  StrList: TStringList;
begin
StrList:= TStringList.Create; 
StrList.LoadFromFile('X:\LineAge2 C3\OFFICIAL SERVER\ProjectC2-Beta3-Final\html\abel001.htm');
memo1.Lines:=strlist;

hab auch schon loadfromfile ect. probiert, kann mir jemand helfen ?

thx

[Luckie]

Du weißt dem Memo ja auch das Objekt zu.

Delphi-Quellcode:

memo1.Lines:=strlist.Strings;

Aber warum nimmst du nicht direkt Methode LoadFromFile von TMemo.Lines?

Oder:

Delphi-Quellcode:

memo1.Lines.Assign(strList.Lines);

[Bowler]

Du musst die Strings, die in deiner Stringlist stehen mittles Lines.AddStrings() zum Memo hinzufügen. Versuche mal folgendes:

Delphi-Quellcode:

var 
  StrList: TStringList; 
begin 
StrList:= TStringList.Create; 
StrList.LoadFromFile('X:\LineAge2 C3\OFFICIAL SERVER\ProjectC2-Beta3-Final\html\abel001.htm'); 
memo1.Lines.AddStrings(strlist);

[fylo]

oder es liegt an deiner schlechten Rechtschreibung... :wink: (ist aber nicht böde gemeint!)

versuch doch

Delphi-Quellcode:

Memo1.Lines.LoadFromFile('c:\pfad\zu\meiner\datei.html');

[fadz]

ich hab alle eure tipps getestetn, und keiner geht ... :(



ed: habe mir die html files grade mal angeguckt, im hexeditor sind das die 3 anfangs buchs´taben/werte ... was nun ?;)

[BenjaminH]

Zitat:

Zitat von fadz

ich hab alle eure tipps getestetn, und keiner geht ... :(

Was für Fehler gibt es denn?
Bei mir funktioniert der letzte auf jeden Fall, den Rest hab ich nicht getestet!

[marabu]

Sieht für mich so aus, als ob da UTF-8 Daten in ein Memo geladen werden - ohne sie vorher nach ANSI zu konvertieren...

Delphi-Quellcode:

var 
  sl: TStringList; 
begin 
  sl := TStringList.Create; 
  sl.LoadFromFile('X:\LineAge2 C3\OFFICIAL SERVER\ProjectC2-Beta3-Final\html\abel001.htm'); 
  memo1.Lines.Text := Utf8Decode(sl.Text);
  sl.Free;
end;

Grüße vom marabu

[fadz]

ich hab mir die datei eben mal im hex editor angeguckt, jede 2. zahl besteht aus einr 00 dadurch wird der lese vorgang scheinbar abgebrochen, gibts für sowas nen code der aus ner datei diese stellen raushaut ?

[marabu]

Jedes zweite Byte ein #0? Dann handelt es sich um Unicode UTF-16. Du musst dann eine WideString nach AnsiString Konvertierung durchführen.

marabu

Nachtrag: Eventuell ist dein Problem schon mal in diesem thread behandelt worden. Da hatte ich auch ein Stück Code eingestellt.

[scp]

Sollte das tatsächlich der Fall sein, das es sich um UTF-16 handelt, würde ich lieber zu TWideStringList greifen, die bei den TNT Unicode Controls oder in der JCL dabei ist.
Dies sorgt für eine korrekte Umwandlung bzw. Darstellung.