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

Вниз

странное поведение функции из DLL   Найти похожие ветки 

 
BBCHa   (2003-04-16 14:36) [0]

Народ, есть такая DLL

library Localization;
uses
ShareMem;

Const
MaxLanguage=2;
Type
TLanguage=array [1..MaxLanguage] of String;
Const
Language:TLanguage = ("English", "Русский");

Function GetLanguage:TLanguage;stdcall;
Begin
Result:=Language;
End;

Function GetMaxLanguage:Integer;stdcall;
Begin
Result:=MaxLanguage;
End;

exports
GetMaxLanguage,
GetLanguage;

{$R *.res}

begin
end.

В основной программе функции объявляются так:
type
TLanguage=array[1..10] of String;

function GetMaxLanguage:Integer; stdcall; external "localization.dll" name "GetMaxLanguage";
function GetLanguage:TLanguage; stdcall; external "localization.dll" name "GetLanguage";

Функции отлично отрабатываются, но при этом если вызывается функция GetMaxLanguage, все ОК, а если еще и GetLanguage, то при закрытии программы выдается ошибка:Invalid pointer operator.
В чем грабли????


 
joisy   (2003-04-16 15:46) [1]

Попрубуй статичеcкую - не динамическую загрузку DLL! У меня тоже было что-то похожее. Вообщи покажи как ее загружаешь.


 
BBCHa   (2003-04-16 15:49) [2]

Все, разобрался, блин, лохонулся по всей форме - uses ShareMem забыл :)



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

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

Наверх




Память: 0.44 MB
Время: 0.008 c
1-91367
Seledka
2003-04-16 11:16
2003.04.28
Blob


3-91155
RDA
2003-04-02 12:40
2003.04.28
Не получается создать первичный (уникальный) составной индех


7-91565
Ал
2003-03-11 14:21
2003.04.28
Можно и нужно ли устанавливать screensaver в папку c: Windows?


3-91221
Jao
2003-04-10 08:45
2003.04.28
День добрый. Комментарии в SQL-запросе при конекте через ADO


1-91281
Dmitry V. Averuanov
2003-04-17 12:24
2003.04.28
Как передать array of char из DLL ?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский