Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

Хочу обрезать начало у файла, ...   Найти похожие ветки 

 
YOjik   (2006-11-13 10:57) [0]

А почемуто в строчке 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;


 
Anatoly Podgoretsky ©   (2006-11-13 11:10) [1]

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

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


 
YOjik   (2006-11-13 11:42) [2]

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



Страницы: 1 вся ветка

Текущий архив: 2006.12.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.066 c
2-1163435060
Jimmy
2006-11-13 19:24
2006.12.03
Экономия ресурсов


1-1161264785
Master_
2006-10-19 17:33
2006.12.03
Как отметить в MonthCalendar несколько дат


2-1163623690
framez
2006-11-15 23:48
2006.12.03
вопрос по БД: IB6.5 + BDE


3-1159693344
Antoxa2005
2006-10-01 13:02
2006.12.03
Подскажите, как программно "сжать" базу данных FB?


6-1152787651
Dyakon_Frost
2006-07-13 14:47
2006.12.03
Обработка полученных данных от сервера!