Передача структуры данных в DLL (stdcall)

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  procedure CobCall (WS_CAMPO1: String; WS_CAMPO2: String); stdcall;
  external 'COB.DLL' name'COBPROG';
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
WS_CAMPO1: String;
WS_CAMPO2: String;
begin
WS_CAMPO1:=Edit1.Text;
CobCall (WS_CAMPO1,WS_CAMPO2);
Edit2.text:=WS_CAMPO2;
end;
 
end.

WS_CAMPO1:=Edit1.Text;
CobCall (WS_CAMPO1, WS_CAMPO2);
Edit2.Text:=WS_CAMPO1;
Label1.Caption:=WS_CAMPO2;

procedure CobCall (var WS_CAMPO1: TArrChar15; var WS_CAMPO2: TArrChar15); pascal;
  external 'COB.DLL' name 'COBPROG';

var
  aux: String;
  idx: integer;
  WS_CAMPO1: TArrChar15;
 
begin
aux:=Edit1.Text;
idx:= 1;
SetLength(aux, 15);
for idx:= 1 to 15 do begin
WS_CAMPO1[idx]:=aux[idx];
end;

uses
  Math;
...
procedure TForm1.Button1Click(Sender: TObject);
type
  TArrChar15 = array[0..14] of Char;
var
  ArrChar : TArrChar15;
  StrTmp  : String;
  i       : Integer;
begin
  //Очищаем массив ArrChar, чтобы в нём небыло мусора.
  for i := Low(ArrChar) to High(ArrChar) do begin
    ArrChar[i] := Char(0);
  end;
  
  //Переносим данные из Edit.Text в массив.
  for i := 0 to Min( High(ArrChar), (Length(Edit1.Text) - 1) ) do begin
    ArrChar[i] := Edit1.Text[i + 1];
  end;
  
  //Показываем сведения из символьного массива ArrChar.
  ShowMessage(ArrChar);
 
end;

uses
  Math;
...
procedure TForm1.Button1Click(Sender: TObject);
type
  TArrChar15 = array[0..14] of Char;
var
  ArrChar : TArrChar15;
  StrTmp  : String;
  i       : Integer;
begin
  //Очищаем массив ArrChar, чтобы в нём небыло мусора.
  for i := Low(ArrChar) to High(ArrChar) do begin
    ArrChar[i] := Char(0);
  end;
  
//Переносим данные из Edit.Text в массив.
  //Используем выражение: Min( SizeOf(ArrChar), Length(Edit1.Text) * SizeOf(Char) )
  //для того чтобы при копировании не выйти за пределы массива ArrChar.
  //Move( PChar(Edit1.Text)^, ArrChar, Min( SizeOf(ArrChar), Length(Edit1.Text) * SizeOf(Char) ) );
 
  //Показываем сведения из символьного массива ArrChar.
  ShowMessage(ArrChar);
 
end;

type
  TArrChar15  = array[1..15] of Char;
procedure CobCall (var WS_CAMPO3: TArrChar15; var WS_CAMPO2: TArrChar15;
    var WS_CAMPO1: TArrChar15);  pascal; external 'COB.DLL' name'COBPROG';
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  aux: String[15];
  idx: integer;
  WS_CAMPO3: TArrChar15;
  WS_CAMPO2: TArrChar15;
  WS_CAMPO1: TArrChar15;
begin
WS_CAMPO1:='               ';
WS_CAMPO2:='               ';
WS_CAMPO3:='               ';
aux:=      '               ';
aux:=Edit1.Text;
 
for idx:= 1 to 15 do begin
  WS_CAMPO1[idx]:=aux[idx];
end;
 
Button1.Caption:='['+aux+']';
 
//WS_CAMPO1:='000000000000001';
//WS_CAMPO2:='ABC            ';
//WS_CAMPO3:='000000000000003';
 
CobCall (WS_CAMPO3, WS_CAMPO2, WS_CAMPO1);
 
Edit1.Text:=WS_CAMPO1;
Edit2.Text:=WS_CAMPO2;
Edit3.Text:=WS_CAMPO3;
end;
end.

type
  TArrChar15 = array[0..14] of Char;
...
  //Переносим данные из Edit.Text в массив.
  for i := 0 to Min( High(ArrChar), (Length(Edit1.Text) - 1) ) do begin
    ArrChar[i] := Edit1.Text[i + 1];
  end;

type
  TArrChar15 = array[0..14] of Char;
...
  //Переносим данные из Edit.Text в массив.
  for i := 0 to High(ArrChar) do begin
    ArrChar[i] := Edit1.Text[i + 1];
  end;

  //Очищаем массив ArrChar, чтобы в нём небыло мусора.
  for i := Low(ArrChar) to High(ArrChar) do begin
    ArrChar[i] := Char(0);
  end;

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    XPManifest1: TXPManifest;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    validar: TButton;
    limpiar: TButton;
    GroupBox3: TGroupBox;
    RESPUESTA: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    MENSAJE: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure VALIDARClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  X30  = array[1..30] of Char;
  X80  = array[1..80] of Char;
  X3   = array[1..3]  of Char;
  X6   = array[1..6]  of Char;
  X26  = array[1..26] of Char;
  X8   = array[1..8]  of Char;
  X10  = array[1..10] of Char;
  X72  = array[1..72] of Char;
