Hallo,
ersteinmal vielen Tag für dieses klasse Tutorial. Ich habe versucht das Tutorial bei mir ans laufen zu bekommen. Leider bekomme ich beim Compilieren einen Fehler.
In der Funktion UpdateField() wird eine Procedure copyStr() bedingt erstellt, im Falle, dass man nicht einen x64 hat.
Delphi-Quellcode:
function UpdateField(f: PMYSQL_FIELD): TMYSQL_FIELD;
{$IFNDEF CPUX64}
procedure CopyStr(
var dest: PAnsiChar;
var DestLen: Cardinal; src: PAnsiChar);
//eax: dest edx: DestLen ecx: src
asm
Leider bleibt der compiler an der Stelle leider immer stehen. Und gibt folgende Meldung aus:
mysql.pas(1603,3) Fatal: Syntax error, "BEGIN" expected but "
ASM" found
Nach meinen Recherchen müsste der Compiler eigentlich mit der Konstruktion keine Probleme haben und ich hab inzwichen auch keine Idee mehr, wie ich dieses Problem beheben soll/kann.
Vielleicht kann mir einer hier im Forum einen Tip geben, wie ich an der Stelle weiter komme.
Ich verwende Lazarus mit FreePascal 1.0.2 mit dem FreePascalCompier 2.6.0 unter WinXP auf einer virtuellen Maschine.
Schon einmal vielen Dank im Vorraus für hilfreiche Tips.
Danke, Oliver