Как заставить DLL выгружаться из памяти в случае ошибки ?

[ALX_2002]

Трабл следующий -

Создали объект через CreateObject("....")

Но забыли его выгрузить или в коде программы произошла ошибка и его удаление (Set OBJ=Nothing) не произошло

И винда не даёт заменить DLL файл пока тот не будет выгружен

Как этого избежать ?

[GSerg]

Поиметь где-нить указатель на объект и вызывать Release, пока не сдохнет.

[ALX_2002]

Хм... И как это сделать....?

Дело в том, что с DLL Tyomith-a траблов нету. Хоть ошибка, хоть что.... у него как то выгружается....

Интересно как он это сделал....

[codemaster]

....
Но забыли его выгрузить или в коде программы произошла ошибка и его удаление (Set OBJ=Nothing) не произошло
....

1. Вспомнить и выгрузить
2.Обработать ошибку

скорее всего твой софт пал жертвой Circular References

http://www.vbaccelerator.com/home/VB/Co ... rticle.asp


'

[ALX_2002]

"Мой SOFT" - ASP страница, на которой иногда происходят ошибки, как это не печально.

И трабл в том, что если на странице сначала создаётся объект, а потом

происходит ошибка, то этот объект висит в памяти сервера оочень

долго.... и DLL при этом нельзя ни удаляить ни изменить ни т.п

И что делать в этом случае я пока что не знаю....


Жду советов....

[Konst_One]

по-умолчанию IIS держит сессию 20 минут (можно уменьшить значение)
твоя dll-ка если лежит под COM+ , то там есть настройка сколько она будет держаться в памяти (по-молчанию кажется 3 минуты)

[codemaster]

"Мой SOFT" - ASP страница, на которой иногда происходят ошибки, как это не печально.
Жду советов....

Где создается объект ?
Кусок кода?
Что в ASPError ?


P.S. Restart WEB сервера думаю "освободит" объект

[codemaster]

по-умолчанию IIS держит сессию 20 минут (можно уменьшить значение)
твоя dll-ка если лежит под COM+ , то там есть настройка сколько она будет держаться в памяти (по-молчанию кажется 3 минуты)

Бред
есть большая разница между

Код: Выделить всё

<% Set MyObj = Server.CreateObject("......") %>


<% Set Session("MyObj") = Server.CreateObject(".....")%>

неговоря о том что и разместить эти стрки можно в разных местах!

[ALX_2002]

Ок. Привожу код как ASP так и DLL

Понятное дело, что рестарт серва помогает, но всё таки хотелось, чтобы она сама выгружалась. Хотя... может я просто не разобрался..

Это часть кода ASP

Код: Выделить всё

STREAM.OpenFile(PATH)

With Response
  .Buffer = true
  .ContentType = "application/binary"
  .AddHeader "Content-Length",STREAM.GetFileLen
  .AddHeader "Content-Disposition","attachment;filename=" & FileName
End With

BitsRead=100

Do
  Bits=Stream.ReadFile(BitsRead)
  Response.BinaryWrite Bits
  If BitsRead < 1000000 then
   'Увеличение скорости после начала скачки
   BitsRead=BitsRead+1000
  End if
  Response.Flush
  If Not Response.IsClientConnected Then Exit Do
Loop until Bits=""

STREAM.CloseFile
Set STREAM=Nothing


Dll - ка

Код: Выделить всё

Public Function OpenFile(Path As Variant) As Variant
On Error Resume Next
If fnum = 0 Then
   fnum = FreeFile
   Open Path For Binary Access Read As #fnum
End If
If Err.Number <> 0 Then OpenFile = Err.Description
End Function

Public Function CloseFile() As Variant
On Error Resume Next
Close #fnum
fnum = 0
CloseFile = Err.Description
End Function

Public Function ReadFile(Bytes As Variant) As Variant
On Error Resume Next
If Bytes > LOF(fnum) - Loc(fnum) Then Bytes = LOF(fnum) - Loc(fnum)
ReadFile = InputB(Bytes, #fnum)
End Function


Таким образом я читаю двоичный файл и возвращаю его кусками.

Я предполагаю, что в DLL ке нужно что то добавить - событие какое то что ли..... Чтобы Release происходил.... И кстати как его юзать...

[codemaster]

[quote="ALX_2002"]Ок. Привожу код как ASP так и DLL

Понятное дело, что рестарт серва помогает, но всё таки хотелось, чтобы она сама выгружалась. Хотя... может я просто не разобрался..

Это часть кода ASP
.....

[quote]

Этот код бесполезен при решении твоей проблеммы

остается вопрос Где создается объект ?
(STREAM )
смотри выше и

http://msdn.microsoft.com/library/defau ... ssions.asp

http://msdn.microsoft.com/library/defau ... m_seso.asp

[ALX_2002]

Виноват. Создаю я его так

Код: Выделить всё

Set STREAM = CreateObject("Binary.Stream")

А потом весь код ASP

Почитал по ссылкам. К сожалею мало чего понял, потому как с

с с сессионными созданиями объектов не работал.