Enumerado

[Guillermo80]

Hola, mi duda es facilita, sólo quiero saber cómo poner el siguiente header de c++ en delphi:

const char * const FLAC__StreamEncoderStateString[]

Por si sirve de ayuda la implementación de esta función sería como sigue:

FLAC_API const char * const FLAC__StreamEncoderStateString[] = {
"FLAC__STREAM_ENCODER_OK",
"FLAC__STREAM_ENCODER_UNINITIALIZED",
"FLAC__STREAM_ENCODER_OGG_ERROR",
"FLAC__STREAM_ENCODER_VERIFY_DECODER_ERROR",
"FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA",
"FLAC__STREAM_ENCODER_CLIENT_ERROR",
"FLAC__STREAM_ENCODER_IO_ERROR",
"FLAC__STREAM_ENCODER_FRAMING_ERROR",
"FLAC__STREAM_ENCODER_MEMORY_ALLOCATION_ERROR"
};

No entiendo muy bien que lo que devuelva sea char*, yo entiendo que debería ser un string con el valor "traducido" del enumerado que se le pasa por entrada para que sea imprimible por pantalla, ¿cómo lo veis?

[Guillermo80]

Matizo, no es una función, sino un array de strings constantes que haría las veces de la correspondencia con los nombres definidos para el enumerado, no?

[[Lepe]]

sasto

saludos

[ixMike]

Hola.

Digo yo que lo de char* es porque es un puntero, ¿no?

Creo que en Delphi quedaría así:

Código Delphi [-]
const
  FLAC__StreamEncoderStateString: array[0..8] of PChar =
    ('FLAC__STREAM_ENCODER_OK',
    'FLAC__STREAM_ENCODER_UNINITIALIZED',
    'FLAC__STREAM_ENCODER_OGG_ERROR',
    'FLAC__STREAM_ENCODER_VERIFY_DECODER_ERROR',
    'FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA',
    'FLAC__STREAM_ENCODER_CLIENT_ERROR',
    'FLAC__STREAM_ENCODER_IO_ERROR',
    'FLAC__STREAM_ENCODER_FRAMING_ERROR',
    'FLAC__STREAM_ENCODER_MEMORY_ALLOCATION_ERROR');

Salu2

[Guillermo80]

Cuando asignas el tamaño del array creo que lo que hay que poner es el tamaño máximo que van a ocupar las cadenas, yo digo que sería así:

type

FLAC__StreamEncoderState = (FLAC__STREAM_ENCODER_OK,
FLAC__STREAM_ENCODER_UNINITIALIZED,
FLAC__STREAM_ENCODER_OGG_ERROR,
FLAC__STREAM_ENCODER_VERIFY_DECODER_ERROR,
FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA,
FLAC__STREAM_ENCODER_CLIENT_ERROR,
FLAC__STREAM_ENCODER_IO_ERROR,
FLAC__STREAM_ENCODER_FRAMING_ERROR,
FLAC__STREAM_ENCODER_MEMORY_ALLOCATION_ERROR);

const

FLAC__StreamEncoderStateString : Array FLAC__StreamEncoderState of String[50] =
('FLAC__STREAM_ENCODER_OK',
'FLAC__STREAM_ENCODER_UNINITIALIZED',
'FLAC__STREAM_ENCODER_OGG_ERROR',
'FLAC__STREAM_ENCODER_VERIFY_DECODER_ERROR',
'FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA',
'FLAC__STREAM_ENCODER_CLIENT_ERROR',
'FLAC__STREAM_ENCODER_IO_ERROR',
'FLAC__STREAM_ENCODER_FRAMING_ERROR',
'FLAC__STREAM_ENCODER_MEMORY_ALLOCATION_ERROR');

Por lo menos en el ejemplo que vi en el libro de Delphi4 la reserva hacía alusión al tamaño de la cadena de mayor longitud, en este caso sería

'FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA'

La única duda que me queda es que si debería cambiar la declaración de:

FLAC__StreamEncoderStateString : Array FLAC__StreamEncoderState of String[50]

Por esta otra, siguiendo tu propuesta, ixMike:

