| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Хочу обрезать начало у файла, ...

YOjik ©   (2006-11-13 10:57:00) 

А почемуто в строчке ms.Read(buf, buf_size); вылетает страшный аксес валейшин

procedure TErrorLog.TestFileSize;
var
 ms: TMemoryStream;
 buf: PChar;
 buf_size: Cardinal;
begin
 ms := TMemoryStream.Create;
 try
   if FileExists(FLogFileName) then
   begin
     ms.LoadFromFile(FLogFileName);
     if ms.Size > FMaxLogFileSize
     then
     begin
       ms.Seek(MinLogFileSize, soFromBeginning);
       buf_size := ms.Size - MinLogFileSize;
       GetMem(buf, buf_size);
       ms.Read(buf, buf_size);
       ms.Clear;
       ms.Write(buf, buf_size);
     end
     else
       exit;
   end;
   
   ms.SaveToFile(FLogFileName);
 finally
   ms.Free;
 end;
end;


---

YOjik   (2006-11-13 11:42:00) [1]

Пасибочки.
Ёлы палы пашёл я спать))

---

Anatoly Podgoretsky   (2006-11-13 11:10:00) [2]

> YOjik  (13.11.2006 10:57:00)  [0]

А чего же ты пишешь в переменную buf вместо того что бы писать в буфер, на который она указывает, добавь крышечку (каре) buf^

---

Наверх