Работа с DLL

@AkmaL96 · Регистрация: 16.04.2013

Author24 — интернет-сервис помощи студентам

Как передать два и более значение функции из DLL библиотеки в Форму?

DenNik · 08.01.2014, 13:03

так же как и из обычной функции

Delphi

1	function Func(const A: integer; var B: integer; var C: word);

в данном примере В и С - переменные, в которые можно записать значения, полученные в результате работы функции, которая находится в DLL

@AkmaL96 · 08.01.2014, 16:13 **[ТС]**

Это как передать, а выводить как?
Я так попробовал, но выдает ошибку там где стоит стрелки..

Delphi

1	function DiskDrive(var a,b:string):string; stdcall; external 'DiskDrive.dll';

а дальше..

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var a,b:string;
begin
 -->StringGrid1.Cells[0,1]:=DiskDrive(a);
 -->StringGrid1.Cells[0,2]:=DiskDrive(b);
end;

DenNik · 08.01.2014, 16:24

Сообщение от DenNik

Delphi

1	function Func(const A: integer; var B: integer; var C: word);

Сообщение от AkmaL96

Это как передать, а выводить как?

ключевым словом var помечатся переменная, передаваемая в функцию по ссылке (че это значит, читай самостоятельно), т.е. ее значение можно менять в теле функции. таким образом, вызвав функцию и передав ей переменную, находящуюся ВНЕ функции, можно в эту переменную записать результат, полученный при работе функции. пример

описание функции

Delphi

function MultiSqr(var A: integer; var B: integer): integer;
begin
  A:= Sqr(A);
  B:= Sqr(B);
  Result:= A + B;
end;

использование

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  A,B,Summ: integer;
begin
  // возвести в квадрат два числа, а также возвратить их сумму
  A:= 3;
  B:= 4;
  Summ:= MultiSqr(A,B);
  // результаты
  // Summ = 25
  // А = 9
  // В = 16
end;

понятно? значение переменных, помеченных словом var, можно менять внутри функции

@AkmaL96 2 / 2 / 1 Регистрация: 16.04.2013 Сообщений: 45
		1
	Работа с DLL 08.01.2014, 10:48. Показов 871. Ответов 3 Метки нет (Все метки) Как передать два и более значение функции из DLL библиотеки в Форму? 0

	08.01.2014, 16:24

Опции темы