Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.019 c
7-2704            Mewerik               2002-01-30 15:39  2002.05.02  
Помогите плизззз!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


1-2521            ah                    2002-04-21 13:55  2002.05.02  
каждый раз как переустанавливаю Винды забываю как


1-2501            Serguar               2002-04-18 13:38  2002.05.02  
Работа с перечислимыми типами


14-2657           Kosyak                2002-03-25 08:21  2002.05.02  
из TXT в БД


6-2640            Basty                 2002-02-16 09:26  2002.05.02  
проблема с Server Socket