PChar und string

[tomaten]

Hallo, warum funtioniert unter Delphi.NET PChar(string) nicht mehr? Was muss ich tun? Ich brauche das, weil ich eine alte Win32 DLL verwenden muss die als Parameter PChar benötigt. :(

[KLS]

Mit .net kenn ich mich auch net aus. aber versuchs mal mit @string[1] (nix anderes macht pchar())

[jbg]

PChar ist ein Zeiger und unter .NET nutzt man keine Zeiger mehr (außer in unsafe Code und der ist recht selten).

Für was brauchst du denn den PChar? Das lässt sich sicherlich anders regeln.

[Speedmaster]

Mach mal einen Punkt hinter deinen String, du wirst überrascht sein was es alles gibt!

[tomaten]

Zitat:

Zitat von Speedmaster

Mach mal einen Punkt hinter deinen String, du wirst überrascht sein was es alles gibt!

Das kenn ich, programmiere ja jetzt viel in C#, aber das geht ja überhaupt nicht mit dieser DLL. Deshalb benutz ich hier unsafe Delphi-Code, da geht es unter Win32 schon.

Zitat:

Zitat von jbg

PChar ist ein Zeiger und unter .NET nutzt man keine Zeiger mehr (außer in unsafe Code und der ist recht selten).

Für was brauchst du denn den PChar? Das lässt sich sicherlich anders regeln.

In dem Fall muss ich aber unsafe benutzen, um von .NET auf die Win32 DLL zu kommen!

[tomaten]

Zitat:

Zitat von KLS

Mit .net kenn ich mich auch net aus. aber versuchs mal mit @string[1] (nix anderes macht pchar())

"unsafe code '@ operator'" obwohl die Function als "unsafe" gekennzeichnet ist! Delphi.NET treibt einen schon ein bisschen in den Wahnsinn! :(

[Speedmaster]

Zitat:

Zitat von tomaten

Zitat:

Zitat von KLS

Mit .net kenn ich mich auch net aus. aber versuchs mal mit @string[1] (nix anderes macht pchar())

"unsafe code '@ operator'" obwohl die Function als "unsafe" gekennzeichnet ist! Delphi.NET treibt einen schon ein bisschen in den Wahnsinn! :(

function Blabla:Blubb; unsafe;

Dann musst du noch den Compilerschalter "Unsafecode Compileren" anmachen!

[tomaten]

Ja hab ich doch, ist ja auch nur ne Warnung. Mit Function(@'dkshskhf'[1]) geht es auch, aber mit Function(@stringvar[1]) bekommen ich

"[Error] your.pas(97): E2354 String element cannot be passed to var parameter"

obwohl Function(varname: PChar) nix mit var parameter definiert hat! Das treibt mich echt in den Wahnsinn!

[jbg]

Zitat:

Zitat von tomaten

Das treibt mich echt in den Wahnsinn!

Und was mich zum Wahnsinn treibt ist, dass jemand .NET einsetzen will, aber immernoch auf Zeigern behart. Wer .NET verwendet, sollte keine Zeiger mehr nutzen. Ansonsten kann er gleich bei der nativen Programmierung bleiben. .NET ist dafür da, dass man ohne Zeiger programmieren kann und nicht mit.

Ich bin mir sicher, dass man den Code auch anders, ohne Zeiger implementieren kann. Selbst die Borland.Vcl.Windows.pas nutzt keine PChars mehr sonden nur noch string, die vom Marshaller dann automatisch beim Aufruf richtig konvertiert werden.

Wenn du Zeiger unbedingt in .NET haben willst, dann kompiliere die Unit in eine DLL und binde sie über P/Invoke in .NET ein.

[tomaten]

Was mich am meisten nervt ist, wenn Leute labern, aber nicht lesen, warum das so ist! Nochmal für Dich:

ICH MUSS EIN WIN32.DLL EINBINDEN FÜR DIE ES KEINE ALTERNATIVE GIBT, WEDER IN WIN32, NOCH IN .NET! GAR KEINE!

Aber ich muss mich auch nicht erklären, es reicht doch, wenn ich sage, dass ich ein Win32.dll einbinden muss, die nunmal als Parameter PChar erwartet (VB-DLL :( ) ! Oder erzähl Du mir doch, wie ich ASP.NET als Win32 baue, oder einen Win32 Modul in DotNetNuke bekomme! Es gibt für alles einen Grund, akzeptier es einfach!

[jbg]

Zitat:

Zitat von tomaten

ICH MUSS EIN WIN32.DLL EINBINDEN FÜR DIE ES KEINE ALTERNATIVE GIBT

Na und. Dafür brauchst du keinen PChar unter .NET. (wovon ich ja die ganze Zeit rede).

Zitat:

Es gibt für alles einen Grund, akzeptier es einfach!

Sicherlich, nur kann es mehrere Lösungswege geben.

Schauen wir uns mal die Win32API Funktion SetCurrentDirectory an:
Unter Win32:

Delphi-Quellcode:

function SetCurrentDirectoryA(lpPathName: PAnsiChar): BOOL; stdcall; external kernel32 name 'SetCurrentDirectoryA';

Unter .NET:

Delphi-Quellcode:

[SuppressUnmanagedCodeSecurity, DllImport(kernel32, CharSet = CharSet.Ansi, SetLastError = True, EntryPoint = 'SetCurrentDirectoryA')]
function SetCurrentDirectoryA(lpPathName: string): BOOL; external;

Ups. Wo ist denn der PChar geblieben :gruebel: - Ach den braucht man da gar nicht mehr. :shock:

[tomaten]

Das ist echt phänomenal. Man muss Leute erst reizen, bevor man mal klare Lösungen bekommt. Sorry, hatte .NET heute nicht im Frühstück, aber trotzdem Danke. Leider funktioniert diese verdamm... DLL immer noch nicht. Es ist kein Geheimniss, es handelt sich dabei um die sevDTA32.dll (sevDTA32). Falls jemand eine Alternative kennt, bin ich auch dankbar! Btw. mit Kooperation des Hersteller kann man als "nicht VBler" nicht rechnen! "Unter VB.NET geht es ..."

Dabei geht es um folgendes:

Delphi-Quellcode:

SetLength(sPz, 3);
SetLength(BankName, 28);
KtoResult := sevDTA_BLZGetInfo(BankNumber, BankName, sPz);

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

[jbg]

Zitat:

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.

[tomaten]

Na dann zieh ich mir o.a. morgen mal rein, muss jetzt noch dringend was anderes fertig machen. Aber Du siehst, dass es schon ziemlicher Horror ist, wenn man noch nicht so in .NET steckt, dann noch der VB-Horror dazu kommt ...

[tomaten]

Es geht!
http://www.mainzelahr.de/smile/liebe/147.gif jbg
http://www.mainzelahr.de/smile/party/04.gif

[Speedmaster]

Verzeiht mir wenn ich den Thread nochmal hochhole, aber wie sieht den die Übergabe eines Stings als PChar an eine DLL in C# aus? Komme irgendwie nicht auf einen Grünen Zweig!

[jbg]

Schon mal was von google gehört?

Code:

[DllImport("MyLib.dll", EntryPoint="MyFunc")]
public static extern int MyFunc(string s);

[TheXception]

Delphi-Quellcode:

DLLFunction(PChar('test'));

versuchs mal so.

[jbg]

Er schreibt von C# => .NET. Und da gibt es keinen PChar.

[Speedmaster]

Zitat:

Zitat von jbg

Schon mal was von google gehört?

Code:

[DllImport("MyLib.dll", EntryPoint="MyFunc")]
public static extern int MyFunc(string s);

... Leider liefert er mir immer Null zurück?

[jbg]

Zitat:

Zitat von Speedmaster

... Leider liefert er mir immer Null zurück?

Klar, die Funktion MyFunc und die DLL MyLib.dll gibt es ja auch nicht :lol:

Ich sehe mal in meine Kristallkugel:
Die Funktion ändert den übergebenen String. Dann musst du den String durch einen StringBuilder ersetzen:

Code:

using System.Text;

[DllImport("MyLib.dll", EntryPoint="MyFunc")]
public static extern int MyFunc(StringBuilder s);

public void bla()
{
  StringBuilder sb(100); // 100 Zeichen reservieren
  MyFunc(sb);
  Console.WriteLine(sb);
}

[Speedmaster]

Du hast falsch in die Kristallkugel geguckt!

Um genau zu sein gibt die Funktion einen Pointer auf eine Funktion zurück, dies geschieht aber nicht!

[Union]

Zitat:

Zitat von tomaten

Falls jemand eine Alternative kennt, bin ich auch dankbar! Btw. mit Kooperation des Hersteller kann man als "nicht VBler" nicht rechnen! "Unter VB.NET geht es ..."

Ist ja göttlich, womit man alles Geld verdienen kann... DTA-Verfahren ist ja sowas von simpel, das hab ich in meiner Ausbildung noch in COBOL programmiert. Schön, dass Du diese überteuerte Lib jetzt auch unter .NET verwenden kannst. Sourcecode findest Du u.a. Dtaus1.zip