Hi,
I've been trying to create a wrapper for libinklevel, h2pas with a fairly
standard set of options ran fine, the wrapper compiled once I commented a
double-definition for PInk_level, but on trying to use it, it throws a stack
exception:
I include the translated header file below, maybe somebody could point out
what's wrong ? I've spent some time trying to debug it but to no avail (I'm
also pretty sure that model is meant to be a Pchar);
TIA
A.J.
unit inklevel;
interface
{
Automatically converted by H2Pas 0.99.16 from inklevel.h
The following command line parameters were used:
-p
-T
-S
-c
-D
-l
libinklevel.so
inklevel.h
}
const
External_library='libinklevel.so'; {Setup as you need}
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
Type
PLongint = ^Longint;
PSmallInt = ^SmallInt;
PByte = ^Byte;
PWord = ^Word;
PDWord = ^DWord;
PDouble = ^Double;
{Type
Pink_level = ^ink_level;}
{$IFDEF FPC}
{$PACKRECORDS C}
{$ENDIF}
{$ifndef INKLEVEL_H}
{$define INKLEVEL_H}
{$ifdef DEBUG}
{$include <stdio.h> /* for the debug printfs */}
{$endif}
const
PARPORT = 1;
USB = 2;
RESPONSE_INVALID = 0;
ONE_COLOR_FOUND = 1;
ONE_BLACK_COLOR_FOUND = 2;
TWO_COLORS_FOUND = 3;
TWO_PHOTO_COLORS_FOUND = 4;
THREE_COLORS_FOUND = 5;
FOUR_COLORS_FOUND = 6;
SIX_COLORS_FOUND = 7;
SEVEN_COLORS_FOUND = 8;
OK = 0;
ERROR = -(1);
DEV_PARPORT_INACCESSIBLE = -(2);
DEV_LP_INACCESSIBLE = -(3);
COULD_NOT_GET_DEVICE_ID = -(4);
DEV_USB_LP_INACCESSIBLE = -(5);
UNKNOWN_PORT_SPECIFIED = -(6);
NO_PRINTER_FOUND = -(7);
NO_DEVICE_CLASS_FOUND = -(8);
NO_CMD_TAG_FOUND = -(9);
PRINTER_NOT_SUPPORTED = -(10);
NO_INK_LEVEL_FOUND = -(11);
COULD_NOT_WRITE_TO_PRINTER = -(12);
COULD_NOT_READ_FROM_PRINTER = -(13);
COULD_NOT_PARSE_RESPONSE_FROM_PRINTER = -(14);
MODEL_NAME_LENGTH = 100;
type
Pink_level = ^Tink_level;
Tink_level = record
model : array[0..(MODEL_NAME_LENGTH)-1] of byte;
_type : word;
black : word;
color : word;
cyan : word;
magenta : word;
yellow : word;
photo : word;
photocyan : word;
photomagenta : word;
photoyellow : word;
end;
function get_ink_level(port:longint; portnumber:longint;
level:Pink_level):longint;cdecl;external External_library;
const
BUFLEN = 1024;
NR_TAGS = 15;
OLD = 1;
NEW = 2;
{$endif}
implementation
end.
-------------------------------------------------------
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
