Ayuda con visual basic y delphi

[delphi.com.ar]

Empezado por roman

En la declaración de Federico, ¿no faltan argumentos?

Ups!... que raro... si lo que hice fue un copy-paste y cambié los tipos y separadores...

Public Declare Sub get_system_data Lib "benzing_com.dll" (ByVal com_port As Long, ByVal start_data As Long, ByVal system_data As String, ByVal max_data as Long, ByRef rec_data as Long, ByRef error_code as Long)

Saludos!

[perrotekel]

Gracias por echarme una mano, pero una ultima cosa, por que unas veces Byval y otras ByRef?

Y otra cosa, haber si sabes por que puede ser, que cuando llamo al metodo en visual basic me obliga a poner un =, cuando el metodo no devuelve nada, lo que devuelve lo guarda en los valores que se le pasan

[roman]

Empezado por perrotekel

por que unas veces Byval y otras ByRef?

Pues supongo que corresponde a los parámetros pasados por valor o por referencia. Cuando un parámetro se pasa por valor, la subrutina recibe una copia de la variable, de manera que cualquier modificación que hagas, no se verá reflejada al término de la rutina. En cambio, los parámetros pasados por referencias, podríamos decir que se pasa la variable en sí y no sólo la copia, de manera que los cambios que se hagan si se reflejan en las variables pasadas.

En Delphi, todos los parámetros se pasan por valor a menos que se especifique lo contrario anteponiendo la palabra reservada var. Los ByRef que puso Federico corresponden a los var en la declaración en pascal.

Lo que desconozco es si VB tiene algún default al respecto o siempre hay que especificar ByVal y ByRef.

// Saludos

[marcoszorrilla]

Para más facilidad:

Código Delphi [-]
// GET SYSTEMDATA
// com_port: [1..6]
// start_data: start Char for reading (typical:0)
// system_data: pointer with the adress of the Buffer to write the system data
// max_data: max number of the data which could be written in the Buffer
//           (use to protect against buffer (array) overwriting)
// rec_data: number of recived datas from the device
// NOTE: if max_data < rec_data datas got lost

// error_code: 0x00 .. no error
//             0x95 .. no port avaiable
//             0x97 .. no answer
//             0x99 .. timeout (no polling found)
procedure get_system_data(com_port,start_data:longint;system_data:PChar;
                          max_data:longint;
                          var rec_data,error_code:longint);stdcall;
external 'benzing_com.dll';
//------------------------------------------------------------------------------

// SET SYSTEM DATA
// With this command the atis TOP gets new system data from the PC.
// Only the following parts of system data will be changed:
// fancier's name 25 bytes  "Fancier One"
// club nr.       5 bytes   "12345"
// unused         6 bytes   "123456"
// fancier's nr.  6 bytes   "123456"

// The unused data just has a significance in Germany.
// In other countries those data are not necessary. Nevertheless memory is
// reserved for these data. By this way those data can be used in the future.

// Special of the club nr. data in Germany:
// club organization number   3 bytes   "123"
// travel organization number 2 bytes   "12"

// com_port: [1..6]
// system_data: pointer with the adress of the Buffer to read the system data
// len_data: number of datas to send

// error_code: 0x00 .. no error
//             0x20 .. general communication error
//             0x95 .. no port avaiable
//             0x97 .. no answer
//             0x99 .. timeout (no polling found)
procedure set_system_data(com_port:longint;system_data:PChar;len_data:longint;
                           var error_code:longint);stdcall;
external 'benzing_com.dll';

Un Saludo.

[delphi.com.ar]

Empezado por perrotekel

Gracias por echarme una mano, pero una ultima cosa, por que unas veces Byval y otras ByRef?

Porque unos parámetros son por valor y otros por referencia. El código en Delphi tienes definido un parámetro del tipo var (variable parameters) estas utilizando un parámetro por referencia, similar al ByRef de VisualBasic.

Empezado por perrotekel

Y otra cosa, haber si sabes por que puede ser, que cuando llamo al metodo en visual basic me obliga a poner un =, cuando el metodo no devuelve nada, lo que devuelve lo guarda en los valores que se le pasan

Si al procedimiento lo llamas encerrando sus parámetros entre paréntesis, tienes que utilizar la instrucción call heredada de QBasic, si no utilizas los paréntesis, puedes prescindir del call

Saludos!