Lazarus - 错误提示：发生了异常

第 三 章 Hello,ZEOSDBO首 先 我 们 需 要 安 装 ZEOSDBO, 我 们 选 择 稳 定 版 (Stable) 7.0.0.10 解 压 缩 放 在某 个 位 置 , 比 如 lazarus 安 装 目 录 的 components 下 面 , 在 lazarus 版 本 , 这 个 控 件不 需 要 安 装 其 他 lpk, 只 安 装 其 中 一 个 zcomponent.lpk 就 可 以 了 。我 们 在 lazarus 菜 单 选 择 package->open package file(*.lpk) , 然 后 找 到 我 们 的zcomponent.lpk , 注 意 ,lazarus 的 控 件 安 装 最 好 一 个 一 个 的 安 装 , 如 果 安 装 失 败 ,我 们 还 可 以 回 到 老 版 本 , 默 认 自 动 重 新 编 译 IDE 时 , 会 保 留 一 个 老 版 本lazarus.old.exe。 而 lazarus 的 控 件 安 装 也 非 常 简 单 , 不 需 要 设 置 各 种 路 径 , 就 在打 开 的 窗 口 , 点 击 编 译 (compile), 然 后 选 择 user>> 这 个 按 钮 , 下 面 菜 单 ,install ,会 提 示 我 们 是 否 重 新 编 译 IDE, 一 路 选 择 yes, 编 译 完 毕 ,IDE 会 自 动 重 新 启 动 , 我们 就 可 以 在 组 件 面 板 看 见 Zeos 组 件 。 如 图注 意 有 的 组 件 可 能 需 要 修 改 一 下 源 码 , 对 于 老 程 序 员 来 说 不 是 问 题 , 这 个 组件 就 需 要 修 改 , 修 改 一 点 点 。 否 则 调 用 存 储 过 程 会 出 错 。 修 改 zstoredprocedure.pasTZAbstractCallableStatement(CallableStatement).RegisterParamType( I+1,ord(Params[I].ParamType) );修 改 为//TZAbstractCallableStatement(CallableStatement)CallableStatement.RegisterParamType( I+1, //ord(Params[I].ParamType) );Ord(ConvertDatasetToDbcType(Params[I].DataType)));// 不 直 接 取 paramType,而 是 按 老 的 6.6.6 的 方 式 , 或 者 像 上 面 一 行 这 样 转 换 , 红 色 部 分 是 错 误 的好 了 , 控 件 安 装 完 毕 。 我 们 就 开 始 我 们 的 新 探 索 吧 。首 先 我 们 新 建 一 个 工 程 ,demo3.拖 一 个 控 件 tzconnection , 名 zconnection1, 属 性 设 置 为 :Databased:\demo.fdbHostname 127.0.0.1