Does the BlockRead below:

type
  TRGBQuad = record
    rgbBlue: GLubyte;
    rgbGreen: GLubyte;
    rgbRed: GLubyte;
    rgbReserved: GLubyte;
  end;

...

var
  FileHandle: File;
  BytesRead: GLuint;
  FColorPalette: PRGBQuad;
  NumberOfColours: GLuint;

...

BlockRead(FileHandle,FColorPalette^,SizeOf(TRQBQuad)*NumberOfColours,BytesRead);

corresponds to this C code:

typedef struct tagRGBQuad {
  char rgbBlue;
  char rgbGreen;
  char rgbRed;
  char rgbReserved;
} RGBQuad;

...

RGBQuad *colours;
FILE *in;
int numColours;

...

fread(colours,sizeof(RGBQuad),numColours,in);

?

Yes, if GLubyte=char

Michael.

In our previous episode, leledumbo said:

corresponds to this C code:

1. no record packing for pascal specified
2. no record packing for C specified
3. does not show how the file on the pascal side is opened, mostly to check if the ,1 in reset(f,1) is not missing

1. no record packing for pascal specified 2. no record packing for C specified 3. does not show how the file on the pascal side is opened, mostly to check if the ,1 in reset(f,1) is not missing

3 OK
1 and 2, since the original C code doesn't specify it either, should I use {$packrecords c}