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

Вниз

Вызов из DLL   Найти похожие ветки 

 
Jay1982 ©   (2004-12-27 16:16) [0]

Как не используя юнит вытянуть функцию/процедуру из ДЛЛ, в юните делаю так:

interface

procedure Sleep(ms: LongWord); stdcall;

implementation

procedure Sleep; external "kernel32.dll" name "Sleep";

всё работает, но для этого надо создавать дополнительный юнит


 
Sandman25 ©   (2004-12-27 16:19) [1]

LoadLibrary


 
Jay1982 ©   (2004-12-27 16:24) [2]

Об этом я тоже вкурсе, думал может макаром описанным мною выше как-то можно


 
Sandman25 ©   (2004-12-27 16:26) [3]

Можно написать procedure Sleep; external "kernel32.dll" name "Sleep"; прямо перед вызовом, тогда дополнительный модуль не понадобится


 
Jay1982 ©   (2004-12-27 16:31) [4]

Но в этом случае процедуре не передаются параметры


 
Sandman25 ©   (2004-12-27 16:32) [5]

procedure Sleep(ms: LongWord); stdcall; external "kernel32.dll" name "Sleep";

external + F1


 
Jay1982 ©   (2004-12-27 16:39) [6]

Так вроде писал но вместо задержки указаной в милисекундах получилась вечная задержка


 
Fay ©   (2004-12-27 16:40) [7]

Ошибка в 17-й строке


 
Jay1982 ©   (2004-12-27 16:41) [8]

Написал так

procedure Sleep(ms: Cardinal); stdcall; external "kernel32.dll" name "Sleep";

Всё работает, спасибо за советы


 
Jay1982 ©   (2004-12-27 16:43) [9]

2 Sandman25 - Видимо что-то пропускал;
2 Fay - я писал всего одну, а не 17


 
Fay ©   (2004-12-27 16:46) [10]

А, понятно.



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

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

Наверх




Память: 0.46 MB
Время: 0.037 c
6-1098729042
Ермак
2004-10-25 22:30
2005.01.16
Именованные каналы в сети


1-1104151339
MTsv DN
2004-12-27 15:42
2005.01.16
Рекурсивный проход дерева каталогов


1-1104733591
Dream
2005-01-03 09:26
2005.01.16
Перобразование символа клавиатуры в код


14-1104314751
Zeqfreed_
2004-12-29 13:05
2005.01.16
FAR


6-1098984838
Anatoly P
2004-10-28 21:33
2005.01.16
Сеанс в CGI stand-alone приложении





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