Проблема с чтением из файла

[Анафема]

есть такой код:

Код: Выделить всё

var
  fn: String;
  ptr: Pointer;
  f, size, len: Integer;
begin
  fn := BuildFileName(FPath, AName);
  f := FileOpen(fn, fmOpenRead);
  size := FileSeek(f, 0, fsFromEnd);
  FileSeek(f, 0, fsFromBeginning);
  ptr := GetMem(size);
  if (ptr = nil) then
  begin
    FileClose(f);
    Result := nil;
    Exit;
  end;
  len := FileRead(f, ptr, size);
  if (len <> size) then
  begin
    FreeMem(ptr);
    FileClose(f);
    Result := nil;
    Exit;
  end;
  FileClose(f);


до строчки FileRead все пашет, дальше вылетает access violation
адрес ... функция fpc_ansistr_incr_ref

Что это за хрень и как с ней бороться, подскажите плиз.

[Анафема]

Решил этот вопрос сам, след. вопрос: при записи в файл пишутся первые 4 байта, потом пишется почему-то символ конца строки и 3 нуля, после этого все данные идут нормально. Т.е. 4 байта информации теряются.
Что делать???

[@lex]

Поробуй юзать TFileStream или просто assignfile...
Использование TFileStream:
(разбирался сам, читая исходники FP, поэтому может быть тут не всё корректно, но работает! )

Код: Выделить всё

...............
uses classes;
................
var Stream:TStream;
...............
Stream := TFileStream.Create ( 'C:\autoexec bat :) ' , fmOpenRead); //Открываем файл для чтения
Stream.Position:=0; //Тот же seek
Stream.ReadBuffer (buf, count); //Аналогия с BlockRead
................
Stream.Free;


Примерно так...
С записью я сам не особо не разбирался (не было необходимости), поэтому см. исходники FPC...

[shade]

функция fpc_ansistr_incr_ref

Знакомая ситуация. У меня как-то тоже в подобной ситуации глюки были. Только в моем случае "BuildFileName" (не она конкретно..) была развернута (т.е. тело было ставлено как есть). Долго долгоя я голову ломал, пока не взялся за ассемблер... В общем вынес я код со строковыми операциями в отдельную процедуру и все заработало.

Мораль: в fpc глючит счетчик ссылок для строк (string/WideString), возможно так же глючат и интерфейсы, не проверял.

Совет: отдели обработку строк от отстального кода. В данном случае, н-р, можно по пробовать вынести два первых оператора в отдельную функцию

Решил этот вопрос сам, след. вопрос: при записи в файл пишутся первые 4 байта, потом пишется почему-то символ конца строки и 3 нуля, после этого все данные идут нормально. Т.е. 4 байта информации теряются.
Что делать???

Код в студию, а то ничего не понятно

[Анафема]

Решил вопрос юзаньем TFileStream
Всем спасибо