Compile error on FPC 3.0 (lazarus 1.6)

RRUZ / tsmbios

Library to access the SMBIOS using Object Pascal (Delphi, FPC).

https://theroadtodelphi.wordpress.com/

202 stars 72 forks source link

Closed alpiki closed 8 years ago

alpiki commented 8 years ago

This code does not work for FPC 3.0 (lazarus 1.6).

uSMBIOS.pas error on line number 5188 if {$IFDEF FPC} oEnum.Next(1, FWbemObject,nil) {$ELSE} oEnum.Next(1, FWbemObject, iValue) {$ENDIF} = 0 then

uSMBIOS.pas(5188,48) Error: Call by var for arg no. 3 has to match exactly: Got "Pointer" expected "LongWord"

I think the FPC unit (ActiveX) changed.

Best regards.

RRUZ commented 8 years ago

Thanks for this report, the issue was fixed.

alpiki commented 8 years ago

Thanks a lot. This was pretty fast :)

Best regards.