FLAC__StreamEncoderStateString : Array FLAC__StreamEncoderState of PChar[50]

¿Cómo lo ves?

[ixMike]

No puedes hacer PChar[50], al menos que yo sepa. En todo caso, sería PChar a secas.

Y perdón por el despiste, la verdad es que no ando muy bien en C

Aunque, por otra parte, yo habría hecho esto:

Código Delphi [-]
const
    FLAC__STREAM_ENCODER_OK = 0;
    FLAC__STREAM_ENCODER_UNINITIALIZED = 1;
    FLAC__STREAM_ENCODER_OGG_ERROR = 2;
    FLAC__STREAM_ENCODER_VERIFY_DECODER_ERROR = 3;
    FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA = 4;
    FLAC__STREAM_ENCODER_CLIENT_ERROR = 5;
    FLAC__STREAM_ENCODER_IO_ERROR = 6;
    FLAC__STREAM_ENCODER_FRAMING_ERROR = 7;
    FLAC__STREAM_ENCODER_MEMORY_ALLOCATION_ERROR = 8;

  FLAC__StreamEncoderStateString: array[0..8] of PChar =
    ('FLAC__STREAM_ENCODER_OK',
    'FLAC__STREAM_ENCODER_UNINITIALIZED',
    'FLAC__STREAM_ENCODER_OGG_ERROR',
    'FLAC__STREAM_ENCODER_VERIFY_DECODER_ERROR',
    'FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA',
    'FLAC__STREAM_ENCODER_CLIENT_ERROR',
    'FLAC__STREAM_ENCODER_IO_ERROR',
    'FLAC__STREAM_ENCODER_FRAMING_ERROR',
    'FLAC__STREAM_ENCODER_MEMORY_ALLOCATION_ERROR');

Pero vamos, esto ya es cuestión de gustos

Salu2

[Guillermo80]

Ay, que me he colao en la declaración, el tamaño efectivamente se declara a la derecha de ...array[MAX]... y no como lo he puesto yo, lo demás lo mantengo, y la pregunta es si debería cambiar mi sentencia de declararlo con String a ponerlo con PChar como sigue:

FLAC__StreamEncoderStateString : Array[50] FLAC__StreamEncoderState of PChar=..........
....
....
....

[Guillermo80]

Si, buena puntualización la de iniciar en const, pero lo del tamaño estás conmigo en que sería array[0..50] ? ¿O tienes la certeza de que el tamaño solo hace alusión al nº de elementos elegibles?

[Guillermo80]

Es cierto es cierto como dices, finalmente yo dejaría la siguiente declaración:

Código Delphi [-]type FLAC__StreamEncoderState = (FLAC__STREAM_ENCODER_OK, FLAC__STREAM_ENCODER_UNINITIALIZED, FLAC__STREAM_ENCODER_OGG_ERROR, FLAC__STREAM_ENCODER_VERIFY_DECODER_ERROR, FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA, FLAC__STREAM_ENCODER_CLIENT_ERROR, FLAC__STREAM_ENCODER_IO_ERROR, FLAC__STREAM_ENCODER_FRAMING_ERROR, FLAC__STREAM_ENCODER_MEMORY_ALLOCATION_ERROR);


Código Delphi [-]const FLAC__StreamEncoderStateString : Array[FLAC__StreamEncoderState] of PChar =
('FLAC__STREAM_ENCODER_OK',
'FLAC__STREAM_ENCODER_UNINITIALIZED',
'FLAC__STREAM_ENCODER_OGG_ERROR',
'FLAC__STREAM_ENCODER_VERIFY_DECODER_ERROR',
'FLAC__STREAM_ENCODER_VERIFY_MISMATCH_IN_AUDIO_DATA',
'FLAC__STREAM_ENCODER_CLIENT_ERROR',
'FLAC__STREAM_ENCODER_IO_ERROR',
'FLAC__STREAM_ENCODER_FRAMING_ERROR',
'FLAC__STREAM_ENCODER_MEMORY_ALLOCATION_ERROR');

Creo que esta versión es la buena