SEPA-Komponente

[Sourcemaker]

Die DLL aus der Demo ist gleich.

Testprojekt im Anhang.

Per Define kann zwischen den Versionen im sevDTA.pas umgeschaltet werden.

Die Version 30 funktioniert einwandfrei!

Die 40-Version ist noch nicht vollständig angepasst (einige Funktionen sind weg, andere müssen hinzugefügt werden).

Die DLLs und Daten-Dateien (braucht man nicht für Init) müsst ihr selbst besorgen.

LG

[jaenicke]

Versuche es mal mit PWideChar statt PAnsiChar in den DLL-Funktionen.

[Sourcemaker]

Nein, PWideChar macht keinen Unterschied.

Der Hersteller hat mittlerweile angekündigt, eine Verion 3.5 mit erweiterten Funktionen (wie 4.0) im Oktober zu releasen.

Diese Version wird auch wieder mit Delphi funktionieren (aber es wird sie nur als 32-Bit Version geben).


Jaenicke du hast aber schon mit Version 4.0 gestestet? Wenn ja verstehe ich es nicht.

LG

[jaenicke]

Mit Zahlen gibt es eine Exception. Wenn ich einfach nur Buchstaben übergebe, z.B. zzhjgf, klappt es. (Mit überall PWideChar statt PAnsiChar, auch in der DLL-Definition)

Ich habe leider jetzt gerade keine Zeit genauer nachzuschauen.

[Sourcemaker]

Mit den Buchstaben beim Init kann ich bestätigen - führt aber nicht dazu
das in Folge andere Aufrufe funktionieren würden.

PWideChar mal getestet mit 3.0 funktioniert nicht - bei Init erkennt er die Lizenz nicht und sagt Demo
und beim IBAN-Konvertierung (umgestellt auf PWideChar) klappt es auch nicht.

Also PAnsiChar scheint schon grundsätzlich richtig.

Trotzdem Danke, für Deine Mühe.

LG

[rapante]

Zitat von Sourcemaker:

Der Hersteller hat mittlerweile angekündigt, eine Verion 3.5 mit erweiterten Funktionen (wie 4.0) im Oktober zu releasen.

Diese Version wird auch wieder mit Delphi funktionieren (aber es wird sie nur als 32-Bit Version geben).
LG

Gibt es dazu schon irgendwelche Neuigkeiten? Auf der Webseite des Herstellers konnte ich nichts finden.

[rapante]

Der Support für Version 3.0 wird zum 31.03.2023 eingestellt.

Hat hier mittlerweile jemand die Version 4.0 zum Laufen gebracht?

[BerndS]

Wir haben die 4.0 noch nicht gekauft, aber Anfang nächsten Jahres werden wir das sicher machen müssen.
Hat sich den was grundlegendes geändert? Die Umstellung von 2 -> 3 war damals schnell gemacht.

[rapante]

Sourcemaker hatte da Probleme.

Zitat von Sourcemaker:

Der Hersteller hat mittlerweile angekündigt, eine Verion 3.5 mit erweiterten Funktionen (wie 4.0) im Oktober zu releasen.
Diese Version wird auch wieder mit Delphi funktionieren (aber es wird sie nur als 32-Bit Version geben).
LG

Ich habe die Version 4 aber auch noch nicht selbst getestet.

[rapante]

Ich habe die Version 4 nun gekauft. In den Update-Infos ist der untenstehende Hinweis für Delphi enthalten.
Das Update sollte also recht einfach durchzuführen sein.

Code:

Wichtiger Hinweis für den Einsatz unter anderen 
  Programmierumgebung als VB6 oder VBA - bspw. Delphi
  ---------------------------------------------------------------------

  Die sevDTA40.DLL (Version 4.0) lässt sich ausschließlich unter VB6/VBA einsetzen.
  Für den Einsatz unter anderen Windows-Programmiersprachen, die die Standard DLL 
  Deklarationen von Windows unterstützten, haben wir eine abgewandelte DLL-Version
  sevDTA35.DLL (nur 32-Bit) erstellt (Verzeichnis sevDTA35). 

  Die Deklarationen sind hierbei 1:1 identisch mit den bisherigen Deklarationen aus 
  Version 3.0. Zwei neue Funktionen sind hinzugekommen. Der Funktionsumfang 
  entspricht dem der Version 4.0, außer dass weiterhin die bekannten 4 Datendateien 
  verwendet werden müssen (BLZ.dat, BIC.dat, BNAME.dat und BINFO.dat) 

  Um auf die neue Version 3.5 umzusteigen, sind folgende Schritte notwendig:

  - Anpassen der Declare Anweisungen
    Ersetzen Sie den Bibliotheksnamen sevDTA30.DLL durch sevDTA35.DLL
  
  - Anpassen der Übergabe der Lizenznummer
    Beim sevDTA_Init Aufruf muss die neue Lizenznummer für die Version 4.0 
    übergeben werden. 

  ' neue Funktion mit Erweiterung SeqType-Parameter
  Declare Function sevSEPA_FileAddRec_1 Lib "sevDTA35.DLL" ( _
    ByVal fHandle As Long, _
    ByVal PmtId As String, _
    ByVal PmtAmt As String, _
    ByVal sName As String, _
    ByVal IBAN As String, _
    ByVal BIC As String, _
    ByVal RmtInf As String, _
    ByVal MndtId As String, _
    ByVal MndtDt As String, _
    ByVal SeqType As Long) As Long

  ' neue Funktion mit Erweiterung SkipTransaktionen Parameter
  Declare Function sevSEPA_ExportHTML_1 Lib "sevDTA35.DLL" ( _
    ByVal Filename As String, _
    ByVal SkipTransaktionen AS Long) As Long

Beschreibung der Funktionen siehe Online-Hilfe sevDTA40.chm

Hinweis: im Verzeichnis sevDTA35 finden Sie auch eine Delphi-Unit mit den Deklarationen für Delphi.