SCADA实例解析四--SCADA画图和图象处理 -- 入门一

本文以非常简洁的 内存画布 + 画图API + 图象处理 结合的一个简单例子来介绍 SCADA在自画部分的 功能.

功能描述:

　　　　本例子 首先在 SCADA窗体的自画事件中, 构建一个 内存画布, 用于画图API演示,    然后把画布转成 图象处理对象(DirectImage), 利用DirectImage的滤镜功能,  对图象添加噪声后, 显示出来.

 详细代码和注释如下:

/*
    这是作者写的 演示 内存画布+图象处理 的例子. 
    
paul
2012-10-26.    
*/


//  $$scadaWnd是 SCADA窗体对象, setEventProc方法是 定义SCADA窗体的事件处理. 
//   $$scadaWndGraph是     SCADA窗体在onPaint事件触发的时候, 设置的画图全局对象
$$scadaWnd->setEventProc( "onPaint", "onMyPaint($$scadaWndGraph);" ) ;

// 重定义的画图方法. 
function onMyPaint( $graph )
{
    // 调试输出, release版本中可以用 DebugView工具看输出信息. 
    trace "onMyPaint" ;

    // 创建一个 内存画布, 尺寸为(300,300)    
    $memGraph = GDI::newMemGraphics( 300, 300 ) ;    

    // 在这个画布中 随便画点东西, 演示画图API( 可参考GDI+的API, 因为本SCADA画图部分主要包装了 GDI+的 api )
    $pen   = GDI::newPen( "red", 2 ) ;
    $brush = GDI::newSolidBrush( "white" ) ;
    $memGraph->fillEllipse( $brush, 0,0, 300, 300 ) ;
    $memGraph->drawEllipse( $pen, 100,100, 100, 100 ) ;

    // 把 内存画布 转成 DirectImage对象( 因DirectImage对象中包含了图象处理的API ).  
    $dimg = $memGraph->toDirectImage() ;
    
    // 图象滤镜处理示例: 噪声处理. 
    $dimg->noise(100) ;
    
    // 转成bitmap对象( 以用来画图 ). 
    $img  = $dimg->toBitmap() ;
    
    // 画图. 
    $graph->drawImage( $img, 10, 10 ) ;

}

效果: