PChar und string

[jbg]

Zitat von tomaten:

Das ist echt phänomenal. Man muss Leute erst reizen, bevor man mal klare Lösungen bekommt.

Muss man nicht. Ich konnte ja nicht ahnen, dass du noch nie in die Borland.Rtl.Windows.pas geschaut hast, wie es da gelöst wurde.

Zitat:

"Unter VB.NET geht es ..."

Echt? Also mir liefert der vbc.exe immer Unbekannnte Symbole Trim, Space usw. Vielleicht muss man das aber auch mit VisualStudio "for VB.NET" starten.

Zitat:

Was unter Win32 immer funktionierte, mir nun aber kein Ergebniss und schon gar keinen Banknamen zurück gibt.

Ich habe das "Import" Modul jetzt mal duch den Compiler gejagt, und siehe da, es wird aus ByVal String ein ByRef String. Das nenne ich mal Phänomenal. Wenn ich ein VBler wäre würde ich mich vera** vorkommen.

Probiere mal folgendes:

Delphi-Quellcode:

uses
  System.Runtime.InteropServices;

[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_BLZExists([MarshalAs(UnmanagedType.VBByRefStr)] var sBlz: string): Integer;
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_BLZFileDate([MarshalAs(UnmanagedType.VBByRefStr)] var sDatum: string): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_BLZGetInfo([MarshalAs(UnmanagedType.VBByRefStr)] var sBlz: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sName: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sPz: string): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
procedure sevDTA_BLZSetPath([MarshalAs(UnmanagedType.VBByRefStr)] var sPath: string); 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_CheckCreditCard([MarshalAs(UnmanagedType.VBByRefStr)] var sCardType: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sCardNr: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sMsgText: string; nLenReturn: Integer): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_CheckKontoNr([MarshalAs(UnmanagedType.VBByRefStr)] var sBlz: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sKontoNr: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sPz: string): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
procedure sevDTA_Close(lHandle: Integer); 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
procedure sevDTA_CloseFile(fHandle: Integer); 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_CreateFile([MarshalAs(UnmanagedType.VBByRefStr)] var sFilename: string; iOvrWriteExists: Integer): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_FileAddRec(fHandle: Integer; [MarshalAs(UnmanagedType.VBByRefStr)] var sBlz1: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sKtoNr1: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sName1: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sIntKdNr: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sBlz2: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sKtoNr2: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sName2: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sVerwendung: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sBetrag: string): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_FileAddRecEx(fHandle: Integer; [MarshalAs(UnmanagedType.VBByRefStr)] var sBlz1: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sKtoNr1: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sName1: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sIntKdNr: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sBlz2: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sKtoNr2: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sName2: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sVerwendung: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sBetrag: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sTextschl: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sTextschlErw: string): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_FileEnd(fHandle: Integer): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_FileInit(fHandle: Integer; [MarshalAs(UnmanagedType.VBByRefStr)] var sKz: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sBlz: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sKtoNr: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sName: string; iEuro: Integer): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_Init([MarshalAs(UnmanagedType.VBByRefStr)] var sInit: string): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
function sevDTA_Kontrollsummen([MarshalAs(UnmanagedType.VBByRefStr)] var SumDaten: string; [MarshalAs(UnmanagedType.VBByRefStr)] var SumBLZ: string; [MarshalAs(UnmanagedType.VBByRefStr)] var SumKtoNr: string; [MarshalAs(UnmanagedType.VBByRefStr)] var SumBetrag: string): Integer; 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
procedure sevDTA_Print(hDC: Integer; [MarshalAs(UnmanagedType.VBByRefStr)] var prnName: string; [MarshalAs(UnmanagedType.VBByRefStr)] var FontName: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sName: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sBlz: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sKtoNr: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sDatum: string); 
[DllImport('sevDTA32.DLL', CharSet=CharSet.Ansi, SetLastError=true, ExactSpelling=true)]
procedure sevDTA_PrintEx(hDC: Integer; [MarshalAs(UnmanagedType.VBByRefStr)] var prnName: string; [MarshalAs(UnmanagedType.VBByRefStr)] var FontName: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sName: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sBlz: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sKtoNr: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sDatum: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sVolNr: string; [MarshalAs(UnmanagedType.VBByRefStr)] var sLogNr: string);

Ach ja, der Quellcode "stinkt" nach VB-Programmierung. Ein externes Handle wird in .NET nicht einfach mit einem Integer abgegolten. Dafür nutzt man normalerweise einen IntPtr. Aber da es für mich auf die Schnelle nicht ersichtlich ist, welcher der Integer nun ein Boolean, ein Integer oder ein Handle ist, habe ich es einfach mal bei Integer belassen.