Closed alpiki closed 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.
Thanks for this report, the issue was fixed.
Thanks a lot. This was pretty fast :)
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.