Zitat von
sarte:
Delphi zeigt mir keine Warnmeldungen an, das würde ich sonst beim Strukturfenster sehen.
Ok, hab nachgeschaut. Die
DLL-Funktionsdefinitonen müssen alle angepaßt werden. Von PChar -> PAnsiChar.
Statt:
mysql_connect: function(_mysql: PMYSQL; const host, user, passwd: pChar): PMYSQL; stdcall;
muss es heißen:
mysql_connect: function(_mysql: PMYSQL; const host, user, passwd: pAnsiChar): PMYSQL; stdcall;
Dann statt:
Delphi-Quellcode:
TMYSQL_FIELD = record
name: pChar; // Name of column
table: pChar; // Table of column if column was a field
def: pChar; // Default value (set by mysql_list_fields)
_type: enum_field_types; // Type of field. Se mysql_com.h for types
length: longword; // Width of column
max_length: longword; // Max width of selected set
flags: longword; // Div flags
decimals: longword; // Number of decimals in field
end;
muß es
Delphi-Quellcode:
TMYSQL_FIELD = record
name: pAnsiChar; // Name of column
table: pAnsiChar; // Table of column if column was a field
def: pChar; // Default value (set by mysql_list_fields)
_type: enum_field_types; // Type of field. Se mysql_com.h for types
length: longword; // Width of column
max_length: longword; // Max width of selected set
flags: longword; // Div flags
decimals: longword; // Number of decimals in field
end;
etc, etc, ...