Передача структуры данных в 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.

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;
    odate: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    returncode: TEdit;
    MENSAJE: TLabel;
    Label4: TLabel;
    FORMATO: TLabel;
    Label5: TLabel;
    otime: TEdit;
    Label6: TLabel;
    ostamp: TEdit;
    Label7: TLabel;
    outnum: TEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure VALIDARClick(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure limpiarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
X238  = array[1..238] of Char;
procedure CobCall (var WS_pasadatos: X238)
        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');
  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;
      Edit1.Text := '';
      end
  else
      begin
      VALIDAR.Enabled := true;
  end;
 
end;
procedure TForm1.VALIDARClick(Sender: TObject);
var
//*************************************************
//* CAMPOS AUXILIARES
//*************************************************
  aux: String[72];
  auxopc: String[3];
  idx: integer;
  idx2: integer;
  OUT_DATE: string[10];
  OUT_TIME: string[8];
  OUT_STAMP: string[26];
  OUT_NUMMER: string[6];
  RETCOD: string[3];
  DESCRIP: string[80];
//  FILLER: string[30];
//--------------------
  WS_pasadatos : X238;
begin
//-------- PASA OPCION
if  ListBox1.ItemIndex=0 then
    begin
    auxopc:='001';
end;
if  ListBox1.ItemIndex=1 then
    begin
    auxopc:='002';
end;
if  ListBox1.ItemIndex=2 then
    begin
    auxopc:='003';
end;
if  ListBox1.ItemIndex=3 then
    begin
    auxopc:='004';
end;
if  ListBox1.ItemIndex=4 then
    begin
    auxopc:='005';
end;
if  ListBox1.ItemIndex=5 then
    begin
    auxopc:='006';
end;
if  ListBox1.ItemIndex=6 then
    begin
    auxopc:='007';
end;
if  ListBox1.ItemIndex=7 then
    begin
    auxopc:='008';
end;
if  ListBox1.ItemIndex=8 then
    begin
    auxopc:='009';
end;
if  ListBox1.ItemIndex=9 then
    begin
    auxopc:='010';
end;
if  ListBox1.ItemIndex=10 then
    begin
    auxopc:='011';
end;
if  ListBox1.ItemIndex=11 then
    begin
    auxopc:='012';
end;
if  ListBox1.ItemIndex=12 then
    begin
    auxopc:='013';
end;
if  ListBox1.ItemIndex=13 then
    begin
    auxopc:='014';
end;
if  ListBox1.ItemIndex=14 then
    begin
    auxopc:='015';
end;
if  ListBox1.ItemIndex=15 then
    begin
    auxopc:='016';
end;
if  ListBox1.ItemIndex=16 then
    begin
    auxopc:='017';
end;
for idx:= 1 to 238 do begin
    WS_pasadatos[idx]:=' '
end;
for idx:= 1 to 72 do begin
    aux[idx]:=' '
end;
aux:=Edit1.text;
idx2:= 1;
for idx:= 1 to 3 do begin
    WS_pasadatos[idx]:=auxopc[idx2];
    idx2:=idx2+1;
end;
idx2:= 1;
for idx:= 4 to 75 do begin
    WS_pasadatos[idx]:=aux[idx2];
    idx2:=idx2+1;
end;
//***********************************************************
  CobCall (WS_pasadatos);
//***********************************************************
  OUT_DATE:='          ';
  OUT_TIME:='        ';
  OUT_STAMP:='                          ';
  OUT_NUMMER:='      ';
  RETCOD:='   ';
  for idx:= 1 to 80 do begin
    DESCRIP[idx]:=' ';
  end;
//----------------------------------------
idx2:= 1;
for idx:= 76 to 85 do begin
    OUT_DATE[idx2]:=WS_pasadatos[idx];
    idx2:=idx2+1;
end;
idx2:= 1;
for idx:= 86 to 93 do begin
    OUT_TIME[idx2]:=WS_pasadatos[idx];
    idx2:=idx2+1;
end;
idx2:= 1;
for idx:= 94 to 119 do begin
    OUT_STAMP[idx2]:=WS_pasadatos[idx];
    idx2:=idx2+1;
end;
idx2:= 1;
for idx:= 120 to 125 do begin
    OUT_NUMMER[idx2]:=WS_pasadatos[idx];
    idx2:=idx2+1;
end;
idx2:= 1;
for idx:= 126 to 128 do begin
    RETCOD[idx2]:=WS_pasadatos[idx];
    idx2:=idx2+1;
end;
idx2:= 1;
for idx:= 129 to 208 do begin
    DESCRIP[idx2]:=WS_pasadatos[idx];
    idx2:=idx2+1;
end;
ODATE.Text:=OUT_DATE;
OTIME.Text:=OUT_TIME;
OSTAMP.Text:=OUT_STAMP;
OUTNUM.Text:=OUT_NUMMER;
MENSAJE.Caption:='';
MENSAJE.Caption:=DESCRIP;
RETURNCODE.Text:=RETCOD;
Memo1.Text:=WS_pasadatos;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if  ListBox1.ItemIndex=0 then
    begin
    formato.CAPTION:='AAAA-MM-DD';
    VALIDAR.Caption:='Validar';
end;
if  ListBox1.ItemIndex=1 then
    begin
    formato.CAPTION:='HH:MM:SS';
    VALIDAR.Caption:='Validar';
end;
if  ListBox1.ItemIndex=2 then
    begin
    formato.CAPTION:='0000-00-00-00.00.00.000000';
    VALIDAR.Caption:='Validar';
end;
if  ListBox1.ItemIndex=3 then
    begin
    formato.CAPTION:='AAAA-MM-DDNNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=4 then
    begin
    formato.CAPTION:='AAAA-MM-DDNNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=5 then
    begin
    formato.CAPTION:='AAAA-MM-DDNNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=6 then
    begin
    formato.CAPTION:='HH:MM:SSNNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=7 then
    begin
    formato.CAPTION:='HH:MM:SSNNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=8 then
    begin
    formato.CAPTION:='HH:MM:SSNNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=9 then
    begin
    formato.CAPTION:='0000-00-00-00.00.00.000000NNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=10 then
    begin
    formato.CAPTION:='0000-00-00-00.00.00.000000NNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=11 then
    begin
    formato.CAPTION:='0000-00-00-00.00.00.000000NNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=12 then
    begin
    formato.CAPTION:='0000-00-00-00.00.00.000000NNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=13 then
    begin
    formato.CAPTION:='0000-00-00-00.00.00.000000NNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=14 then
    begin
    formato.CAPTION:='0000-00-00-00.00.00.000000NNNNNN';
    VALIDAR.Caption:='Sumar';
end;
if  ListBox1.ItemIndex=15 then
    begin
    formato.CAPTION:='AAAA-MM-DDAAAA-MM-DD';
    VALIDAR.Caption:='Calcular';
end;
if  ListBox1.ItemIndex=16 then
    begin
    formato.CAPTION:='HH:MM:SSHH:MM:SS';
    VALIDAR.Caption:='Calcular';
end;
end;
procedure TForm1.limpiarClick(Sender: TObject);
begin
EDIT1.Text:='';
ODATE.Text:='';
OTIME.Text:='';
OSTAMP.Text:='';
OUTNUM.Text:='';
MENSAJE.Caption:='';
RETURNCODE.Text:='';
end;
end.

 
for idx:= 1 to 80 do begin
    DESCRIP[idx]:='*';
end;

 
DESCRIP:='                                        '+
           '                                        ';

uses
  Windows;
 
//Функция берёт строку в ANSI кодировке (Windows)
//и возвращает её перевод в OEM кодировку (DOS) в виде отдельной строки.
function StrAnsiToOem(aStr : String) : String;
begin
  Result := '';
  if Length(aStr) > 0 then begin
    SetLength(Result, Length(aStr));
    CharToOem(PChar(aStr), PChar(Result));
  end;
end;
 
//Функция берёт строку в OEM кодировке (DOS)
//и возвращает её перевод в ANSI кодировку (Windows) в виде отдельной строки.
function StrOemToAnsi(aStr : String) : String;
begin
  Result := '';
  if Length(aStr) > 0 then begin
    SetLength(Result, Length(aStr));
    OemToChar(PChar(aStr), PChar(Result));
  end;
end;