Chamando funções e classes C++ no Delphi - parte 3

Recebi alguns feedbacks a respeito dos posts anteriores em que mostrei como chamar funções C/C++ dentro do Delphi. Então, resolvi retomar o assunto para explicar algumas dúvidas que surgiram, principalmente referente ao uso de ponteiros.
Como variáveis do tipo ponteiro são muito comuns no C/C++, ficou faltando mostrar como lidar com uma função que tivesse parâmetros desse tipo. Veja abaixo a declaração em C de uma função existente numa biblioteca:

int GetName (unsigned char * pName);

O Delphi também lida com ponteiros, sendo o tipo PChar correspondente ao unsigned char *. Supondo que a DLL seja BIBLIO.DLL e a função esteja exportada como _GetName, o mapeamento da função em Delphi ficaria:

function GetName (pName: PChar): Integer;cdecl;
external 'BIBLIO.DLL' name '_GetName';

Normalmente, esse tipo de chamada supõe que o ponteiro passado como parâmetro já esteja alocado antes de ser usado. Então, para utilizar a função, devemos antes fazer a alocação e, depois de usar o retorno, devolver a memória alocada:

var lName: PChar;
begin
{ Aloca espaço para até 50 caracteres. A documentação da função deve indicar qual o tamanho necessário.}
GetMem (lName, 50);

if (GetName (lName) = 0) then begin
{ Usa aqui o nome contido em lNome }
end;

{ Devolve a memória alocada }
FreeMem (lName);
end;

Outra dúvida recorrente foi quanto ao uso do cdecl: o que é isso exatamente ? Esse recurso das linguagens de programação chama-se formalmente Convenção de chamada. Isto afeta as chamadas de funções e procedures de duas maneiras: como é feita a passagem de parâmetros para a função e de quem é a responsabilidade de fazer a limpeza da "pilha de chamadas" (stack) quando terminar a chamada à função. O quadro abaixo mostra as convenções mais comuns:

Convenção	Limpeza	Parâmetros
cdecl	Rotina chamadora	Passados da direita para a esquerda usando o stack. Comum em bibliotecas desenvolvidas em C/C++
pascal	A própria rotina	Passados da esquerda para a direita usando o stack. Usada pela linguagem Pascal.
stdcall	A própria rotina	Passados da direita para a esquerda usando endereços múltiplos de 4 bytes no stack. Usada principalmente em funções da API Win32.
fastcall	A própria rotina	Os 2 primeiros parâmetros do tipo DWORD (ou menores) são passados em registradores. Os demais são passados da direita para a esquerda usando o stack.
register	A própria rotina	Passados em registradores, quando possível. Os que não forem possíveis de passar em registradores são passados da esquerda para a direita usando o stack.
safecall	A própria rotina	Passados da direita para a esquerda usando o stack. Usada normalmente em métodos de interface COM, tratando exceções que sejam levantadas pela interface.

E como é que eu sei qual das convenções deve ser usada para mapear uma determinada função ? Bem, se a documentação da função não for explícita quanto a isso, será preciso dar uns chutes, fazer algumas experiências... O normal é que funções em C/C++ usem o tipo cdecl e que funções desenvolvidas com o Delphi/Pascal usem o tipo pascal ou register. E bibliotecas que sigam o padrão da Microsoft normalmente usam o tipo stdcall.

Ainda sobrou um assunto: como carregar DLLs dinamicamente e como declarar os ponteiros para funções corretamente para usar nesse cenário. Falo disso num próximo post.

Mais Informações
Chamando funções e classes C++ no Delphi - parte 1 e parte 2, Descobrindo as funções de uma DLL,Calling conventions.