【原创】web画图工具ShotGraph攻略

5iChina.Net原创,尊重知识

ShotGraph 能在以下的环境中使用：

1. Visual Basic
2. VBScript
3. Visual Basic for applications (VBA), Word, Excel, etc.
4. Active Server Pages (ASP) engine with Internet Information Server
5. Perl for Windows
6. others

ShotGraph 基本知识

通过你的程序创建的ShotGraph对象的实例大部分都有图像空间(imagespace), 图像空间是一种用来存储ShotGraph对象创建的数据结构，而ShotGraph对象控制和操作图像的数据。因此，如果你想用ShotGraph来创建或者操作图像文件，就应当创建图像空间。

创建的对象最多有两个图像空间。一个是首要图像空间（primary imagespace），另外一个就是次要图像空间（secondary imagespace）。首要图像空间由CreateImage方法创建。事实上，这个方法可以在几乎所有的script脚本中可以调用。

次要图像空间，也叫‘本地粘贴板(local clipboard)’由InitClipboard方法创建。次要图像空间作为一个缓存来保持图像的整体或者部分地转换，例如：拷贝、伸展、透明等操作。

画图要使用首要图像空间和次要图像空间来，从已经存在的图片中装载，只需要使用首要图像空间的GifImage，JpegImage等方法。

Step by step

这是一个图像创建的基本功能: 写文本,基本图形等等.

1. 首先建立一个对象 "shotgraph.image".
2. 调用 CreateImage 方法定义必要的首要图像空间大小。
3.  ReadImage. 用ReadImage 方法调用一个已经存在的图像到首要图像空间中作为背景。
4. 调用 SetColor 方法来定义颜色。
5. FillRect 方法用来清除图像空间。
6. 调用必要的方法来画图.
7. 调用GifImage (JpegImage etc.) 方法来写文件

VBScript 中的代码：

'Creating the object
set obj=CreateObject("shotgraph.image")

size=201
'Calling the CreateImage method
obj.CreateImage size,size,4

'Set 4 colors for drawing
obj.SetColor 0,255,255,255
obj.SetColor 1,0,0,0
obj.SetColor 2,255,108,0
obj.SetColor 3,0,0,204

'Crearing the painting area with color 0
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1

'Color 0 will be used for drawing
obj.SetDrawColor 1
'Drawing the line
obj.Line size-1,0,0,size-1
'Color 2 will be used for filling
obj.SetBgColor 2
'Draw the big circle
obj.Ellipse 5,5,size-6,size-6
'Color 2 will be used for filling
obj.SetBgColor 3
'Draw the small circle
obj.Ellipse 5,(size-5)/4,size/2,(size-5)*3/4

'Create the image file named test.gif
obj.GifImage 0,1,"test.gif"

asp中的代码：

Response.ContentType="image/gif"
set obj=Server.CreateObject("shotgraph.image")

size=201
obj.CreateImage size,size,4
obj.SetColor 0,255,255,255
obj.SetColor 1,0,0,0
obj.SetColor 2,255,108,0
obj.SetColor 3,0,0,204
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1

obj.SetDrawColor 1
obj.Line size-1,0,0,size-1
obj.SetBgColor 2
obj.Ellipse 5,5,size-6,size-6
obj.SetBgColor 3
obj.Ellipse 5,(size-5)/4,size/2,(size-5)*3/4

img=obj.GifImage(0,1,"")
Response.BinaryWrite img

Perl中的代码：

$obj=CreateObject("shotgraph.image")

$size=201
$obj->CreateImage($size,$size,4)
$obj->SetColor(0,255,255,255)
$obj->SetColor(1,0,0,0)
$obj->SetColor(2,255,108,0)
$obj->SetColor(3,0,0,204)
$obj->SetBgColor(0)
$obj->FillRect(0,0,$size-1,$size-1)

$obj->SetDrawColor(1)
$obj->Line($size-1,0,0,$size-1)
$obj->SetBgColor(2)
$obj->Ellipse(5,5,$size-6,$size-6)
$obj->SetBgColor(3)
$obj->Ellipse(5,($size-5)/4,$size/2,($size-5)*3/4)

$obj->GifImage(0,1,"test.gif")

api大全
http://www.shotgraph.com/api.htm

组件下载地址
http://www.shotgraph.com/download.htm

注意：如果要用到ShotGraph的全部功能，就要money了，不过基本的功能，应该可以满足大家的大部分需求了。呵呵。。。

更多内容可以参看网站
http://www.shotgraph.com/