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

Вниз

Как мне избечь ошибок при поодключении DLL, содержащей функцию   Найти похожие ветки 

 
kss1515   (2002-08-18 20:27) [0]

Здравствуйте,

Есть к вам такой вот вопрос:
Как мне избечь ошибок при поодключении DLL, содержащей функцию
GetSimpleText(LangRus:Boolean):PChar, используя такой код:

var
Form1: TForm1;
GetSimpleText:function(LangRus:boolean):PChar;
LibHandle:THandle;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
@GetSimpleText:=nil;
LibHandle:=LoadLibrary("mydll.dll");
If LibHandle>=32 then
@GetSimpleText:=GetProcAddress(LibHandle,"GetSimpleText");
If @GetSimpleText<>nil then ShowMessage(StrPas(GetSimpleText(True)));
end;

Ошибка заключается в следующем: В функцию GetSimpleText в любом случае
передается параметр False (или вообще не передается, скорее всего,
глюк при его передаче), а через
несколько секунд программа вообще вылетает, сообщая об "Ошибке в
модуле KERNEL32".
У меня система Delphi 5.0 Build 5.62 Enterprise, ОС Windows ME

Заранее спасибо за помощь!
--
С уважением,
KSS!


 
Юрий Зотов   (2002-08-18 22:00) [1]

Похоже, причина в отсутствии stdcall и/или в неверном выделении/освобождении памяти под строку PChar.



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

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

Наверх





Память: 0.54 MB
Время: 0.03 c
14-78663
aga
2002-10-04 20:16
2002.10.24
Фонт


14-78666
Agent Smith
2002-10-04 19:01
2002.10.24
Сервер удаленного доступа и WinXP Pro


6-78582
softal
2002-08-20 08:46
2002.10.24
Обновление через Inet


1-78402
amo
2002-10-14 16:33
2002.10.24
раскладка клавиатуры


4-78710
kkot
2002-09-11 12:09
2002.10.24
Встраивание своего пункта меню (или кнопки) в чужую программу





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