4
头图

我们开发人员每天编程,调试代码,不可避免地会遇到运行时异常和运行时错误。一旦运行时错误发生,程序会非正常终止,标志着程序的实际执行情况同我们的预期有差异,想必每一位开发人员看到运行时错误心情都不会太好。

笔者平时使用的后台开发语言是 ABAP,使用的开发 IDE 是 SAPGUI,因此尝试着把思否社区的吉祥物,一只可爱的思否猫,植入到 ABAP 运行时错误显示界面上来,试图让思否猫给遇到运行时错误的倒霉的开发人员一丝慰藉。

ABAP 开发工具里显示运行时错误的事物码为 ST22,其标准实现 ABAP 程序名称为 SAPMS380.

按照笔者文章介绍的步骤开发完成后,效果如下:

这是在我的 ABAP 系统里的实现效果:

下面是详细的实现步骤。

我们使用 ABAP 增强工具,对这个系统级别的 ABAP 报表进行增强,在增强里创建我们自己的植入思否猫的逻辑。

我们在这个报表的 READ_SNAPT 的 subroutine 里做增强,这个 subroutine 在运行时异常的具体内容,从数据库表读取到 ST22 界面时调用,因此这是一个最佳的植入思否猫图案的 hook 所在:

名叫 read_snapt 的 subroutine,其输出参数 text_out, 存放的就是显示在 ST22 事物码运行时的明细信息,因此我们创建一个隐式增强,把思否猫对应的字符格式的图案,添加到输出参数 text_out 即可。

隐式增强的源代码如下图所示:

ENHANCEMENT 1  ZST22_ENHANCEMENT.    "active version
data: lt_god like text_out[] with header line.

  define add_line.
    append &1 to lt_god.
  end-of-definition.

  add_line: ''.

  if ttype = 'W'. "// What happened?
    insert lines of lt_god into text_out index 1.
  endif.
ENDENHANCEMENT.

代码实现有 5 个关键点:

  1. 给 subroutine READ_SNAPT 创建隐式增强。
  2. 定义一个内表 lt_god,用于存储思否猫的字符图案内容。
  3. 定义一个宏,用于将思否猫逐行的字符图案内容,拼接到内表 lt_god 中。
  4. 在增强实现里调用 add_line 宏,将完整的思否猫图案内容,注入到内表 lt_god 中。
  5. 将内表 lt_god 包含的思否猫图案完整内容,添加到 subroutine read_snapt 的输出参数 text_out 中,这样思否猫的字符图案,将会出现在 ST22 显示界面的头部。

至此 ABAP 系统的增强工作就实现完毕了,剩下的则是将官网下载的思否猫图片,转换成纯粹的字符显示形式,这样我们就可以将这些字符,直接粘贴到前文介绍的 READ_SNAPT subroutine 实现的隐式增强内部。

42 行 Python 代码即可搞定:

import base64
import re
from io import BytesIO
from PIL import Image
import base64

file_path = 'C:/temp/cat.png'
 
img = Image.open(file_path)

char = list('M3NB6Q#OC?7>!:–;. ')

# 颜色值映射字符串
def get_char(r, g, b, alpha=256):
    if alpha == 0:
        return ' '

    grey = (2126 * r + 7152 * g + 722 * b) / 10000

    char_idx = int((grey / (alpha + 1.0)) * len(char))
    return char[char_idx]

img = Image.open(file_path)

img_widht = img.size[0]
img_height = img.size[1]

# 设定缩放比例
scale_width = 0.2  # 0.75
scale_height = 0.2  # 0.5

# 缩放图片
img = img.resize((int(img_widht*scale_width),
                 int(img_height*scale_height)), Image.NEAREST)

text = ''
for i in range(int(img_height*scale_height)):
    for j in range(int(img_widht*scale_width)):
        text += get_char(*img.getpixel((j, i)))
    text += '\n'

print(text)

我们使用 Python 提供的 PIL 库,读取包含思否猫的图片文件,取得其宽度和高度之后,逐一便利图片每一行的每一个像素,将其 RGB 值利用公式转换成灰度值,再把这些灰度值转换成字符数组 char 的索引。这样,思否猫图片的每一个像素,就唯一对应字符数组里的一个字符。我们把这些字符拼接到输出变量 text 里。

将上述 Python 代码另存为成 cat.py 文件,利用命令行 python cat.py > result.txt, 然后将 result.txt 的内容复制到 ABAP 报表 SAPMS380 的隐式增强实现里即可。

最后我们做一个测试,新建一个 ABAP 报表,随便写一句会引起运行时异常的代码,比如 ASSERT 1 = 0,然后执行:

我们会立即跳转到 ST22 事物码的运行时错误输出界面,Runtime Errors 字段值为 ASSERTION_FAILED, 这正是 ASSERT 1 = 0 引起的运行时错误。

从图中可以看到,思否猫的图案已经成功嵌入到 ST22 界面了。

本文参与了1024程序员节,欢迎正在阅读的你也加入。

注销
1k 声望1.6k 粉丝

invalid