PWideChar und PAnsiChar

[EWeiss]

Zitat von himitsu:

ich sagte doch, du mußt auch die Daten ändern und nicht nur den Typ

quasi:
Result := PAnsiChar(AnsiString(PluginInfo));

Delphi-Quellcode:

// Temp{ein AnsiString} := AnsiString(PluginInfo);
Temp{ein AnsiString} := PluginInfo;  // dank Autokonvertierung von Delphi auch so möglich
Result := PAnsiChar(Temp);

nur muß das Temp außerhalb der Funktion defniert sein, damit sie nicht bei Funktionsende freigegeben wird.

Ahh ..
Hab das nicht ganz verstanden.
So gehts jetzt!

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);
  PluginInfo := VisInfo^.VisPointer.PluginInfo;

  BassFuncs^.SetError(BASS_OK);
  Result := PAnsiChar(AnsiString(PluginInfo));

end;

Das Teufelszeug in Delphi mit der Konvertiererei. grmmm

gruss Emil