Недавно добавленные исходники

•  TDictionary Custom Sort  3 225

•  Fast Watermark Sources  2 990

•  3D Designer  4 750

•  Sik Screen Capture  3 259

•  Patch Maker  3 467

•  Айболит (remote control)  3 528

•  ListBox Drag & Drop  2 903

•  Доска для игры Реверси  80 770

•  Графические эффекты  3 843

•  Рисование по маске  3 171

•  Перетаскивание изображений  2 544

•  Canvas Drawing  2 672

•  Рисование Луны  2 500

•  Поворот изображения  2 091

•  Рисование стержней  2 119

•  Paint on Shape  1 524

•  Генератор кроссвордов  2 182

•  Головоломка Paletto  1 730

•  Теорема Монжа об окружностях  2 158

•  Пазл Numbrix  1 649

•  Заборы и коммивояжеры  2 016

•  Игра HIP  1 262

•  Игра Go (Го)  1 200

•  Симулятор лифта  1 421

•  Программа укладки плитки  1 177

•  Генератор лабиринта  1 512

•  Проверка числового ввода  1 297

•  HEX View  1 466

•  Физический маятник  1 322

•  Задача коммивояжера  1 357

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Простой шаблон для 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. 
{-----------------------------------------------------------}





Похожие по теме исходники

Нейросеть для распознавания образов

Механизм станка качалки для нефти

Весы для взвешивания

Кувшины для воды

 

Доска для игры Реверси

Delphi Magazine

Tetris DelphiX

Quake Delphi Sources

 

Delphi MMOG

Delphi Яндекс Директ

Delphi to HTML Converter

Проверка знаний Delphi

 

Is Delphi Dying Monitor

Autosave Delphi 7

DLL Form

DLL in Resources

 

DLL Injector




Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте