Passing Basic Fixed-Length String to C by Far Reference (27293)

SUMMARY

The example below demonstrates how to pass a fixed-length string from compiled Basic to Microsoft C by far reference.

This information about inter-language calling applies to QuickBasic Versions 4.00, 4.00b, and 4.50 for MS-DOS and to Microsoft Basic Compiler Versions 6.00 and 6.00b for MS-DOS and MS OS/2.

MORE INFORMATION

For more information about passing other types of parameters between Basic and C, and a list of which Basic and C versions are compatible with each other, query in the Microsoft Knowledge Base using the following word:

BAS2C

Code Example

REM Basic Program

DECLARE SUB StringFar CDECL (_
            BYVAL p1o AS INTEGER,_
            BYVAL p1s AS INTEGER,_
            SEG p3 AS INTEGER)
CLS
DIM a AS STRING * 15
a = "This is a test" + CHR$(0)
CALL StringFar(VARPTR(a), VARSEG(a), LEN(a))
END

/* C Routine */ 

#include <stdio.h>
void StringFar(a,len)
   char far *a;
    int *len;
 {
    int i;
    printf("The string is : %s \n\n",array);
    printf(" Index       Value       Character\n");
    for (i=0;i < *len; i++)
       {
         printf("  %2d          %3d            %c\n",i,a[i],a[i]);
       };
 }

Output

The string is : This is a test

Index       Value       Character
   0           84            T
   1          104            h
   2          105            i
   3          115            s
   4           32
   5          105            i
   6          115            s
   7           32
   8           97            a
   9           32
  10          116            t
  11          101            e
  12          115            s
  13          116            t
  14            0