Mehrere Ergebnisse aus Dll an Programm übergeben, aber wie?

[Armageddon]

Ich werds morgen mal Versuchen hab jetzt keinen Nerv mehr dazu. Mal schauen ob ich das mit dem dynamisch laden dort auch hinkrieg. Mach das beim Speichern so:

Delphi-Quellcode:

type
  TPaddySpeichern = function(Code: PChar):Boolean; stdcall;

Delphi-Quellcode:

function PaddySpeichern(GCode: PChar):Boolean;
var
  PaddySpeichern: TPaddySpeichern;
  DllHandle: THandle;
begin
  Result := False;
  DllHandle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0))+'mtrcnc32.dll'));
  if DllHandle <> 0 then
  begin
    @PaddySpeichern := GetProcAddress(DllHandle, 'Speichern');
    if @PaddySpeichern <> nil then
    begin
      Result := PaddySpeichern(GCode);
    end;
    FreeLibrary(DllHandle);
  end;
end;

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  GCode: String;
begin
  Vorschau();
  GCode := '';
  GCode := GCode + '*1' + #13#10;
  GCode := GCode + Form1.RichEdit1.Text + #13#10;
  GCode := GCode + '*2' + #13#10;
  GCode := GCode + Form1.RichEdit2.Text;
  if (PaddySpeichern(PChar(GCode))) = False then Exit;
  Close;
end;