Velthuis.Console.pas - Won't compile in Lazarus

[KodeZwerg]

Still the same error. I'm on win7 x64.
https://i.postimg.cc/0NrQqqCj/Capture.png

To make velthuisconsole2.zip from Thaddy compile, here a tutorial:
1. download velthuisconsole2.zip
2. extract it in its own project folder
3. rename ConsoleDemo.dpr to ConsoleDemo.lpr
4. open lazarus "Project -> Close Project" if anything is opened
5. select "Open Project"
6. change filemask filter from "Lazarus Project (*.lpi)"  to "All Files (*.*)"
7. locate and doubleclick ConsoleDemo.lpr
8. select "Create Project" -> "Simple Program"
9. press F9 so the file "Velthuis.Console" gets opened
10. scroll to start of file "Velthuis.Console" and...
replace this

Code: Pascal  [Select][+][-]

1. {$IF DEFINED(FPC)}
2.   {$DEFINE CompilerVersion=17.0}
3.   {$MODE DELPHI}
4.   {$DEFINE HASERROUTPUT}
5. {$ENDIF}
6.  

with that

Code: Pascal  [Select][+][-]

1. {$IF DEFINED(FPC)}
2.   {$DEFINE CompilerVersion=17.0}
3.   {$MODE DELPHI}
4.   {$DEFINE HASERROUTPUT}
5.   {$ASMMODE intel}
6. {$ENDIF}
7.  

and save project.

Does it compile and run?
I just quick tested as 64bit windows target with Lazarus 3.99 (rev main_3_99-2053-g3635aa3044) FPC 3.2.2 x86_64-win64-win32/win64

And please in future copy the error message and paste it in here instead of taking a screenshot and upload it not here.

[Thaddy]

@KodeZwerg
In mode delphi asmmode is already intel, because basm is intel. No need.
Indeed you can rename dpr to lpr, but I use Geany so I don't need that.
It does only contain 16 assembly for a hardware sound. I would simply remove that part of the code. I just left it in, but I think Rudy would not have mind if it is removed.
[edit] I found an older working version in which I had actually removed the 16 bit assembler.
Apart from that, the code was the same, though.

[KodeZwerg]

@KodeZwerg
In mode delphi asmmode is already intel, because basm is intel. No need.

If you say so but why does it not compile saying the register variables are undeclared and with "{$ASMMODE intel}" they are defined so I can compile, a bug found?

[Thaddy]

For {$mode delphi} the asm mode should be intel, because of the basm syntax being Intel style. intel. If it isn't it, is a bug.

[Atak_Snajpera]

Still the same error. I'm on win7 x64.
https://i.postimg.cc/0NrQqqCj/Capture.png

To make velthuisconsole2.zip from Thaddy compile, here a tutorial:
1. download velthuisconsole2.zip
2. extract it in its own project folder
3. rename ConsoleDemo.dpr to ConsoleDemo.lpr
4. open lazarus "Project -> Close Project" if anything is opened
5. select "Open Project"
6. change filemask filter from "Lazarus Project (*.lpi)"  to "All Files (*.*)"
7. locate and doubleclick ConsoleDemo.lpr
8. select "Create Project" -> "Simple Program"
9. press F9 so the file "Velthuis.Console" gets opened
10. scroll to start of file "Velthuis.Console" and...
replace this

Code: Pascal  [Select][+][-]

1. {$IF DEFINED(FPC)}
2.   {$DEFINE CompilerVersion=17.0}
3.   {$MODE DELPHI}
4.   {$DEFINE HASERROUTPUT}
5. {$ENDIF}
6.  

with that

Code: Pascal  [Select][+][-]

1. {$IF DEFINED(FPC)}
2.   {$DEFINE CompilerVersion=17.0}
3.   {$MODE DELPHI}
4.   {$DEFINE HASERROUTPUT}
5.   {$ASMMODE intel}
6. {$ENDIF}
7.  

and save project.

Does it compile and run?
I just quick tested as 64bit windows target with Lazarus 3.99 (rev main_3_99-2053-g3635aa3044) FPC 3.2.2 x86_64-win64-win32/win64

And please in future copy the error message and paste it in here instead of taking a screenshot and upload it not here.

Thank you for all your help! Now everything works fine.

[Thaddy]

Glad to be of help. It is a nice piece of code from Rudy. Most of his code is still on-line. There are more gems.

[marcov]

Except that I warned him (and Jedi) already in 2002-2003 to not use delphi versions directly as a condition in sources.  http://www.stack.nl/~marcov/porting.pdf

[Thaddy]

Well, that's why I spoof the Delphi version to what is usually compatible with fpc. Saves a lot of work.
You may want to revise your porting.pdf, though: although helpful it is out of date at some points.
Has always been helpful, though.

[dculp]

Corrected version attached. Both of us did not find that in 2008! We also had a Linux version discussed (Kylix), but was never fnished.
Still using 32 bit Windows? Anyway, I kept it still  somewhat Delphi1 compatible.
In honor of the author.
Try this one, I only changed the order of the Winversion test to be exact:

When building ConsoleDemo.lpr (from velthuisconsole2.zip), I get a number of Message hints (attached). Should I be concerned about any of these?

Lazarus 3.8 (rev lazarus_3_8) FPC 3.2.2 i386-win32-win32/win64

Thanks,
Don C.

[marcov]

Probably not in low level code. 

[Thaddy]

No, these are checked by me when I made the FPC version.
Attached a version with hints removed and some slight improvements.

[dculp]

Commenting all demos except DemoReadKey; -
DemoReadKey doesn't properly deal with Alt+key. For example with the "q" key (output in italics) --

q lowercase             ==> Normal: 'q' = Chr(113)'
Shift+q (uppercase) ==> Normal: 'Q' = Chr(81)'                                                               
Ctrl+q                     ==> Normal: 17                                                                            
Alt+q                  ==> Normal: 'q' = Chr(113)' [just same as q lowercase]