index 0a61814e8c93c38b83829386b3459068fde8ac42..11f53fde5e6303c86f1e23e30097dcea509ea1b3 100644 (file)
p1 : int; p2 : int; p3 : int; p4 : int);
procedure ERREXITS(cinfo : j_common_ptr;code : J_MESSAGE_CODE;
- str : string);
+ str : AnsiString);
{ Nonfatal errors (we can keep going, but the data is probably corrupt) }
procedure WARNMS(cinfo : j_common_ptr; code : J_MESSAGE_CODE);
p5 : int; p6 : int; p7 : int; p8 : int);
procedure TRACEMSS(cinfo : j_common_ptr; lvl : int;
- code : J_MESSAGE_CODE; str : string);
+ code : J_MESSAGE_CODE; str : AnsiString);
implementation
end;
procedure ERREXITS(cinfo : j_common_ptr;code : J_MESSAGE_CODE;
- str : string);
+ str : AnsiString);
begin
cinfo^.err^.msg_code := ord(code);
cinfo^.err^.msg_parm.s := str; { string[JMSG_STR_PARM_MAX] }
end;
procedure TRACEMSS(cinfo : j_common_ptr; lvl : int;
- code : J_MESSAGE_CODE; str : string);
+ code : J_MESSAGE_CODE; str : AnsiString);
begin
cinfo^.err^.msg_code := ord(code);
cinfo^.err^.msg_parm.s := str; { string JMSG_STR_PARM_MAX }
{METHODDEF}
procedure output_message (cinfo : j_common_ptr);
var
- buffer : string; {[JMSG_LENGTH_MAX];}
+ buffer : AnsiString; {[JMSG_LENGTH_MAX];}
begin
{ Create the message }
cinfo^.err^.format_message (cinfo, buffer);
{METHODDEF}
-procedure format_message (cinfo : j_common_ptr; var buffer : string);
+procedure format_message (cinfo : j_common_ptr; var buffer : AnsiString);
var
err : jpeg_error_mgr_ptr;
msg_code : J_MESSAGE_CODE;
- msgtext : string;
+ msgtext : AnsiString;
isstring : boolean;
begin
err := cinfo^.err;