Чтение бинарного файла

[code358]

Есть файл, читаю его такой функцией:

function ReadFile(aFileName: String) : string;
var f:TFileStream;
    dst: TStringStream;
  fReaded : string;
begin
Result := "";
if FileExists(aFileName) then begin
  F := TFileStream.Create(aFileName, fmOpenRead);
  dst := TStringStream.Create;
  try
    dst.CopyFrom(f, f.Size);
    Result := dst.DataString;
  finally
    f.Free;
    dst.Free;
  end;
end;
end;

Соль в том, что в этом файле есть немного текста в JSON'e и именного его мне надо получить. Есть какие-то идеи?
Пример файла загрузил на rghost.ru/50572179 (*.wotreplay)

[Stilet]

И что же это за текст?

[code358]

Сообщение от Stilet

И что же это за текст?

{"clientVersionFromXml": "World\u00a0of\u00a0Tanks v.0.8.9 #553", "clientVersionFromExe": "0, 8, 9, 0", "mapDisplayName":
"\u0421\u0432\u044f\u0449\u0435\u043d\u043d\u0430\u044f \u0434\u043e\u043b\u0438\u043d\u0430", "gameplayID": "ctf", "playerID": 6275943, "vehicles":

ну и до конца..

[Stilet]

И он всегда в одном и том-же месте?
Или по разному?
И начинается он одинаково всегда?

[code358]

Сообщение от Stilet

И он всегда в одном и том-же месте?
Или по разному?
И начинается он одинаково всегда?

начинается всегда в стиле JSON'a с "{".
место одинаковое

[ДралсяСошибками]

Обратите внимание на 9,10,11, и 12 байт = 68150000Hex = 5480Dec это похоже размер данных JSON, но не весь, он там видимо из двух частей, у второго тоже должен быть размер.

[Stilet]

место одинаковое

Тогда

  try
 f.position:=Номер байта с которого начинается Джисон
    dst.CopyFrom(f, f.Size-f.position);
    Result := dst.DataString;

[code358]

Stilet, спасибо!