Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];

Вниз

глюк DLL под XP   Найти похожие ветки 

 
виктор   (2003-11-06 03:13) [0]

Мастера помогите, в программе из одной Dll вызывается другая. Под
W"98 работает без проблем, а вот в ХР выдает ошыбку:"Не найден дискриптор окна. OSExceptionError". Что это такое и как с ним бороться. Заранее спасибо.


 
Vorobyev Sergey   (2003-11-06 07:13) [1]

DLL или программа использует потоки?


 
viktor   (2003-11-06 22:50) [2]

Нет.


 
Юрий Федоров   (2003-11-06 23:24) [3]

на LoadLibrary ?
Приводите наконец более подробное описапние проблемы, с фрагментами кода, со значениями переменных, которые получены в run - time, а то кроме как ответа "ошибка в 17 строке" ничего не увидите, тут телепатов нет


 
vvh   (2003-11-06 23:37) [4]

Эта DLL загружается из другой. И в одной, и во второй открываются модальные окна.
procedure TfSpravBank.BitBtn2Click(Sender: TObject);
begin
hLib:=LoadLibrary("bnktype.dll");
if hLib<32 then
begin
ShowMessage("Error load DLL");
exit;
end;
CreateBankTypeDlg:=TCreateBankTypeDlg(GetProcAddress(hLib,"CreateBankTypeDlg"));
ShowBankTypeForm:=TShowBankTypeForm(GetProcAddress(hLib,"ShowBankTypeForm"));
BankType:=TBankType.Create;
CreateBankTypeDlg(Self.Handle,BankType);
ShowBankTypeForm(True);
FreeLibrary(hLib);
end;


 
Palladin   (2003-11-06 23:48) [5]

А... э...
А как используются адреса переданные в функции?


 
vvh   (2003-11-06 23:50) [6]

Например так:
procedure CreateBankTypeDlg(Handle:THandle;P:Pointer);
begin
Application.Handle:=Handle;
fBankType:=TfBankType.Create(Application);
if Assigned(P) then fBankType.BankType:=TBankType(P);
end;

procedure ShowBankTypeForm(const DlgMode:Boolean);
begin
with fBankType do
begin
if DlgMode then
begin
Caption:="Новый банк";
// tBank.Append;
ShowModal;
if ModalResult=mrOK then InsElemet;
end
else
begin
if GetElemet then
begin
// tBank.Edit;
ShowModal;
if ModalResult=mrOK then UpdElemet;
end
else ShowMessage("Ошибка извлечения данных.");
end;
Free;
end;
end;



Страницы: 1 вся ветка

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

Наверх





Память: 0.45 MB
Время: 0.01 c
14-56817
horus
2003-10-24 17:25
2003.11.17
Как Вы относитесь к идее создания рассылки?


1-56574
Jee
2003-11-06 10:59
2003.11.17
Список значений свойства компонента


14-56879
RoLeX
2003-10-26 19:14
2003.11.17
Дайте TserverSocket и TClientSocket!!


6-56798
ORMADA
2003-09-19 08:37
2003.11.17
Перекодировка Koi8R в Win


6-56804
BlackSun
2003-09-21 19:11
2003.11.17
Ras+определение скорости коннекта





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский