SEPA Komponente gesucht

[arnof]

Hallo, ich hatte damit mal angefangen, aber nach einigen Tests die Sache verworfen und es lieber selbst gemacht ...

Hier haste mal einen Anfang:

Delphi-Quellcode:

unit afs_SEPADLL;


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

const

  dllname = 'sevDTA20.DLL';

type 
  AFS_String = AnsiString;

    // Initialisierung + Beenden
  TsevDTA_Init = function sevDTA_Init (sInit :AFS_String):LongInt;

  TsevDTA_BLZSetPath = procedure (sPath :AFS_String);

  TsevDTA_BLZFileDate = function (sDatum :AFS_String):LongInt;

  TsevDTA_Close = procedure ( lHandle: LongInt);


  // SEPA-Datei erstellen
  TsevSEPA_CreateFile = function (sFilename :AFS_String; iOvrWriteExists LongInt):LongInt;

  TsevSEPA_CloseFile = procedure (fHandle: LongInt);

  TsevSEPA_SetProperty = function (xProperty, Value:AFS_String):LongInt;

  TsevSEPA_FileInit = function (fHandle: LongInt;
                                sKZ ,
                                sName ,
                                KtoInh ,
                                IBAN ,
                                BIC ,
                                RefId ,
                                Datum :AFS_String;
                                LcCode,
                                SeqType : LongInt;
                                CdtrId:AFS_String):LongInt;

  TsevSEPA_FileAddRec = function (
   fHandle: LongInt;
   PmtId ,
   PmtAmt ,
   sName ,
   IBAN ,
   BIC ,
   RmtInf ,
   MndtId ,
   MndtDt :AFS_String):LongInt;

   TsevSEPA_FileEnd = function (fHandle :LongInt) :LongInt;

   TsevSEPA_ExportHTML = function (Filename :AFS_String):LongInt;

   TsevSEPA_IBANIsValid = function (IBAN,BIC :AFS_String):LongInt;

   TsevSEPA_CalcIBAN = function (BLZ , KontoNr , BIC , IBAN :AFS_String):LongInt;