Ошибка компиляции при попытке возврата PChar или OleVariant для UDF

Question

Название не совсем отражает суть проблемы.

У меня есть функция UDF, которая возвращает PChar.

function AccountDescription(sAccountId: PChar) : PChar; stdcall; 

Это работало нормально, но я понял, что хочу вернуть # N/A, если accountId не был найден.

Я обнаружил CVErr (xlErrNA) и изменил подпись, чтобы вернуть OleVariant. Но теперь я получаю [Ошибка] Несовместимые типы: «OleVariant» и «PAnsiChar».

Я не мог найти информацию о том, как решить эту проблему, поэтому я считаю, что мое понимание проблемы не должно быть правильным.

Я попытался просто передать строку, которая скомпилировала, но произвела ошибку времени выполнения «Недопустимый тип варианта».

Полный код:

function AccountDescription(sAccountId: PChar): OleVariant; stdcall; 
var 
    strResult: string; 
    strPChar : PChar; 
begin 

    try 
     strResult:= repo.GetAccount(sAccountId).Description; 
     strPChar := strAlloc(length(strResult)+1) ; 
     StrPCopy(strPChar, strResult) ; 
     Result := strPChar; 
    except 
     Result := CVErr(xlErrNA); 
    end; 

end; 

Примечание: Является ли первенствует ответственность за уничтожение строки или в том, что мой очистки? Должен ли я создавать копию или я должен просто возвращать указатель на существующую строку. После ввода текста я чувствую, что должен возвращать указатель.

Обновление: В этом примере был удален какой-то нерелевантный код.

Теперь с помощью:

function AccountDescription(sAccountId: PChar): OleVariant; stdcall; 
var 
    strResult: string; 
begin 

    try 
     Result := PChar(repo.GetAccount(sAccountId).Description);    
    except 
     Result := CVErr(xlErrNA); 
    end; 

end; 

Answer 1

Вам не нужно PChar бросок, вы можете назначить String непосредственно к OleVariant (он будет преобразован в RTL в BSTR, что приемник будет свободным, когда сделано используя его):

Result := repo.GetAccount(sAccountId).Description;  

Что касается сообщений об ошибке, у вас есть жизнеспособный CVErr() функции в вашем коде Delphi? В VB CVErr() возвращает Variant типа Error (varError в Delphi), содержащий код ошибки (xlErrNA is 2042). Delphi имеет функцию VarAsError() для этой же цели:

Result := VarAsError(2042);