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]