Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi примеры надо сдать завтра • Дана матрица MxN. Найти среднее арифметическое всех элементов и выдать на экран матрицу, у которой число больше арифметического возведены в квадрат. • Дана марица MxN. Отсортировать элементы... https://www.cyberforum.ru/ delphi-beginners/ thread329752.html улитка 5*5 Delphi
как создать улитку по часовой срелке от верхнего правого угла? Добавлено через 26 минут есть код, только он запускается и верхнего левого угла, как исправить? unit Unit1; interface uses ...
Delphi найти скорость, путь, время https://www.cyberforum.ru/ delphi-beginners/ thread329719.html
почему при переключении точки с времени на скорость или с пути на скорость значения label не меняются на путь и время? исправьте ошибку пожалуйста unit Unit1; interface uses Windows,...
Delphi блокнот https://www.cyberforum.ru/ delphi-beginners/ thread329709.html
как сделать что бы менялись 1 и 5 строки и найти кол-во строк unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan,...
Типы Extended, String и Comp Delphi
Здравствуйте. Хотел сделать программу, которая спрашивала бы тип тригоном. функции, принимала аргумент и считала значение. При попытке компиляции выдает ошибку: Unit1.pas(64): Incompatible types:...
Delphi ошибка приложения Привет всем. Вопросик может кто с таким встречался. Написал программу писалось под 7-кой все летает когда приложение переношу на XP при запуске программы вылетает ошибка она не критична но мне она... https://www.cyberforum.ru/ delphi-beginners/ thread329678.html
Delphi Вычислить сумму тех из них, порядковые номера которых являются простыми числами. Всем привет! Помогите пожалуйста составить програмы. Спасибо! 1 задача В заданный непустой текст входят цифры и букви.Визначиты, удовлетворяет данный текст таком условии: текст состоит из k букв... https://www.cyberforum.ru/ delphi-beginners/ thread329672.html Delphi Нужно скомбинировать код
Вообще задача состоит в следующем-программа рассчитывает линейную зависимость по значениям, загружаемым из текстового файла. В результате выдается линейное уравнение вида y = ax + b, значения...
Delphi Определение ускорения движения заданной точки https://www.cyberforum.ru/ delphi-beginners/ thread329657.html
Здравствуйте подскажите с чего следует начать при " определении ускорения движения заданной точки" вот само уравнение r=ti+t^2*j+2/3*t^3*k
Delphi При компиляции ругается на проверенный файл... https://www.cyberforum.ru/ delphi-beginners/ thread329649.html
Добрый день! Пытаюсь скомпилировать проект Delphi 2009 в Delphi XE - но при компиляции возникают ошибки в обычном месте, ругается на файл cxFilterDialog: cxFilterDialog.pas(245): E2003 Undeclared...
Запретить второй запуск программы. Приложение без окон Delphi
Сабж. Без подключения в uses компонента формы. Все примеры что находил в инете юзали окна.
Delphi Как сдвинуть курсор в TEdit на нужную позицию Мне надо сдвинуть курсор в TEdit на нужную позицию. Программа редактирует Edit1.Text, и после программной правки надо передвинуть курсор в конец строки. Как это сделать? Решение этой проблемы сильно... https://www.cyberforum.ru/ delphi-beginners/ thread329624.html
0 / 0 / 0
Регистрация: 01.07.2011
Сообщений: 12
0

Dll: функция с входными параметрами - Delphi - Ответ 1818803

05.07.2011, 11:28. Показов 1805. Ответов 2
Метки (Все метки)

Простейший пример:
Dll
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
library TestDll;
 
uses
  SysUtils,
  Classes;
 
procedure test(Par1, Par2, Par3, Par4, Par5: string);
var Result: string;
begin
  Result := Par1 + #10 + Par2 + #10 + Par3 + #10 + Par4 + #10 + Par5;
end;
 
{$R *.res}
 
exports
  test name 'test';
 
begin
end.
Вызов в приложении:

Delphi
1
2
3
4
5
6
procedure test(Par1, Par2, Par3, Par4, Par5: string); external 'TestDll.dll' name 'test';
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  test('11','22','33','44','55');
end;
Здесь все корректно.

Теперь заменим процедуру функцией:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
library TestDll;
 
uses
  SysUtils,
  Classes;
 
function test(Par1, Par2, Par3, Par4, Par5: string): string;
begin
  Result := Par1 + #10 + Par2 + #10 + Par3 + #10 + Par4 + #10 + Par5;
end;
 
{$R *.res}
 
exports
  test name 'test';
 
begin
end.
и соответственно

Delphi
1
2
3
4
5
6
7
8
function test(Par1, Par2, Par3, Par4, Par5: string): string; external 'TestDll.dll' name 'test';
 
procedure TForm1.btn1Click(Sender: TObject);
var str: string;
begin
  str := test('11','22','33','44','55');
  ShowMessage(str);
end;
ShowMessage по кнопке отрабатывает, но сразу вслед за ним "Неверная операция с указателем". Где грабли? В упор не вижу

Вернуться к обсуждению:
Dll: функция с входными параметрами Delphi
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.07.2011, 11:28
Готовые ответы и решения:

функция за 2 входными параметрами
есть такая задачка ...прошу помочь спосибо определить функцию которая за 2 входными параметрами...

Функция с пустыми входными параметрами, результат которой скалярное выражение (create function)
Помогите пожалуйста написать функцию именно с пустыми входными параметрами, не понимаю как это...

Не работает функция DLL с параметрами
Доброго всем времени суток. Без параметров функция работает. Как только начинаю передавать...

C# dll функция с output параметрами в Delphi
Здравствуйте, есть следующая функция написана на шарпе и помещена в dll библиотеку: namespace...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2011, 11:28
Помогаю со студенческими работами здесь

Хранимые процедуры с входными параметрами
Здравствуйте! Пишу на C# клиент. Существует несколько ComboBox, из которых пользователь выбирает...

Перезагрузка программы с заданными входными параметрами
Добрый день. В общем есть программа, которая на вход получает имя файла конфигурации. Нужно ее...

Создание процедуры с входными параметрами и курсором
Никак не могу найти ошибку в запросе (SQLQuery11) Создать процедуру с входными параметрами и...

Объясните разницу между входными и выходными параметрами
Здравствуйте, объясните мне пожалуйста разницу между входными и выходными параметрами в хранимых...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru