Главная страница
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.01 c
1-2587
vcrits
2002-04-19 17:36
2002.05.02
Как можно сделать в Delphi 6 из ActiveX библиотеки


4-2724
samos
2002-02-27 11:28
2002.05.02
Еще раз про реестр


3-2463
Sewix
2002-04-09 14:56
2002.05.02
Sql запрос как выбрать все поля кроме конкретного одного


7-2690
saviola
2002-02-06 16:24
2002.05.02
Как узнать название мамки


3-2500
Zak
2002-04-08 09:56
2002.05.02
Мастер-детаиЛ чтоб её!