
Последние записи
- Конвертер heic в jpg
- Проверка на шестнадцатеричный формат записи
- Отдать пользователю файл с помощью file_get_contents()
- Написать собственую функцию operator[] для битов
- Проблема с движением 2D человека
- OpenGl.Создание винтовой лестницы
- Склеить несколько файлов в один
- Windows 10 сменить администратора
- Рандомное слайдшоу
- Событие для произвольной области внутри TImage

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
4th
Май
Исходник простейшей программы с использованием DLL
Привет, помогите разобраться, как мне можно создать простейшую программу в Делфи с использованием DLL, допустим подсчитать а+b.
Noor
Все до простоты просто
Исходник библиотеки aka DLL
library Project2;
uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
//Сумма значений х и у
function Sum (X,Y: Integer): integer;
begin
Result:=X+Y
end;
exports Sum;
begin
end.
Использование DLL в своей программе
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
// тут объявляем нашу библиотеку и функцию которую она экспортирует
function Sum (X,Y: Integer): integer;external 'Project2.dll';
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//пример использования
Button1.Caption := IntToStr(Sum(1,2));
end;
end.
Облако меток
реестр
ассемблер
timer
TBitMap
SaveToFile
ShellExecute
программы
массив
советы
word
MySQL
SQL
ListView
pos
random
компоненты
дата
LoadFromFile
form
база данных
сеть
html
php
RichEdit
indy
строки
Win Api
tstringlist
Image
мысли
макросы
Edit
ListBox
office
C/C++
memo
графика
StringGrid
поиск
canvas
файл
Pascal
форма
Файлы
интернет
Microsoft Office Excel
excel
winapi
журнал ПРОграммист
Delphi
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)