procedure CobCall (var WS_FILLER: X30;
                   var WS_DESCRIP: X80;
                   var WS_RC: X3;
                   var WS_NUMMER: X6;
                   var WS_OUT_STAMP: X26;
                   var WS_OUT_TIME: X8;
                   var WS_OUT_DATE: X10;
                   var WS_INDATA: X72;
                   var WS_OPCION: X3);
        pascal; external 'PBDMR001.dll' name'PBDMR001';
 
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Items.Add('1  - Validar una Fecha, Formato: AAAA-MM-DD');
  ListBox1.Items.Add('2  - Validar una Hora');
  ListBox1.Items.Add('3  - Validar TIMESTAMP');
  ListBox1.Items.Add('4  - Sumar un número de días a una fecha');
  ListBox1.Items.Add('5  - Sumar un número de meses a una fecha');
  ListBox1.Items.Add('6  - Sumar un número de años a una fecha');
  ListBox1.Items.Add('7  - Sumar un número de horas a la hora indicada');
  ListBox1.Items.Add('8  - Sumar un número de minutos a la hora indicada');
  ListBox1.Items.Add('9  - Sumar un número de segundos a la hora indicada');
  ListBox1.Items.Add('10 - Sumar un número de días a TIMESTAMP');
  ListBox1.Items.Add('11 - Sumar un número de meses a TIMESTAMP');
  ListBox1.Items.Add('12 - Sumar un número de años a TIMESTAMP');
  ListBox1.Items.Add('13 - Sumar un número de horas a TIMESTAMP');
  ListBox1.Items.Add('14 - Sumar un número de minutos a TIMESTAMP');
  ListBox1.Items.Add('15 - Sumar un número de segundos a TIMESTAMP');
  ListBox1.Items.Add('16 - Calcular la diferencia en días entre 2 fechas');
  ListBox1.Items.Add('17 - Calcular la diferencia en segundos entre 2 horas');
  MENSAJE.Caption := '';
  ListBox1.ItemIndex:=0;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
  IF  (Edit1.Text = '') or
      (Edit1.Text = ' ') then
      begin
      VALIDAR.Enabled := false;
//     LIMPIAR.Enabled := false;
      Edit1.Text := '';
      end
  else
      begin
      VALIDAR.Enabled := true;
//      LIMPIAR.Enabled := true;
  end;
 
end;
procedure TForm1.VALIDARClick(Sender: TObject);
var
//*************************************************
//* CAMPO AUXILIAR ESPACIOS Y PASAR EDIT.TEXT
//*************************************************
  aux: String[72];
//*************************************************
//*               CAMPO INDICE
//*************************************************
  idx: integer;
//*************************************************
//*           CAMPOS DE LA LINKAGE
//*************************************************
  WS_FILLER    : X30;
  WS_DESCRIP   : X80;
  WS_RC        : X3;
  WS_NUMMER    : X6;
  WS_OUT_STAMP : X26;
  WS_OUT_TIME  : X8;
  WS_OUT_DATE  : X10;
  WS_INDATA    : X72;
  WS_OPCION    : X3;
begin
//*************************************************
//*               LA PROCEDURE
//*************************************************
//-------- PASA OPCION
if  ListBox1.ItemIndex=0 then
    begin
    WS_OPCION:='001';
end;
if  ListBox1.ItemIndex=1 then
    begin
    WS_OPCION:='002';
end;
if  ListBox1.ItemIndex=2 then
    begin
    WS_OPCION:='003';
end;
if  ListBox1.ItemIndex=3 then
    begin
    WS_OPCION:='004';
end;
if  ListBox1.ItemIndex=4 then
    begin
    WS_OPCION:='005';
end;
if  ListBox1.ItemIndex=5 then
    begin
    WS_OPCION:='006';
end;
if  ListBox1.ItemIndex=6 then
    begin
    WS_OPCION:='007';
end;
if  ListBox1.ItemIndex=7 then
    begin
    WS_OPCION:='008';
end;
if  ListBox1.ItemIndex=8 then
    begin
    WS_OPCION:='009';
end;
if  ListBox1.ItemIndex=9 then
    begin
    WS_OPCION:='010';
end;
if  ListBox1.ItemIndex=10 then
    begin
    WS_OPCION:='011';
end;
if  ListBox1.ItemIndex=11 then
    begin
    WS_OPCION:='012';
end;
if  ListBox1.ItemIndex=12 then
    begin
    WS_OPCION:='013';
end;
if  ListBox1.ItemIndex=13 then
    begin
    WS_OPCION:='014';
end;
if  ListBox1.ItemIndex=14 then
    begin
    WS_OPCION:='015';
end;
if  ListBox1.ItemIndex=15 then
    begin
    WS_OPCION:='016';
end;
if  ListBox1.ItemIndex=16 then
    begin
    WS_OPCION:='017';
end;
 
//---------------------------
//       INICIALIZA
//---------------------------
WS_FILLER :='                              ';
WS_RC     :='   ';
WS_NUMMER :='      ';
WS_OUT_STAMP:='                          ';
WS_OUT_TIME:='        ';
WS_OUT_DATE:='          ';
for idx:= 1 to 80 do begin
    WS_DESCRIP[idx]:=' '
end;
for idx:= 1 to 72 do begin
    WS_INDATA[idx]:=' '
end;
aux:=
'                                                                        ';
 
//==============================================================================
//aux:=Edit1.Text;
//for idx:= 1 to 72 do begin
//    WS_INDATA[idx]:=aux[idx]
//end;
 
//---------------------------
//   LLAMADA RUTINA COBOL
//---------------------------
CobCall (WS_FILLER,
         WS_DESCRIP,
         WS_RC,
         WS_NUMMER,
         WS_OUT_STAMP,
         WS_OUT_TIME,
         WS_OUT_DATE,
         WS_INDATA,
         WS_OPCION);
//---------------------------
Edit2.Text:=WS_RC;
MENSAJE.Caption:=WS_DESCRIP;
end;
end.

idx2:= 1;
for idx:= 4 to 75 do begin
    WS_pasadatos[idx]:=aux[idx2];
    idx2:=idx2+1;
end;