Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Вниз

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


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, подобные задачи - следствие чего-то недодуманного.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.74 MB
Время: 0.021 c
1-2512            Николай.              2002-04-18 06:49  2002.05.02  
Создание exe-файла


3-2489            Николай Бондаренко    2002-04-11 12:15  2002.05.02  
ADO и Oracle (как ускорить установление соединения с БД)


1-2534            PaRL                  2002-04-18 18:06  2002.05.02  
The Question. Simply Question.


3-2483            Arril                 2002-04-11 00:42  2002.05.02  
Глюки с LoginPromt?


1-2607            Alexandr (CAV)        2002-04-20 08:11  2002.05.02  
Ложное срабанывание двойного клика в rxDbGrid