Ist das gleiche ..
Hier nochmal meine Funktion geändert.
Delphi-Quellcode:
function BASS_AIMP2VIS_GetName(
handle: HVIS): PAnsiChar;
stdcall;
var
PluginInfo: PWideChar;
begin
Result :=
nil;
if (
not A_ValidHandle(
handle))
then
begin
BassFuncs^.SetError(BASS_ERROR_HANDLE);
Exit;
end;
VisInfo := PAIMPVisInfo(
Handle);
BassFuncs^.SetError(BASS_OK);
PluginInfo := VisInfo^.VisPointer.PluginInfo;
Result := PAnsiChar(PluginInfo);
end;
Ergebnis ist 'V' sobald PWide nach PAnsiChar konvertiert wird.
Das ändert sich auch nicht wenn ich PluginInfo Global definiere.
gruss Emil