ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / DLL на Delphi
17 сообщений из 17, страница 1 из 1
DLL на Delphi
    #39693994
AK-Shah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AK-Shah
Участник
Уважаемые коллеги! Писал очень давно (еще в середине 90-х годов) на Turbo Pascal, сейчас встала необходимость написать небольшую DLL. Смог разобраться с консольным приложением только на Delphi 6.

Вот код DLL:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
library GetKey;

{$APPTYPE CONSOLE}

uses Windows;

function GetKeyFromSection(var pFileName: PChar; var pSection: PChar): PChar;
var
   LibHandle: HModule;        // описатель библиотеки
   lcBuf: PChar;
   lnSize: Integer;

begin
   lnSize := 512;
   lcBuf := '                               ' + chr(0); 

   LibHandle := LoadLibrary('kernel32.dll');
    if LibHandle <> 0 then
       begin
           GetPrivateProfileString(pSection, nil, '', @lcBuf, lnSize, pFileName);
       end;

    Result := lcBuf;
end;

exports
  GetKeyFromSection;

begin
end.



Библиотека компилируется, только при вызове функции вылетает в Runtime error 216. Подскажите, где еще допущены ошибки.

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
27.08.2018, 21:31
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39693997
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
http://www.delphisources.ru/pages/faq/base/using_and_creating_dll.html
...
Рейтинг: 0 / 0
27.08.2018, 21:34
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39694002
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
AK-Shahгде еще допущены ошибки.

Что значит "ещё"? Там вообще ни одной правильной строчки нет.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
27.08.2018, 21:37
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39694013
AK-Shah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AK-Shah
Участник
Dimitry Sibiryakov,

Хорошо, приведите строчки правильные.
...
Рейтинг: 0 / 0
27.08.2018, 22:02
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39694019
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
function strProfile(const aFile, aSection, aEntry, aDefault: string): string;
var
  aTmp: array[0..255] of Char;
begin
  GetPrivateProfileString(PChar(aSection), PChar(aEntry),
    PChar(aDefault), aTmp, Sizeof(aTmp) - 1, PChar(aFile));
  Result := StrPas(aTmp);
end;
...
Рейтинг: 0 / 0
27.08.2018, 22:15
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39694021
чччД__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД__
Гость
AK-ShahDimitry Sibiryakov,

Хорошо, приведите строчки правильные.
Тебе ссылку дали. Или тоже "языков не знаешь?"
...
Рейтинг: 0 / 0
27.08.2018, 22:17
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39694033
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
AK-Shah,

Чем класс TIniFile из модуля IniFiles не устроил?

P.S. По ошибкам - см. ShareMem по ссылке, если хочешь стринги в параметрах/результатах фций dll юзать.
...
Рейтинг: 0 / 0
27.08.2018, 23:03
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39694615
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
AK-ShahDimitry Sibiryakov,

Хорошо, приведите строчки правильные.

Для того, чтобы приводить правильные строчки, надо знать задачу. То, что написано, мало того, что неправильно, оно еще и не нужно, потому что kernel32 импортируется любым исполняемым модулем на Delphi и чтобы вызвать GetPrivateProfileString не надо изобретать дополнительных DLL.
...
Рейтинг: 0 / 0
28.08.2018, 23:21
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39694643
Фотография LocksmithPC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LocksmithPC
Участник
{$APPTYPE CONSOLE} ?
...
Рейтинг: 0 / 0
29.08.2018, 07:05
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39694649
Котовасия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Котовасия
Участник
LocksmithPC{$APPTYPE CONSOLE} ?
"Кому сейчас легко?" - ©.
...
Рейтинг: 0 / 0
29.08.2018, 07:37
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39695220
AK-Shah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AK-Shah
Участник
schi,

авторДля того, чтобы приводить правильные строчки, надо знать задачу. То, что написано, мало того, что неправильно, оно еще и не нужно, потому что kernel32 импортируется любым исполняемым модулем на Delphi и чтобы вызвать GetPrivateProfileString не надо изобретать дополнительных DLL.

Так оно. Собственно, это была попытка решить псевдо-проблему, когда с Visual Foxpro (да-да, на нем пишем клиента, хотя понимаю, что переходить надо на другое - си-шарп, делфи, или java - что-то из этого в наших реалиях. Не передавались параметры, вроде все изрыл, не находил ошибки. Суть - из под APP-менеджера стартовала фокс-программа. Но были проблемы где-то в импорте ДЛЛ-функций. К счастью, это место я нашел (может кому пригодится - обычно ИНИ-файл лежит рядом с ЕХЕ, из фокса путь вычитывался по ТЕКУЩЕМУ каталогу... Но из под Делфи-менеджера-проектов путь при запуске был относительно не ЕХЕ-файла фокса, а ЕХЕ-файла менеджера. Переписали строчку через фоксовую SYS(16) - получить имя запускаемой программы + функция получения полного пути. все взлетело. необходимость в длл действительно отпала. но вспоминать паскаль уже под делфи - только прибавило сил и решимости. К тому же у нас на Делфи большинство проектов, но и без Фокспро пока делать нечего, без нормализации все хранится.

хочется поблагодарить всех тех. кто давал дельные советы и ссылки.

Спасибо, коллеги!
...
Рейтинг: 0 / 0
29.08.2018, 20:45
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39695223
AK-Shah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AK-Shah
Участник
По крайней мере я не согласен с утверждением, что там "все строчки неправильные". Да, согласен, что многие вещи подзабылись, а что-то в Делфи стало по-другому в сравнении с Турбо Паскалем, на котором я и недокументированные функции под Нетварь юзал, и вставки на ассемблере писал. Это было в 90-годы. Много воды утекло с тех пор...
...
Рейтинг: 0 / 0
29.08.2018, 21:00
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39695225
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
AK-Shahсогласен, что многие вещи подзабылись

Конечно, это ведь так просто: забыть работу с указателями и то, что память под буфера надо
выделять пере использованием.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
29.08.2018, 21:15
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39695249
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Dimitry Sibiryakov,

Он это и сделал

Код: pascal
1.
 lcBuf := '                               ' + chr(0);




Видишь сколько пробелов поставил. Даже позаботился влепить #0 на конец. Кстати про #0 он не в курсе
...
Рейтинг: 0 / 0
29.08.2018, 23:23
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39695252
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
Гирлионайльдо
Код: pascal
1.
 lcBuf := ' ' + chr(0);





Видишь сколько пробелов поставил
На глаз таки меньше 512.
...
Рейтинг: 0 / 0
29.08.2018, 23:55
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39697164
Фотография ну я
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ну я
Участник
LocksmithPC{$APPTYPE CONSOLE} ?
Для надежности это лучше писать дважды.
...
Рейтинг: 0 / 0
03.09.2018, 13:35
| Ответить | Цитировать | Написать  
DLL на Delphi
    #39697184
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
ну яLocksmithPC{$APPTYPE CONSOLE} ?
Для надежности это лучше писать дважды.
Зачем?
...
Рейтинг: 0 / 0
03.09.2018, 13:53
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / DLL на Delphi
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39694649&tid=2040453]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 90ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 80ms
get tp. blocked users:
 1ms
others: 252ms
total:  473ms
созд. / загр.: 473ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]