Приведение типов к Delphi

[Аватар]

Есть dll и описание её функций на C/C++. Выдержка из описания:

typedef int GohubBool;
typedef struct GohubConnection GohubConnection;
typedef struct GohubDocument GohubDocument;

GohubConnection* gohub_connect(const char* host, int port);
const char* gohub_private_key_owner_info(GohubConnection* connection);
GohubDocument* gohub_query_next_document(GohubConnection* connection, int lastRevision);

Правильно ли для обращения из дельфей подготовил следующее:

type
  GohubBool = Integer;
  GohubConnection = Pointer;
  GohubDocument = Pointer;

  TGohub_connect = function(const host: PChar; port: Integer): GohubConnection; stdcall;
  TGohub_private_key_owner_info = function(connection: GohubConnection): PChar; stdcall;
  TGohub_query_next_document = function(connection: GohubConnection; lastRevision: Integer): GohubDocument; stdcall;

А с этим типом непонятно что делать в дельфях. Похож на Enumerated, но в конце значение скачком на 4096. Можно ли заменить на smallint или Integer для функции gohub_last_error_code?

typedef enum GohubErrcode
{
  gohub_server_connection_could_not_be_established,
  gohub_server_inaccessible,
  ...
  gohub_document_has_not_signature,
  gohub_programm_error = 0x1000,
  gohub_invalid_operation,
} GohubErrcode;

GohubErrcode gohub_last_error_code();

[veniside]

 TGohub_connect = function(const host: PChar; port: Integer): GohubConnection; stdcall;

const лишнее, по-моему. А может и пофиг, надо проверить.

> А с этим типом непонятно что делать в дельфях

Не помню, начиная с какой именно версии, но в Дельфи тоже так можно:

type GohubErrcode = (
  gohub_server_connection_could_not_be_established,
  gohub_server_inaccessible,
  gohub_document_has_not_signature,
  gohub_programm_error = $1000,
  gohub_invalid_operation);

> Можно ли заменить на smallint или Integer

На smallint нельзя, на Integer можно )

[Аватар]

const проверю, а последнее проверил, Д7 поддерживает. Ни когда не сталкивался. Спасибо за участие А в репу не даёт Должок за мной...