>Hi I need to convert some VB Call to An API Function into VFP, The VB Call IS:
>
>Public Type LStatus
> DStatus As Integer
> DCode As Integer
> PStatus As Byte
>End Type
>
>Private Declare Function GETStatus Lib "SomeDLL.dll" ( _
> ByVal device As Integer, ByRef status As LStatus, _
> ByRef devStatus As Byte, ByVal mode As Byte) As Byte
>
>My biggest problems are the Variables type BYTE, how do they convert to VFP and also the Structure LSTATUS
>
>My Conversion is the following:
>
>DECLARE INTEGER GetStatus IN SOMEDLL ;
> INTEGER nDevice , STRING @STATUS, ;
> INTEGER @devStatus, INTEGER mode
>
>It does not work properly and dont return anything in the Status Variable, The VB Call works fine.
>
>Anyone help will be greatly appriciated.
>
>Thanks

Hi Stephane,

Try using STRING to replace the BYTE type. For example, the status structure would be a character string nine characters long. Initialize the remaining references of BYTE to SPACE(1) (lcdevStatus = SPACE(1). The rest of the declaration looks ok. One thing I did note is that the declaration of the function in the DLL must match (in terms of case) that which is contained in the DLL.