Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Внизпомогите разобраться с глюком. Найти похожие ветки
← →
Starkom (2002-10-02 11:26) [0]был проект - простая прилада для системы, написанный на дельфях. Запускался, как простой екзешник. Начали разрабатывать новую систему и эту приладу понадобилось встроить в код системы. Так как новая система пишется на Билдере, приладу засунули в dll.
procedure RunGen();
begin
if ConnectDataBase() then
begin
MainForm:=TMainForm.Create(Application);
MainForm.ShowModal();
MainForm.Release;
end;
end;
exports
RunGen;
вместо
if ConnectDataBase() then
begin
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end;
вызов прилады(всякие проверки опущены) -
HINSTANCE Dll = LoadLibrary("ProjectDLL.dll");
void __fastcall (__import *Generator)(void);
Generator = (void __fastcall (__import *)(void)) GetProcAddress(Dll,"RunGen");
Generator();
FreeLibrary(Dll);
Проблема в том, что при запуске прилады из-под системы,ее последующем запуске и закрытии MainForm - система валится.
Понять почему такое несчастье происходит я не могу. Помогите, пожайлуста!!!
← →
Smithson (2002-10-02 11:50) [1]Fast call ли она?
← →
Starkom (2002-10-02 11:56) [2]так а в паскале же по умолчанию все fastcall
← →
Starkom (2002-10-02 12:17) [3]хмм, вообще закомментил тело функции RunGen - при вызове из Билдерного проекта все равно валится.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c