Показать сообщение отдельно
Старый 28.06.2005, 21:12     # 1
LAndrew2
Full Member
 
Аватар для LAndrew2
 
Регистрация: 15.11.2002
Адрес: Moscow
Сообщения: 834

LAndrew2 Луч света в тёмном царствеLAndrew2 Луч света в тёмном царствеLAndrew2 Луч света в тёмном царствеLAndrew2 Луч света в тёмном царствеLAndrew2 Луч света в тёмном царстве
Чтение бинарного файла

имеется файл следующей структуры:

Цитата:
Header:

strFileHeader35 = ' some text is here';
OwnerName: string;
OwnerSite: string;
OwnerMail: string;
OwnerDescription: string;

Records:
Number: Integer;
Date: Integer;
Rating: Integer;
Year: Integer;
Length: Integer;
VideoBitrate: Integer;
AudioBitrate: Integer;
Disks: Integer;
Export: Boolean;
Media: string;
MediaType: string;
Source: string;
Borrower string;
OriginalTitle string;
TranslatedTitle string;
Director string;
Producer string;
Country string;
Category string;
Actors string;
URL string;
Description string;
Comments string;
VideoFormat string;
AudioFormat string;
Resolution string;
Framerate string;
Languages string;
Subtitles string;
Size string;
PictureName: string;
PictureSize: Integer;
Picture array of Byte;
необходимо прочитать из него весь список TranslatedTitle.

Трудность заключается в том, что это надо сделать на Pascal Script™ 3.0. Это как Delphi (использует его функции, переменные и т.п.). Но тип File не поддерживается.

Как быть? Может можно как-нить его прочитать с использование ReadFile? Или может быть можно взять исходник какого-нибудь файла из комплекта Delphi, который отвечает за чтение бинарного файла и прицепить (uses) его?
LAndrew2 вне форума