Проблема с чтением файла (TFileStream)

[Xo66um]

Всем привет.

Пишу программу, которая должна уметь сохранять и читать данные из файла (обязательно через TFileStream), при этом часть данных представлена в виде двумерного динамического массива.

С сохранением проблем нет (вроде бы, хотя утверждать не берусь - одним WinHex-ом многое не расскажешь), проблема с чтением файла. В чем именно она заключается - я не знаю, и уже перепробовал буквально все.
Самое странное, что запись и чтение - два практически идентичных метода (различие только в Read/Write), поэтому у меня уже даже предположения закончились по поводу того, где может быть косяк.

Исходник программы прилагаю (он небольшой - лишь основной код, который вынес в отдельный проект, чтобы людям было проще по нему ориентироваться). Код оформлен.

В общем, я надеюсь на вашу помощь, потому как других вариантов у меня уже просто нет

P.S.
Delphi 7

[Vapaamies]

TMatrix = array of array of PAnsiChar;

В таком виде TMatrix -- логически ошибочный тип. PChar -- это просто указатель, а данные по нему должны сохраняться программистом вручную: выделяться и освобождаться память, делаться корректное присваивание с копированием данных, FillChar и прочее.

Чтобы не морочиться, проще всего переделать на array of array of AnsiString и переписать соответствующим образом загрузку и сохранение файла.

[Slym]

Stream.Write(Matrix[X,Y], SizeOf(Matrix));
наводка - ну и какие значения в SizeOf(Matrix)?
почему использован PChar? пользуй string

[Xo66um]

Спасибо за быстрые ответы.

Честно говоря, что со String, что с PChar - ни так, и ни эдак - не работает, увы.
Память не выделял под PChar, да. Но я уверен, что выделение памяти в данном случае не требуется (или я ошибаюсь?).

Изначально использовался тип Char, но чтобы не мучиться с указателями - начал использовать PAnsiChar.

UPD:
Попробовал использовать все-таки тип String - ошибка сохранилась, также пробовал выделять и освобождать память (StrAlloc и StrDispose) - без толку.

[Stilet]

TMatrix = array of array of String;
...
procedure Save(FileName:String;a:TMatrix);
var i,j,l:integer;
begin
 With TFileStream.Create(FileName,fmCreate) do begin
  l:=Length(a);  WriteInteger(l,sizeof(l));
  l:=Length(a[Low(a)]); WriteInteger(l,sizeof(l));
  for i:=Low(a) to High(a) do begin
   for j:=Low(a[i]) to High(a[i]) do begin
    l:=Length(a[i,j]); WriteInteger(l,sizeof(l));
    WriteBuffer(a[i,j][1],Length(a[i,j]));
   end;
  end;
  Free;
 end;
end;
...
procedure Load(FileName:String;var a:TMatrix);
var i,j,l,w:integer;
begin
 With TFileStream.Create(FileName,fmOpenRead) do begin
  ReadInteger(l,sizeof(l));
  readInteger(w,sizeof(w));
  SetLength(a,l,w);
  for i:=Low(a) to High(a) do begin
   for j:=Low(a[i]) to High(a[i]) do begin
    ReadInteger(l,sizeof(l));
    SetLength(a[i,j],l);
    ReadBuffer(a[i,j][1],l);
   end;
  end;
  Free;
 end;
end;

В качестве предложения по сериализации.
P.S. Не проверял.

[Xo66um]

Stilet, большое спасибо! Код рабочий
Правда, Delphi 7 не воспринимает WriteInteger и ReadInteger, поэтому пришлось подправить:

procedure Save(FileName: String; var a: TMatrix);
var
 i, j, l: integer;
 Stream: TFileStream;
begin
 Stream := TFileStream.Create(FileName,fmCreate);

 try
  l := Length(a);
  Stream.Write(l, SizeOf(l));

  l := Length(a[Low(a)]);
  Stream.Write(l,sizeof(l));

  for i := Low(a) to High(a) do
   begin
    for j := Low(a[i]) to High(a[i]) do
     begin
      l := Length(a[i,j]);
      Stream.Write(l, SizeOf(l));
      Stream.WriteBuffer(a[i,j][1], Length(a[i,j]));
     end;
   end;
 finally
  Stream.Free;
 end;
end;

procedure Load(FileName: String; var a: TMatrix);
var
 i, j, l, w: integer;
 Stream: TFileStream;
begin
 Stream := TFileStream.Create(FileName,fmOpenRead);

 try
  Stream.Read(l, SizeOf(l));
  Stream.Read(w, SizeOf(w));
  SetLength(a, l, w);

  for i := Low(a) to High(a) do
   begin
    for j := Low(a[i]) to High(a[i]) do
     begin
      Stream.Read(l, SizeOf(l));
      SetLength(a[i,j], l);
      Stream.ReadBuffer(a[i,j][1], l);
     end;
   end;
 finally
  Stream.Free;
 end;
end;

Может кому-то, кто также использует Delphi 7 - сгодится.

Но у меня два вопроса:
1. Возможна-ли поддержка юникода с типом string в Delphi 7?
2. Почему все-таки мой код чтения файла выбрасывает ошибку? Дело в неверной записи в файл, или что-то еще? Если так, то не могли-бы вы объяснить, в чем заключается ошибка?

