Access violation в TFileStream

[RoadTrain]

Привет всем. Прошу помощи с кодом. Изначально с TFIleStream проблем не было, но когда решил весь код собрать в класс, а файловый поток сделать переменной класса.
Но, видно, я чего-то не понимаю и есть какие-то ньюансы.
Вот код:

  TWDB = class(TObject)
    inStream: TFileStream;
    inputFn: string;
    outputFn:string;
    WDBHeader: TWDBHeader;
    Header: THeader;

    vertexBuf: array of TVertex;
    facesBuf: array of TFace;
    numVerts, numFaces: DWORD;

    procedure Init();
    procedure ReadHeader(start:integer; bytesToRead:integer);
    procedure ReadFiles(start:integer; bytesToRead:integer);

    private

  end;

{...}
var
  Form1: TForm1;
  WDB: TWDB;
{...}

procedure TWDB.Init();
var
  BlockHeader: TBlockHeader;
  FileData: TFileData;
  numFiles, BlockEnd, numIndices: integer;
  I,j: Integer;
  lineadd:string;
  facesBufRaw: array of word;
  faceIndex:word;
begin
  inStream := TFileStream.Create(inputFn, fmOpenRead);
  inStream.Seek(0, soFromBeginning);
  inStream.ReadBuffer(WDBHeader, sizeof(WDBHeader));

  //Reading blocks
  while inStream.Position < WDBHeader.wdbSize do begin
    // filling these records with zeros to aviod getting wrong data
    FillChar(BlockHeader,SizeOf(BlockHeader),$00);
    inStream.ReadBuffer(BlockHeader, sizeof(BlockHeader));
    case BlockHeader.bFlag of
      BFLAG_HEADER: //96 01 00 00
        ReadHeader(inStream.Position, BlockHeader.bSize-8);
      BFLAG_FILELST: //97 01 00 00 ;
        ReadFiles(inStream.Position, BlockHeader.bSize-8);
    end;
  end;

  inStream.Free;
end;

procedure TWDB.ReadHeader(start:integer; bytesToRead:integer);
begin
   inStream.ReadBuffer(Header, sizeof(Header));
   Form1.ListBox1.AddItem(inttostr(Header.NumRootBlocks), Form1);
end;

procedure TWDB.ReadFiles(start:integer; bytesToRead:integer);
begin

end;

В итоге на

inStream := TFileStream.Create(inputFn, fmOpenRead);

я получаю Access violation. Укажите на ошибку, пожалуйста.

[Прик]

Проэкспериментировал с классом так:

procedure TForm1.FormCreate(Sender: TObject);
var WDB: TWDB;
begin
  WDB := TWDB.Create;
  WDB.inputFn := 'Reserv.ini'; 
  WDB.Init;
end;

Ошибки не было.

А почему бы не сделать нормально. Т.е. перекрыть конструктор класса, где можно было бы указывать имя файла.
А то задавать имя файла как-то через заднее крыльцо получается.

[GunSmoker]

А вы объект-то вообще создаёте?

[RoadTrain]

Сообщение от Прик

Проэкспериментировал с классом так:

procedure TForm1.FormCreate(Sender: TObject);
var WDB: TWDB;
begin
  WDB := TWDB.Create;
  WDB.inputFn := 'Reserv.ini'; 
  WDB.Init;
end;

Ошибки не было.

А почему бы не сделать нормально. Т.е. перекрыть конструктор класса, где можно было бы указывать имя файла.
А то задавать имя файла как-то через заднее крыльцо получается.

Я понял, что не делал этого:

  WDB := TWDB.Create;

спасибо, заработало.
Насчёт такой реализации - это первое, что я придумал. Отдельно inputFn нужно будет для ф-ции Backup, которая будет делать бекапы простым копированием. В процессе я ещё буду многое переделывать, я так чувствую.

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

А вы объект-то вообще создаёте?

я уже ответил, что в этом и была проблема мой фэйл

[RoadTrain]

ещё вопрос есть.
Как читать строки из бинарного файла?
String понятно не подходит (хотя наверно как-то с указателем можно, но я не знаю).
если читать как динамический (длины строк то разные всегад) array of ansichar ( в rad studio xe char занимает 2 байта - юникод), то программа просто закрывается.

ммм...
можно так, насколько я понял.

Setlength(Filename, length);
inStream.Read(filename[1], length);

[p51x]

ansichar ( в rad studio xe char занимает 2 байта - юникод)

ансичар в любой ред 1 байт, а вот чар...