string in unicode konvertieren und an Api-Funktion übergeben

[steppo]

wo finde ich die psdk als download?

[Christian Seehase]

Moin Steppo,

damit sollte es gehen:

http://www.microsoft.com/msdownload/...pdate/home.htm

Du musst Dir halt noch aus dem Menü heraussuchen, was Du haben willst.

[Robert Marquardt]

Win32-Sachen muss man nicht nach Delphi uebersetzen. Das hat doch Marcel van Brakel schon gemacht.

[Christian Seehase]

Moin Robert,

ja schon, allerdings im Borland Stil, also mit var Parametern.
Ich für meinen Teil bevorzuge da die C-typische Deklaration, da man dann, soweit es die Funktion ermöglicht z.B. auch mal nil übergeben kann, aber auch, weil sich dann C-Samples leichter umsetzen lassen.

Das ist natürlich alles Geschackssache, aber vielleicht stehe ich mit dieser Ansicht ja nicht ganz alleine da

Zudem kann's nie schaden mal die Originaldeklaration zur Hand zu haben. Jeder kann sich schliesslich mal vertun.

[steppo]

Mein quellcode sieht nun so aus.

Delphi-Quellcode:

const
  Parameter: array[0..4] of PWChar = ('Peter-Pan', 'Hans-Klaus',
    'OU=Heinz-DE,DC=Petra,DC=Karl,DC=net', 'Anton.Karl-Verena',
    'Claudia');
var
  UebergabeParam: array[0..4] of PWChar;
  HilfsVariable: array[0..4] of PWChar;
  aServer, aDomain, aSub, aAccount, aPassword: PWChar;

Delphi-Quellcode:

function NetJoinDomain(const lpServer: PWChar; const lpDomain:
  PWChar; const lpAccountOU: PWChar; const lpAccount: PWChar; const lpPassword:
  PWChar; const fJoinOptions: DWord): NET_API_STATUS; stdcall; external
'netapi32.dll';

Delphi-Quellcode:

function bla
 Api_Meldung := NetJoinDomain(UebergabeParam[0], UebergabeParam[1],
    UebergabeParam[2], UebergabeParam[3], UebergabeParam[4], 0 + 1);

Api_Meldung ist vom Typ integer.

Result der Api-Funktion ist immer noch:
Fehlernummer/Fehlermeldung/Name
"1780 / A null reference pointer was passed to the stub./ RPC_X_NULL_REF_POINTER

[Robert Marquardt]

Lass doch mal den ganzen Schmonz mit Uebergabeparameter usw weg und nimm direkt
NetJoinDomain(Parameter[0], Parameter[1}, Parameter[2], Parameter[3], Parameter[4], 0+1);

Das wird zwar wahrscheinlich immer noch den gleichen Fehler ergeben, aber ich nehme
an das deine Parameter-Inhalte nicht stimmen.
Arbeite dich doch erst mal langsam mit nil fuer moeglichst viele Parameter hoch.
Ich glaube z. B. nicht das 'Peter-Pan' ein legaler NETBIOS Name ist.