导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2018/7/15 18:34:03
标题:
Barcode_studio for Delphi 10.2 编译出现这种错误
浏览:2841
加入我的收藏
楼主:
[dcc32 Error] psCodeProf.pas(1409): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1410): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1411): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1412): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1413): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1414): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1415): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1416): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1417): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1418): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1419): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1420): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1421): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1422): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1423): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1424): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1425): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1426): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1427): E2010 Incompatible types: 'Dynamic array' and 'Pointer' [dcc32 Error] psCodeProf.pas(1428): E2010 Incompatible types: 'Dynamic array' and 'Pointer'
----------------------------------------------
-
作者:
kaida (kaida)
★☆☆☆☆
-
盒子活跃会员
2018/7/15 21:18:47
1楼:
Barcode studio for Delphi 10.2
----------------------------------------------
http://down.desei.com.cn/down/1041485/MyWeb/VCLs.html
作者:
2018/7/15 22:47:27
2楼:
自己改一下不就是了么。。。 function PdfCalcErrorCodes(D: TpsArray; ErrCount: Integer): TpsArray; var i, j: Integer; t1, t2, t3: Integer; aj, a0: Integer; ck_m1: Integer; tbl: pword; begin Result.Count := ErrCount; case ErrCount of 2: tbl := @ErrorTable2[0]; 3: tbl := @ErrorTable3[0]; 4: tbl := @ErrorTable4[0]; 5: tbl := @ErrorTable5[0]; 6: tbl := @ErrorTable6[0]; 7: tbl := @ErrorTable7[0]; 8: tbl := @ErrorTable8[0]; 9: tbl := @ErrorTable9[0]; 10: tbl := @ErrorTable10[0]; 11: tbl := @ErrorTable11[0]; 12: tbl := @ErrorTable12[0]; 13: tbl := @ErrorTable13[0]; 14: tbl := @ErrorTable14[0]; 15: tbl := @ErrorTable15[0]; 16: tbl := @ErrorTable16[0]; 18: tbl := @ErrorTable18[0]; 21: tbl := @ErrorTable21[0]; 26: tbl := @ErrorTable26[0]; 32: tbl := @ErrorTable32[0]; 38: tbl := @ErrorTable38[0]; 44: tbl := @ErrorTable44[0]; 50: tbl := @ErrorTable50[0]; 64: tbl := @ErrorTable64[0]; 128: tbl := @ErrorTable128[0]; 256: tbl := @ErrorTable256[0]; 512: tbl := @ErrorTable512[0]; else raise psBarcodeException.Create('PDF417 Error correction : bad count of ECW'); end; for i := 0 to D.Count - 1 do begin ck_m1 := Result.Data[Result.Count - 1]; t1 := (D.Data[i] + ck_m1) mod 929; for j := Result.Count - 1 downto 1 do begin aj := pword(Integer(tbl) + j * sizeof(Word))^; t2 := (t1 * aj) mod 929; t3 := 929 - t2; Result.Data[j] := (Result.Data[j - 1] + t3) mod 929; end; a0 := tbl^; t2 := (t1 * a0) mod 929; t3 := 929 - t2; Result.Data[0] := t3 mod 929; end; for j := 0 to Result.Count - 1 do if Result.Data[j] <> 0 then Result.Data[j] := 929 - Result.Data[j]; end;
----------------------------------------------
--
作者:
2018/7/16 12:25:52
3楼:
好哒,谢谢各位大虾!!
----------------------------------------------
-
作者:
2019/2/11 13:12:42
4楼:
请问谁可有 Psoft Barcode Studio "2016版" 分享? http://www.psoft.sk/product.php?id=30
----------------------------------------------
-
作者:
2020/6/29 15:19:58
5楼:
谢谢
----------------------------------------------
-