Home » Tipps & Tricks » Sonstiges » Sonstiges » Werte aus Formular-DLL zurückgeben

Werte aus Formular-DLL zurückgeben

Formular-DLL erstellen und Folgendes ergänzen/ersetzen:

type
  PTRec = ^TREc;
  TRec = record
    id  : String[10];
    pwd : String[10];
  end;

{$R *.RES}

procedure DLLFormular(ff:PTRec);
var
  DLLForm1: TDLLForm1;
begin
  DLLForm1:=TDLLForm1.Create(Application);
  try
    DLLForm1.ShowModal;
    ff.id  := DLLForm1.Edit1.Text;
    ff.pwd := DLLForm1.Edit2.Text;
  finally
    DLLForm1.Release;
  end;
end;

exports DLLFormular;

Host-Anwendung:

procedure DLLFormular(ff:PTRec); stdcall; external '.dll';


procedure TForm1.Button1Click(Sender: TObject);
var
  ff : TRec;
begin
  DLLFormular(@ff);
  ShowMessage(ff.id + #13 + ff.pwd); //werte der 2 Edit-felder ausgeben
end;