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

Вниз

существование экземпляра класса   Найти похожие ветки 

 
VictorS   (2002-04-19 02:12) [0]

как определить, существует ли экземпляр (обьект) класса.
Например var SM:TStringStream;
.......................................
//перед следующей строчкой надо определить, существует ли
// SM
ind:=SM.Size;
проверка на nil не помогает, обьект не определен - фатальная ошибка.
В частности, после передачи под надзор сокета
Socket.SendStream(SM) после передачи SM освобождается.
Ну и не могу определить, уже освободился, или нет.
Надо в цикле опять передавать новую порцию данных, а если еще
старая передается - SM портится. Пытаюсь контролировать его размер - выпадаю из цикла с ошибкой. Помогите советом, пожалуйста. Или есть другие приемы проталкивания больших порций
данных? Подскажите. К сожалению в TServerSocket нет свойства
BytesSend или чего - то похожего.
Большое программерское спасибо!


 
ghost_by ©   (2002-04-19 07:34) [1]

if Assigned(SM) then begin
end else begin
end;


Попробуй так, незнаю поможет ли.


 
Alx2 ©   (2002-04-19 07:46) [2]

Вот так попробуй объявить:
var SM:TStringStream = Nil;
А при уничтожении использовать FreeAndNil.
Тогда проверка на Nil (то же самое что assigned) должна отрабатываться.
Либо попробуй сделать наследника для TStringStream с переопределенным деструктором. Из него и будет ясно убился он или нет (выставлением глобального флага, например).

Но IMHO, подобные задачи - следствие чего-то недодуманного.



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
1-2586
Song
2002-04-19 13:29
2002.05.02
Нужно отсортировать по возрастанию дат ветви TTreeView


1-2614
dfdfd
2002-04-20 17:43
2002.05.02
Как перевести String в Pchar?


14-2670
lipskiy
2002-03-27 01:46
2002.05.02
Люди! Не дайте моему крику уйти в пустоту! Ищу параметры сигналов VGA-мониторов!


3-2461
MCFire
2002-04-10 18:31
2002.05.02
Как грамотно составить TreeView из таблицы?


14-2672
Сержик
2002-03-27 08:18
2002.05.02
Как обозвать компоненты по-русски?