Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Простой шаблон для Delphi DLL
Пример DLL
Без модулей
Во-первых, "скелет" DLL, которую вы хотели, сохраняете как DLLFRAME.DPR:
{---------------------DLLFRAME.DPR--------------------------}
library Dllframe;
uses
WinTypes;
function
GetString : string
; export ;
begin
Result := 'Привет из DLL!' ;
end
;
exports
GetString;
begin
end
.
{-----------------------------------------------------------}
Теперь напишем вызывающую программу и сохраним ее как DLLCALL.DPR:
{---------------------DLLCALL.DPR---------------------------}
program Dllcall;
uses
Dialogs;
{$R *.RES}
function GetString : string
; far ; external
'DLLFRAME' ;
begin
MessageDlg( GetString, mtInformation, [ mbOK ], 0 ) ;
end
.
{-----------------------------------------------------------}
С модулями
Код вызывающей программы, сохраните ее как DLLCALL.DPR:
{---------------------DLLCALL.DPR---------------------------}
program Dllcall;
uses
Dialogs;
{$R *.RES}
function GetString : string
; far ; external
'MyDLL' ;
begin
MessageDlg( GetString, mtInformation, [ mbOK ], 0 ) ;
end
.
{-----------------------------------------------------------}
"скелет" DLL, которую вы хотели, сохраняете как DLLFRAME.DPR:
{---------------------DLLFRAME.DPR--------------------------}
library Dllframe;
uses
DLLUnit;
exports
GetString;
begin
end
.
{-----------------------------------------------------------}
Модуль, который мы сохраняем как dllunit.pas:
{---------------------dllunit.pas--------------------------}
unit DLLUnit;
interface
uses
WinTypes;
function
GetString: string
; export;
implementation
function
GetString: string
;
begin
GetString := 'Привет из DLL!' ;
end
;
begin
end
.
{-----------------------------------------------------------}