| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
модифицирующий себя компонент [D7, 95/98]
umbra © (2005-09-20 17:12:00)Пишу компонент - логгер, наследник TFileStream.
TLogger = class(TFileStream)
private
FMaxSize: Int64;
function RotateLog: TLogger;
public
constructor Create(const FileName: string; Mode: Word; mSize: Int64);
end;
Поле FMaxSize - это максимальный размер лог-файла, после достижения которого текущий файл надо закрыть, создать новый на диске, открыть его
и писать дальше - и все в текущем экземпляре класса, предположительно в процедуре RotateLog. Предположительно, экземпляр будет полем другого компонента.
Как это возможно? Заранее спасибо
umbra (2005-09-21 10:27:00) [1]
> Что ты с ними сделаешь, то и будет
Прошу прощения! Затупил. В хелпе пишут про Size из TStream, а посмотрел в модуль Classes - в TFileStream он read-write и все методы реализованы
Digitman (2005-09-20 18:22:00) [2]КТО заставляет тебя наследовать свой класс непосредственно от TFileStream ?
никто !
наследуй его от, например, TComonent, сделай TFileStream полем своего класса и верти им как угодно ! Создавай, уничтожай его как и когда тебе вздумается !
Плохиш (2005-09-20 18:22:00) [3]
> а что при этом будет с Size и Position?
Что ты с ними сделаешь, то и будет.
umbra (2005-09-20 18:19:00) [4]
> при том что имя файла здесь ЖЕСТКО оговорено параметром
> FileName констр.метода Create()
В конструкторе предка. У наследника в конструкторе можно сделать с FileName что угодно и передать это что угодно inherited Create(...). Тут дело не в имени скорее...
umbra (2005-09-20 18:14:00) [5]
> В каком месте проблемы?
>
Проблема в том, что я не понимаю, как это вообще возможно. Все упирается в дескриптор открытого файла (свойство Handle). Единственное, что приходит в голову - апишкой CreateFile создать файл
uses SysUtils;
{.............}
procedure RotateLog;
var newname: string;
begin
newname := MakeNewName; //предположим, что эта функция гдето есть
Handle := CreateFile(newname);
end;
а что при этом будет с Size и Position?
Digitman (2005-09-20 17:18:00) [6]
> создать новый
с каким же, пардон, именем его создать ? при том что имя файла здесь ЖЕСТКО оговорено параметром FileName констр.метода Create() ?
Плохиш (2005-09-20 17:16:00) [7]
> Поле FMaxSize - это максимальный размер лог-файла, после
> достижения которого текущий файл надо закрыть, создать новый
> на диске, открыть его
> и писать дальше - и все в текущем экземпляре класса, предположительно
> в процедуре RotateLog.
В каком месте проблемы?
| |
