C traduzione del puntatore di funzione in Delphi/Pascal?

Question

Attualmente sto traducendo alcune intestazioni C in Delphi. Non riesco a trovare un riferimento per la conversione di un puntatore a funzione da C a Delphi.

typedef _JAlloc JAlloc; 
struct _JAlloc { 
    void *(*alloc) (JAlloc *allocator, size_t size); 
    void (*free) (JAlloc *allocator, void *p); 
    void *(*realloc) (JAlloc *allocator, void *p, size_t size); 
}; 

1. Quale sarà la traduzione Delphi di questo?

2. Dove è possibile trovare risorse valide per la conversione manuale di intestazioni C in Delphi (inclusi puntatore, direttive del preprocessore, ecc.)?

Answer 1

Utilizzare questo tipo di codice

type 
    PJAlloc = ^TJAlloc; 
    TJAllocAlloc = function(allocator: PJAlloc; size: integer): pointer; cdecl; 
    TJAllocFree = procedure(allocator: PJAlloc; p: pointer); cdecl; 
    TJAllocRealloc = function(allocator: PJAlloc; p: pointer; size: integer); cdecl; 
    TJAlloc = record 
    alloc: ^TJAllocAlloc; 
    free: ^TJAllocFree; 
    realloc: ^TJAllocRealloc; 
    end; 

E il cambiamento cdecl a stdcall, a seconda della convenzione di chiamata della libreria C.

Una dichiarazione alternativa (piu 'pascalish' forse) potrebbe essere:

type 
    TJAllocAlloc = function(var allocator: TJAlloc; size: integer): pointer; cdecl; 
    TJAllocFree = procedure(var allocator: TJAlloc; p: pointer); cdecl; 
    TJAllocRealloc = function(var allocator: TJAlloc; p: pointer; size: integer); cdecl; 
    TJAlloc = record 
    alloc: ^TJAllocAlloc; 
    free: ^TJAllocFree; 
    realloc: ^TJAllocRealloc; 
    end; 

Answer 2

utilità HeadConv del Dr. Bob è un bene da utilizzare per la conversione dichiarazioni C in Delphi, ed è un buon strumento di apprendimento per il confronto C codice sorgente al codice sorgente Pascal equivalente.

You can find it here