dll не уходит из памяти, висит в процессах #282160

Написал ВК которая открывает делфевскую форму, в которой статически подключается другая dll. все работает, но при закрытии 1С, вторая dll похоже остается висеть в памяти, в процесс эксплорере висит как бы 1С сеанс, его приходится убивать вручную иначе комп не выключается. Еще при выключении компа надо убивать DDE сервер. Кто значет подскажите как при закрытии 1С убивать из памяти вторую длл

не все ссылки на компоненту или ее элементы ты корректно уничтожаешь, а по технологии СОМ, пока существует ссылка на интерфейс-объект живет

Имеешь ввиду переменные?

попробуй переменную объекта обнули таким образом после использования а=""; и в самой dll при выгрзуке обнули переменные объектов

читай сабж внимательно

Внимательно прочитай "Технологию создания ВК" нет не переменные, создавая объекты в ВК нужно корректно счетчиком ссылок управлять, ну и самими ссылками соответственно

+ ну и на чем пишешь ВК тоже неплохо было бы сказать...С С++ я бы помог, а если Delphi, то тут много народу...

"Написал ВК которая" видимо фигово написал

насколько я помню, там писать ничего не надо. В шаблоне с ИТС для VС++ уже лажа, процесс остается в памяти :)

так он вторую длл открывает из первой и вторая "зависает"

да он сам не знает, что у него там... По симптомам похоже, что как раз в своей ВК Release где то не делает....

ну вообщем я о том же. " В шаблоне с ИТС для VС++ уже лажа" - эту фигню вообще не видел

На делфи dll прописывается статично

Что такое Release?

получаеться что у тебя 1ая ДЛЛ висит

Если брать шаблон предложенный Ромиксом, то ниче такого не возникает. Если брать отдельно форму которая вызывается в ВК и вызывает вторую компоненту то тоже все нормально ниче в процессах не остается. Форму вызываю следующим образом: //Собственно основной метод компоненты  end; Может ее как-то удалять надо специально?

Вторая ДЛЛ статично вызывается как раз из этой формы.

это код с проблемой или без? Сдесь вроде все ок

ScForm ??

с проблемой ScForm - имя формы

не понял? имя формы вроде TheScForm? покаж определение и присовение ScForm

+21 Вру имя модуля формы

Uses ... ...

Попробуй в OnClose добавить Application.Terminate

Форма.OnClose

В принципе был вариант без формы, вторая длл статично вызывалась в модуле, где описаны Свойства и методы ВК, эффект тот же самый

Спасибо попробую

Так пробуй - интересно ж!

... ... Application.Terminate Наверно так лучше будет а то мне после закрытия формы надо окошки из нее выдергивать

по моему Application.Terminate произойдет сразу после открытия формы

Сейчас не могу я на работе а это все дома. Завтра отпишусь че получилось

Форму надо не только закрыть, но и удалить ее объект (.Free кажется).

Вобщем схема этого проекта такая: Есть приложение делфи, которое состоит из 2 файлов, форма и модуль в котором подключается dll и определяются функции из этой длл. При запуске в режиме приложения все работает нормально, форму закрываю, память освобождается. Процедура procedure TScForm.FormDestroy(Sender: TObject); Затем я включил данную форму в ВК для 1С. Там тоже все работает, но при закрытии память не освобождается. Метод который вызывает данную форму:       ..       ..    end;//case  end; То что сама форма освобождает память при таком подходе я уже убедился на многочисленных опытах. То что содержалось в деструкторе формы я закомментил и перенес в OnClose, что эффекта не дало, че теперь дальше делать у меня даже нет мыслей. В самой ВК никакие переменные, указатели и т. д. на функции и переменные второй ДЛЛ не определены

Кто знает подскажите какими средствами можно узнать какие именно ссылки остаютя висеть? или все руками по очереди комментить?

Up

ап

Неужели никто форму из ВК не вызывал?

а почему бы TheScForm не поместить в в T_vk_object.meth4 ? var  TheScForm :TScForm;

А как тогда ее запускать? Также Аппликашион.Run?

выкладывай сырцы, если хочешь, чтобы помогли

Код формы: uses    procedure FormClose(Sender: TObject; var Action: TCloseAction);    function OpenFileReader(var hScScanDev : ScScanDeviceHandle) : boolean;    function OpenTwainSource(var hScScanDev : ScScanDeviceHandle) : boolean;    function ScanToPackage(hScScanDev : ScScanDeviceHandle; out hScImage: ScImageHandle) : boolean;    procedure ExportImageToArchive(hScImage: ScImageHandle; ImageName: string; out ImagePath: string); *******************************************************************************}      if not OpenFileReader(hScScanDev) then break;    end else begin    Log('Сканирование по конфигурации "ScanPassportAndDriveLic"'); function TScForm.CreatePack(var hScPackage: ScPackageHandle): boolean; begin  Log('Создание нового пакета...'); function TScForm.OpenFileReader(var hScScanDev: ScScanDeviceHandle): boolean;  Log('Инициализация устройства сканирования (FileReader)...');  Log('  пользователь должен указать файл с изображением:');  if dlgLoadImage.Execute then function TScForm.OpenTwainSource(var hScScanDev: ScScanDeviceHandle): boolean; var    if not ScScannerSelectTWAINSource(hScInstance, Handle) then begin        LogWarn('  TWAIN-источник не был указан, либо TWAIN-подсистема не установлена!'); procedure SetupEditField(var Tag: TEditField; Edit: PEdit; Id: string);      end;  for iField:=0 to cFields-1 do with EditFields[iField] do      if pedtSender^.Name=Edit^.Name then with ScFieldValueAttr.rcValue do begin procedure TScForm.FormClose(Sender: TObject; var Action: TCloseAction); begin end.

1) учимся пользоваться файлообменниками 2) убираем все из FormClose в FormDestroy 3) TheScForm делаем локальной переменной метода компоненты   Application.Run;  --- три строки маразма выкидываем 4) Application.Handle := hMainWND (который получили IExtWindowsSupport)

Можно 1 строчку разжевать?

что есть hMainWND?

ап

hMainWND - хендл окна 1С, локальная переменная модуля объекта переменной. в init ее инициализируешь

Спасибо сегодня попробую

PExtWindows я так понял имеет тип Pointer, а pConnection какой тип должен быть? Это пример для какой версии, у меня 7, а мануала по ней нет только по 5. И в хелпе GetAppMainFrame( че то вообще не находит. Пробовал подобрать тип pConnection методом научо тыка, получилось TInterfacedObject, но у нее функция GetInterface(, а константа IID_IExtWndsSupport не определена ругается. Как ее определять?

Еще тупой вопрос какой init имеется ввиду?

там где InitDone

у меня в коде нигде не встречается InitDone, где он должен быть в файле dpr, или в файле vk_object.pas?

А ты какой шаблон компоненты пользуешь?

В смысле шаблон? Файл *.pas, В vk_object подключен как модуль

А это актуально для какой версии Delpi? У меня 7. Функцию GetAppMainFrame в нелпе даже не находит и через точку она не вылазиет. iExtWindows какого типа должен быть - Pointer? короче на этой строке компиляция не проходит:  iExtWindows.GetAppMainFrame(wnd);

клиника :-(

Ну чо клиника то? не компилирует, нет там такой функции GetAppMainFrame

Ну помогите кто нибудь... что это за объект iExtWindows?