Как вернуть строку из DLL в Inno Setup Pascal Script

Question

У меня есть две функции C в DLL, которые определены в файле определения и экспортированы для использования в Inno Setup.

char* __stdcall GetName() 
{ 
     return "Kishore"; 
} 
void __stdcall getName(char* strName) 
{ 
    strcpy(strName, "Kishore"); 
} 

Inno Setup код будет загружать пользовательские библиотеки DLL и вызвать функцию/процедуру, чтобы вернуть имена

{ Inno Setup script } 
[Code] 
procedure getName(MacAddress: String); 
external 'getName@files:MyDll.dll stdcall setuponly'; 

function GetName():PAnsiChar; 
external 'GetName@files:MyDll.dll stdcall setuponly'; 

function NextButtonClick(CurPage: Integer): Boolean; 
var 
    StrName: String; 
begin 
    SetLength(StrName,15);  
    getName(StrName); { displaying only single character } 
    StrName := GetName(); { this call is crashing } 
end 

Как я могу получить имя в Inno Setup сценарий без него сбой?

Answer 1

GetName должен вернуть const char *, однако в остальном это прекрасно. Обратите внимание, однако, что возвращение такой строки может только когда-либо работать для строковых строковых констант, как показано выше. Вы не можете использовать этот шаблон для возврата вычисленного строкового значения (если вы попробуете это, оно, скорее всего, приведет к краху или даст поврежденные данные); таким образом, getName является неправильным.

Также обратите внимание, что хотя C чувствителен к регистру, Pascal нет, поэтому getName и GetName - это те же функции в скрипте Inno. Вам может избежать этого в приведенном выше случае, потому что параметры разные, но я бы не стал полагаться на это - вы должны дать им разные имена. (Не используйте то же имя на стороне C либо, так как экспорт DLL иногда посмотрел регистронезависимо тоже.)

Чтобы вернуть вычисленную строку, вы должны использовать шаблон, как это:

DLL код:

void __stdcall CalculateName(char *buffer, size_t size) 
{ 
    strncpy(buffer, "whatever", size); 
    buffer[size-1] = 0; 
} 

Inno код: есть

procedure CalculateName(Buffer: AnsiString; Max: Cardinal); 
external 'CalculateName@files:my.dll stdcall'; 

... 
Max := 16; 
Buffer := StringOfChar(#0, Max); 
CalculateName(Buffer, Max); 
SetLength(Buffer, Pos(#0, Buffer) - 1); 
... 

несколько приемлемых вариантов, например, вы можете сделать функцию DLL возвращать число символов на самом деле написано в буфер и использовать это в последующей SetLength, а не вызывать Pos, чтобы найти нулевой ограничитель.

Но вы должны:

• Убедитесь, что обе стороны используют одни и те же типы строк, либо как ANSI или Unicode как.
  • ANSI Inno Setup поддерживает только строки ANSI с его типом String.
  • Unicode Inno Setup поддерживает либо строки ANSI с AnsiString, либо строки Unicode с String.
• При использовании строк в Юникоде убедитесь, что обе стороны согласны с тем, указано ли значение Max и/или возвращаемое значение в символах или байтах (код примера предполагает, что он находится в символах).
• Перед вызовом функции используйте SetLength или StringOfChar, чтобы убедиться, что размер буфера соответствует требуемой максимально возможной длине результата.
• Убедитесь, что вызываемая функция не пытается записать эту максимальную длину (что проще, если это предусмотрено как параметр функции).
• Убедитесь, что если вы используете Pos, вызываемая функция должна гарантировать, что значение имеет нулевое завершение (или вам нужно быть более осторожным, чем показано в примере).
• Убедитесь, что после вызова вы обрезаете строку до фактической длины либо с помощью возвращаемого значения, либо путем поиска нулевого терминатора.

Одно из ограничений в игре заключается в том, что память, выделенная одной стороной, должна быть освобождена с той же стороны. Вы не можете безопасно освободить память, выделенную на «неправильной» стороне границы DLL, в любом направлении.