Hmmmm...
So baut Delphi das aus dem Type Library Editor (LPWSTR *) zusammen:
Delphi-Quellcode:
procedure GetPWideChar(InputValue: {??PWideChar}OleVariant;
out OutputValue: {??PWideChar}OleVariant); dispid 202;
und so ist es implementiert
Delphi-Quellcode:
TheReturnWString : WideString;
...
procedure TCharServer.GetPWideChar(InputValue: PWideChar;
out OutputValue: PWideChar);
begin
TheReturnWString := FormatDateTime('HH:nn:ss-zzz',Now);
OutputValue := PWideChar(TheReturnWString);
end;
Was habe ich übersehen?