2 respuestas en este tema

[bigleaguer]

Saludos compañeros,

Estoy desarrollando una aplicación para un Data Collector con SO Windows Mobile 6.5 y el problema que tengo es que al tratar de obtener un valor desde un método de la libreria, me salta el siguiente error:
bus error or misaligned data access.

Asi está documentado el método del que trato de obtener el valor:

[cpp]int mysql_get_data(char *pszElem, int nRow, int nColumn)[/cpp]

Asi lo estoy implementando en Pascal (Lazarus):

delphi

function mysql_get_data(var pszElem: PChar; nRow, nColumn: Integer): Integer; stdcall; external 'MySQLMobile.dll';

y finalmente:

delphi

  var
    Data: PChar;
    //Otras variables...
  begin
  if mysql_execute_query('SELECT descripcion FROM ...') = 0 then
  begin
    mysql_get_data(Data, 0, 0);
    edtDescripcion.Text := Data; //<-- Aqui me genera el error
  end; 

     

Agradezco mucho su ayuda y/o sugerencias.

[escafandra]

En C por defecto las funciones son cdecl no stdcall. Solo si te indican que usan el convenio stdcall debes usarlo.

char* es un PCHAR y tu estas pasando una referencia a un PCHAR.
Debes traducirlo así:

delphi

function mysql_get_data(pszElem: PChar; nRow, nColumn: Integer): Integer; cdecl; external 'MySQLMobile.dll';

Si falla, es posible que usen el convenio stdcall, pruebalo, entonces.

Saludos.

[bigleaguer]

Muchas gracias escafandra, tal como comentas el problema era que estaba pasando una referencia a un PChar.

Declare el método de la siguiente forma:

delphi

function mysql_get_data(pszElem: PChar; nRow, nColumn: Integer): Integer; stdcall; external 'MySQLMobile.dll';

y el código quedó parecido a esto:

delphi

var
  Data: PChar;
begin
  if mysql_execute_query('SELECT descripcion FROM ...') = 0 then
  begin
    Data := StrAlloc(8192); // Asigno un buffer de 8k
    mysql_get_data(Data, 0, 0);
    edtDescripcion.Text := Data;
    StrDispose(Data); 
  end;

Doy el tema como Resuelto.