DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: webb123
今日帖子: 37
在线用户: 24
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 zwzqq (小小) ★☆☆☆☆ -
普通会员
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'
此帖子包含附件:zwzqq_201871518342.rar 大小:3.86M
----------------------------------------------
-
作者:
男 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
作者:
男 bahamut8348 (leonna) ★☆☆☆☆ -
普通会员
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;
----------------------------------------------
--
作者:
男 zwzqq (小小) ★☆☆☆☆ -
普通会员
2018/7/16 12:25:52
3楼: 好哒,谢谢各位大虾!!
----------------------------------------------
-
作者:
男 pp0123 (pp0123) ★☆☆☆☆ -
普通会员
2019/2/11 13:12:42
4楼: 请问谁可有 Psoft Barcode Studio "2016版" 分享?
http://www.psoft.sk/product.php?id=30
----------------------------------------------
-
作者:
男 newsxy (呼呼) ★☆☆☆☆ -
盒子活跃会员
2020/6/29 15:19:58
5楼: 谢谢
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行117.1875毫秒 RSS