string in unicode konvertieren und an Api-Funktion übergeben

[steppo]

Hi christian

die konvertierung klappt immer noch nicht.
Ich muß den string in unicode konvertieren und dann als PChar an eine Api-fuktion übergeben.
Von der Api-funktion bekomme ich die Fehlermeldung
Fehlernummer/Fehlermeldung/Name
"1780 / A null reference pointer was passed to the stub./ RPC_X_NULL_REF_POINTER

Das heißt, daß nichts übergeben wird,oder?

kannst du mir helfen?
Hier der Quellcode:

Delphi-Quellcode:

const
  Parameter: array[0..4] of string = ('Peter-Pan', 'Hans-Klaus',
    'OU=Heinz-DE,DC=Petra,DC=Karl,DC=net', 'Anton.Karl-Verena',
    'Claudia');
var
  UebergabeParam: array[0..4] of PWideChar;
  HilfsVariable: array[0..4] of PWideChar;
  aServer, aDomain, aSub, aAccount, aPassword: PWideChar;
begin
for i := 0 to 4 do
  begin
    HilfsVariable[i] := AllocMem(length(Parameter[i]) * 2);
    try
      UebergabeParam[i] := StringToWideChar(parameter[i], HilfsVariable[i],
        length(Parameter[i]) * 2);
    finally
      FreeMem(HilfsVariable[i], length(Parameter[i]) * 2);
    end;
  end; 
end;

[edit=Christian Seehase]Delhpi-Tags ergänzt, bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]