[TStringList] Problem mit einer Datei (bricht zu früh ab)

[xZise]

Ich habe folgende Datei (aus dem Editor kopiert):

GBX BUCR 0 $½  0 $) 0 $† 0 $ 0 $æ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‚
 € 7PUDKCVe4OE64UDv8LH9tfCgBa @ Stadium € xZise
hjjghhgklk €? @ Day @ @ Nadeo  â <header type="challenge" version="TMc.5" exever="0.1.7.5"><ident uid="7PUDKCVe4OE64UDv8LH9tfCgBa" name="hjjghhgklk" author="xZise"/><desc envir="Stadium" mood="Day" type="Race" nblaps="0" price="386" /><times bronze="-1" silver="-1" gold="-1" authortime="-1" authorscore="0"/><deps><dep file="Any\Advertisement\SignRight.bik"/><dep file="Any\Advertisement\SignUp.bik"/><dep file="Any\Advertisement\SignWarning.bik"/><dep file="Any\Advertisement\SignWrongWay.bik"/><dep file="Any\Advertisement\TMSmallExit.bik"/><dep file="Any\Advertisement\Dynamic Ad1.dds"/><dep file="Any\Advertisement\Dynamic Ad2.dds"/><dep file="Any\Advertisement\Dynamic Ad3.dds"/><dep file="Any\Advertisement\pfeil_links.bik"/><dep file="Any\Advertisement\SignLeft.bik"/><dep file="Any\Advertisement\SignDown.bik"/><dep file="Any\Advertisement\PressForward.bik"/><dep file="Any\Advertisement\GamesserverAnim.bik"/><dep file="Any\Advertisement\Gamesserver.dds"/><dep file="Any\Advertisement\FullSpeed.bik"/></deps></header> | 2 
0 $ ÿ) 0 $
@
À$ l 
ÞÊúJ ÀOÀ $h
*
À $)
ˆ
 é -] Í^ `ê¤l
 0 $PIKSš€?y ÍP
} )< J Ü
® mÍ|qÀp}
\
^ €@ 7PUDKCVe4OE64UDv8LH9tfCgBaD @ StadiumY
€d
xZise
T
hjjghhgklkQ
@cDayM$@x
dNadeo T
ì I
a+`

@(t
PlatformWallPub2 € ]@h $ \1mP Any\Advertisement\SignRight.bii h
€7S+@(@
œ *A
7B
Up45
(4
I +y!74
Warning4I
(H
@,I
"8H
rongWay4M
(L
h9 ˜TMSmallExi5(H
�N*4äDynamic Ad1.ddsp?,i(I
t I
24I

(H
lU à(•34I
(I
.”|
,M(µ t
Lpfeil_links41(I

.I
7ƒLef5%(=
 <

Down4}(=
.<
4  PressForward4M
(M
.M
%3ÌGamesserverAnim4Y
(Y
.X
4)X
4y(I
.H
4ÀFullSpee0è^@0p LoopStart„,|l—È´RoadMainSlopeStrat¡ 
 �' @0N
Tov
C�@DDI @|Ð
GrassClip 

À? !0,É"Ùæ$Þ %¸Ì\( &0 $ÿÿÿÿ
ÞÊú

Aus dieser Datei wollte ich die Pfade herausfiltern:

<dep file="Any\Advertisement\SignRight.bik"/><dep file="Any\Advertisement\SignUp.bik"/><dep file="Any\Advertisement\SignWarning.bik"/><dep file="Any\Advertisement\SignWrongWay.bik"/><dep file="Any\Advertisement\TMSmallExit.bik"/><dep file="Any\Advertisement\Dynamic Ad1.dds"/><dep file="Any\Advertisement\Dynamic Ad2.dds"/><dep file="Any\Advertisement\Dynamic Ad3.dds"/><dep file="Any\Advertisement\pfeil_links.bik"/><dep file="Any\Advertisement\SignLeft.bik"/><dep file="Any\Advertisement\SignDown.bik"/><dep file="Any\Advertisement\PressForward.bik"/><dep file="Any\Advertisement\GamesserverAnim.bik"/><dep file="Any\Advertisement\Gamesserver.dds"/><dep file="Any\Advertisement\FullSpeed.bik"/>

Dazu habe ich mir folgenden Code geschrieben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  slTrack : TStringList;
begin
  if odTrack.Execute then begin
    slTrack := TStringList.Create;
    slTrack.LoadFromFile(odTrack.FileName);
    {...}
  end;
end;

Ergebnis ist:

Zitat:

slTrack[0] = 'GBX'#6
slTrack[1] = Delphi exception EStringListError at $629F949

Ich habe die Datei mal angehängt, damit ihr sie euch mal angucken könnt!

[mkinzler]

Es scheint so als ob .loadFromFile ein EOF erkennt.

[xZise]

Könntest du sagen was ein EOF ist?

(Ich tippe mal auf "End of File"...)

[mkinzler]

Zitat von xZise:

Könntest du sagen was ein EOF ist?

(Ich tippe mal auf "End of File"...)

Ja.

[xZise]

Und wie kann ich es denn öfnfnen, wie der Editor? Der hat es ja immerhin geschafft

[mkinzler]

Versuch mal die datei als Binärdatei zu behandeln und lade sie per Stream oder in einen Buffer.

[Zacherl]

Genau ... eine Binärdatei sollte man nicht als Strings laden. Ein File oder MemoryStream dürfte das Richtige sein.

Florian

[xZise]

Okay... Ich habe es so gemacht, bekomme aber eine nette AV. (Habe bisher noch nicht mit Streams gearbeitet)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fsStream : TFileStream;
  Text : string;
begin
  if odTrack.Execute then begin
    fsStream := TFileStream.Create(odTrack.FileName, fmOpenRead or fmShareDenyWrite);
    try
      fsStream.Seek(1, soFromBeginning);
      fsStream.Read(Text, fsStream.Size - 1);
      Showmessage(Text[1]);
    finally
      fsStream.Free;
    end;
  end;
end;

[Zacherl]

Das ist ja auch wieder nicht Sinn der Sache, wenn du den Buffer doch wieder in einen String lädst
Diese Funktion sollte dir helfen: http://www.florianbernd.pytalhost.de...pid=30#post_30 (ist zwar nicht ganz das, was du suchst, aber damit kann man was basteln)

Florian

[xZise]

Ich verstehe aber irgendwie nicht den unterschied zwischen einen "array [0..10000] of Char" und einem "string"...

Weil, wie man der Datei entnehmen kann, gibt es das Suchwort öfters...