是的，这里是一个示例程序。 该程序实际上使用SE78中的子例程来上载图形。 效果不错。 另外，通过这种方式，在提供名称和文件名后无需用户交互。

 报告zrich_0004。

 参数：p_file类型本地文件默认为" C：file.bmp"。
 参数：p_image类型stxbitmaps-tdname。

 数据：图像名称类型stxbitmaps-tdname。

 在p_file值请求的选择屏幕上。
   调用函数" KD_GET_FILENAME_ON_F4"
        出口
             静态='X'
        改变
             file_name = p_file。

 选择开始。

   imagename = p_image。


   使用"从前端导入图像"执行show_status。
   使用p_file执行import_bitmap
                               图片名称
                               "测试图像"。


 ******************************************************  **********************
 *表格import_Bitmap *
 ******************************************************  **********************
 使用文件名形式import_bitmap
                          名称
                          标题。

   数据：l_resolution类型stxbitmaps-resolution。
   数据：l_docid类型为stxbitmaps-docid。

   执行import_bitmap_bds
                   在程序saplstxbitmaps中
                             使用文件名
                                      名称
                                      'GRAPHICS'"对象
                                      'BMAP'" ID
                                      'BMON'"黑白
                                      'BMP'"扩展名
                                      标题
                                      空间
                                      'X'
                             更改l_docid
                                      l_resolution。



 最终形式。


 

此致

Rich Heilman