DLL-Calls

[B. Matthias]

Hi friends,

can anybody help me to translate this into a xHarbour or FiveWin-Code:

Declaration



Delphi:

function CheckAccountNumber(const AAccountNumber: WideString; const
ABankCode: WideString; out ABankName: WideString; out AResultString:
WideString): ReturnCodes;



IDL:

[id(0x00000003), helpstring("Funktion zum Testen der Kontonummer")]

HRESULT _stdcall CheckAccountNumber([in] BSTR AAccountNumber, [in] BSTR
ABankCode, [out] BSTR * ABankName, [out] BSTR * AResultString, [out, retval]
ReturnCodes * Res );



Description

Die Methode CheckAccountNumber ist die 'Hauptmethode' der Bibliothek. Mit
ihr kann man prüfen, ob eine Kombination aus Kontonummer und Bankleitzahl
eine mögliche Kontonummer beschreibt.

Im Parameter AAccountNumber übergibt man die zu prüfende Kontonummer und im
Parameter ABankCode die dazugehörende Bankleitzahl. Zuerst prüft die
Methode, ob die Bankleitzahl gültig ist und ermittelt die zur Bankleitzahl
gehörende Prüfmethode. Mit dieser Prüfmethode wird anschließend die
übergebene Kontonummer geprüft.

Über den ReturnCode kann man auswerten, ob die Prüfung erfolgreich war bzw.
welcher Fehler aufgetreten ist. Zusätzlich erhält man im Parameter ABankName
den Namen der ermittelten Bank zurück sowie im Parameter AResultString das
Ergebnis der Prüfung im Klartext.



Es werden folgende Properties überschrieben:

AccountNumber mit dem Wert von AAccountNumber

BankCode mit dem Wert von ABankCode

BankName mit dem ermittelten Banknamen

CheckMethod mit der ermittelten Prüfmethode

ResultString mit dem Ergebnisstring



Best regards


Bodo

[Enrico Maria Giordano]

Is this a function from a DLL? If yes, what is the DLL name?

EMG

[B. Matthias]

The name of the DLL is: LKontoLb.dll. I send it to you by E-Mail.

Bodo

[Enrico Maria Giordano]

Try (not tested):

Code: Select all

DLL32 FUNCTION CHECKACCOUNTNUMBER( cAccountNumber AS LPSTR, cBankCode AS LPSTR, cBankName AS LPSTR, cResultString AS LPSTR ) AS LONG;
      PASCAL FROM "CheckAccountNumber" LIB "LKontoLb.dll"

EMG