Ошибка при передаче массива в DLL и считывание результатов.

[Kolan]

В чём ошибка передачи массива в библиотеку и обратно.

library MyDLL;

uses ShareMem,
  SysUtils,
  Classes;
type rock=array[1..600] of Double;

procedure Rasch(a:Boolean; b,c:Real; d:Integer; var x,y:rock); stdcall;
var g,r,h:Real; i:Integer;
begin
g:=b;
r:=c-b;
h:=r/d;
for i:=1 to d-1 do
begin
x[i]:=g;
if a then
y[i]:=g*g+g+3 else y[i]:=4*g+3;
g:=g+h;
end;
end;
exports Rasch name 'Rasch';

{$R *.res}

begin
end.

Файл программы.

unit Unit1;

interface

uses ShareMem,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, ComCtrls;
type
Rock=array[1..600] of double;

type
  TForm1 = class(TForm)
  ...
// все возможные переменные связаные с компонентами
  ...
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  procedure Rasch(a:Boolean; b,c:Real; d:Integer; x,y:Rock); stdcall;
var
  Form1: TForm1;

implementation
  procedure Rasch; external 'MyDLL.dll' name 'Rasch';

{$R *.dfm}

function Size(a,b:Real):Real;
begin
if a<b then Result:=b-a else Result:=a-b;
end;

procedure TForm1.btn1Click(Sender: TObject);
var x1,y1,b,c,g,r,L,K,h:real; a:Boolean; i,d:Integer; x,y:Rock;
begin
b:=StrToFloat(edt1.Text); //Предел начала графика
c:=StrToFloat(edt2.Text); //Конец графика
d:=StrToInt(edt3.Text)+1; //Количество разбиений
if rb1.Checked=True then a:=True else a:=False;
Rasch(a,b,c,d,x,y);
for i:=1 to d-1 do
begin
mmo1.lines.add(IntToStr(i)+' точка');
mmo1.lines.add('x='+FloatToStr(x[i]));
mmo1.lines.add('y='+FloatToStr(y[i]));
end;
end;

end.

[maxionans]

в dll модуле объявлено:

procedure Rasch(a:Boolean; b,c:Real; d:Integer; var x,y:rock); stdcall;

а в приложении:

procedure Rasch(a:Boolean; b,c:Real; d:Integer; x,y:Rock); stdcall;

var перед x, y : Rock добавь.

[Kolan]

Я тупанул. Весь день просто писал запарился.

11:14

Хотя всё равно выдают ошубку EOutOfMemory.

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом. Это - флуд.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[Bug2000]

Если используешь ShareMem ( в твоем случае не обязательно )
То помещай первой в файл проекта а не формы

program testApp;

uses  ShareMem,
  Forms,
  UMain in 'UMain.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Из-за этого вероятно и EOutOfMemory.
Если d это количество точек, то надо было

for i:=1 to d do
и
h := r / (d - 1);

и посоветовал бы использовать динамические массивы.

uses
  ShareMem,
  SysUtils,
  Classes;

{$R *.res}

type
  rock = array of Double;

procedure Rasch(a: Boolean; b, c: Real; x, y: rock); stdcall;
var
  g, r, h: Real;
  i: Integer;
  d: Integer;
begin
  d := Length(x);
  if Length(y) <> d then
    raise Exception.Create('Неверно заданы массивы');
  if d < 2 then
    raise Exception.Create('Мало интервалов');
  g := b;
  r := c - b;
  h := r / (d - 1);
  for i := 0 to d - 1 do
  begin
    x[i] := g;
    if a then
      y[i] := g * g + g + 3
    else
      y[i] := 4 * g + 3;
    g := g + h;
  end;
end;

exports Rasch name 'Rasch';

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Rock = array of double;

type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    rb1: TCheckBox;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

procedure Rasch(a: Boolean; b, c: Real; x, y: Rock); stdcall;

implementation

procedure Rasch; external 'MyDLL.dll' name 'Rasch';

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  x1, y1, b, c, g, r, L, K, h: Real;
  a: Boolean;
  i, d: Integer;
  x, y: Rock;
begin
  b := StrToFloat(edt1.Text); // Предел начала графика
  c := StrToFloat(edt2.Text); // Конец графика
  d := StrToInt(edt3.Text) + 1; // Количество разбиений
  a := rb1.Checked;
  SetLength(x,d);
  SetLength(y,d);
  Rasch(a, b, c, x, y);
  for i := Low(x) to High(x) do
  begin
    mmo1.lines.add(IntToStr(i) + ' точка');
    mmo1.lines.add('x=' + FloatToStr(x[i]));
    mmo1.lines.add('y=' + FloatToStr(y[i]));
  end;
end;

end.