P.S.
Обидно, но я почему-то не могу добавить плюс в репутацию - форум выдает сообщение (на скриншоте).

UPD:
Все, понял, в чем была ошибка... Спасибо еще раз всем, и особенно Stilet
Но вопрос по поводу юникода все еще неясен.

[Stilet]

Delphi 7 не воспринимает WriteInteger и ReadInteger

Ой ой... Вот чт значит "пересесть на Лазарус"... Основы начинаю забывать под давлением прогресса.

я почему-то не могу добавить плюс в репутацию - форум выдает сообщение

Это стандартная защита. Это в порядке вещей, не парься.

вопрос по поводу юникода все еще неясен.

Скорее нельзя, чем можно. Хотя могу ошибаться.

[Xo66um]

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

Скорее нельзя, чем можно. Хотя могу ошибаться.

Ну, даже если нет, то дальше я уже точно должен сам код модифицировать, а то как-то стыдно)

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

Ой ой... Вот чт значит "пересесть на Лазарус"... Основы начинаю забывать под давлением прогресса.

На самом деле, такие мелочи не важны (как по мне), когда код рабочий) IDE все-равно подставляет имена методов по мере набора

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

Это стандартная защита. Это в порядке вещей, не парься.

Понятно. Но все равно, спасибо вам большое, еще раз, от всей души, помогли

[Stilet]

Пожалуйста )

[JUDAS]

Проблема с чтением файла (TFileStream)

Мой любимый способ обмена информацией с диском =)))

-------------
ответы.
Как правильно подчеркнул Виталий (Stilet) самый удобный, безопасный и стопроцентный обмен данными в Делфи 7 через TFileStream, лучше организовывать посредством чтения/записи массива байтов.
Причём следует учитывать следующие особенности
1. PChar и все порождения от него (PAnsiChar, Pointer и.т.п) - для делфи это указатель на память размером 4 байт (тупой адрес). Поэтому, если используете информацию которая хранится в PCHar (например Вам прислала какая то Сишная Длл-ка) то следует организовать запись сначала 4 байт размер, потом тело.

  value : PChar;
  size  : integer;
begin
   size := StrLen(Value);
   stream.Write(size, sizeof(integer)); // пишем размер
   stream.Write(value^, size );   // пишем начинку
end;

чтение

  value : string;
  size  : integer;
begin
   stream.seek( смещение, откуда)
   stream.Read(size, sizeof(integer)); // читаем размер
   if size>0 then
   begin
     SetLength(value, size)
     stream.Write(value[1], size );   // читаем начинку
   end;
end;

2. string . Пишется и читается так же как и PChar но с учётом того, что используются другие функции

  value : string;
  size  : integer;
begin
   size := Length(Value);
   if size<>0 then
   begin 
     stream.Write(size, sizeof(integer)); // пишем размер  
     stream.Write(value[1], size );   // пишем начинку
   end;
end;

чтение то же что и в PChar

3. структуры. Структуры ВСЕГДА! нужно упаковывать перед записью, дабы не заниматься байтод...черством (вырваниваением полей в памяти) которым успешно занимаются Сишники перед подобными действиями.
Пример ниже пишется с packed

type
   MyType = packed record
      id : integer;
      name : array[0..12] of char;
      code : double;
      mask : array[0..2] of cyte;
  end;

4. массивы. Пишутся начиная с указателя на первый байт с указанием полного числа байт которые должны записаться на диск. массивы тоже желательно писать с размером в начале.

var   
   xxx : array of integer;
   size : integer;
begin
   SetLength(xxx, 13);
   .... заплняем массив значениями
   size = length(xxx)*sizeof(integer);
   stream.write(size, sizeof(integer));
   stream.write(xxx[0], size);
   Finalize(xxx);

end;

чтение

var   
   xxx : array of integer;
   size : integer;
begin
stream
   stream.seek( смещение, откуда)
   stream.read(size, sizeof(integer));
   if size<>0 then
   begin
      SetLength(xxx, size div sizeof(integer));
      stream.read(xxx[0], size);
   end;
   Finalize(xxx);
end;

5. WideString (Юникодовские строки). В отличии от строки и PChar Юникодовские строки пишутся/читаются как массив

procedure TForm1.Button1Click(Sender: TObject);
const
    s = 'У лукоморья дуб зелёный';
var Dest : array of char;
    Size : Integer;
    str  : TFileStream;
begin
  Size := Length(s)*2;
  SetLength(dest, size);

  StringToWideChar(s,PWideChar(Dest), size);

  str := TFileStream.Create('E:\dmp.txt', fmCreate);
  str.Write(size, sizeof(integer));
  str.Write(Dest[0], size);
  str.Free;

  Finalize(dest);
end;


procedure TForm1.Button2Click(Sender: TObject);
var Dest : array of char;
    Size : Integer;
    str  : TFileStream;
begin
  str := TFileStream.Create('E:\dmp.txt', fmOpenRead);
  str.Read(size, sizeof(integer));
  if Size>0 then
  begin
    SetLength(dest, size);
    str.Read(Dest[0], size);
  end;
  str.Free;

  Caption:= WideCharToString(PWideChar(Dest));

  Finalize(dest);
end;

во вложении "у лукоморья" на диске