六个函数开发一个基本的即时通讯系统-CSDN博客

本文链接：https://blog.csdn.net/ITFLY8/article/details/601557

出处：http://www.webp2p.com/downloads/ASimpleIM.htm
主站：http://www.webp2p.com/

本章中将以一个简单的VB例子来引导你快速进入PRTX的世界。如果使用其它语言，调用方式是一样的。

这个简单的即时通讯，有用户注册，用户登录和好友列表显示功能，然后能发文字信息给其中一个选中的好友。

开发准备

开发前，首先需要将即时通讯的客户端DllShareRes.dll放到windows的system 32 目录下，以便vb程序能调用到DllShareRes.dll,，设置ODBC驱动，将系统DSN命名为ShareRes2，并和数据库shareResV2.mdb建立连接，使服务器能够操作数据库, 并运行p2p服务器（ShareResServer.exe），企业版本可以使用SqlServer库，以应对企业级大用户量情况。

总之，您需要以下模块

P2P通讯模块：DllShareRes.dll 学习版

P2P服务器模块：ShareResServer.exe 学习版

数据库：ShareResV2.mdb

需要源代码请联系君曼公司

www.webp2p.com

系统设计

网络架构

数据库

P2p服务器

Internet

客户端

远程数据库连接

DllShareRes.dl

登陆p2p服务器

客户端

设计思路

在本例子中与数据库的交换将通过数据库远程访问对象来做，比如通过ADO连接远程数据库的IP连接到数据库。权限控制等都通过远程数据库控制。

登录通过P2P模块来通讯，P2P服务器将自动验证用户名和密码，下发是否成功信息，同时会下发好友列表，以及好友的IP地址信息。

发送信息将通过P2P通讯模块来发送。

P2P通讯模块还将自动下发好友的上线下线通知，以及跟踪好友IP地址的变化，下发好友IP地址。

数据库说明

shareResV2.mdb是本示例的数据库，将用到其中三个表，分别是UserBrief ，这个表用来存储常用用户信息，以加快访问速度，friends表用来存储用户好友列表信息，msgboard 保存留言信息。下面予以分别说明。

UserBrief表主要字段说明

字段名称	数据类型	说明
UIN	数字	用户登陆号,是用户的标志，和QQ号一样的
Password	文本
UserName	文本	用户名，支持用户名和号码同时登录。
BAuth	是/否	是否需要验证才能加这个人为好友
City	文本
Province	文本
bIsParentOrganization	是/否	父亲是否是组织，如果是组织，就到Organization表里找信息，否则就在个人表里找信息
NParent	数字	父亲是谁，可以是组织或者是个人
NPoints	数字	积分
NType	数字	用户类别，角色，如学生，家长，老师
AuthGroup	数字	所在权限组别，和nType不同. 权限分级1，2,3等
IconID	数字	头像ID，与客户机上的Icon文件名对应
Sex	是/否
Nick	文本
BOnline	数字	状态
Age	数字	年龄
Country	文本	国家
sMobile	文本
Email	文本
sign	文本	签名
onlineTime	数字	在线时长总计，以分钟为单位
nLoginTimes	数字	登录次数
nLastLoginTime	数字	上次登录时间
nRegisterTime	数字	注册时间

用户注册时,数据存入friends 表,uin号是系统自动分配的号码和QQ号一样的，当用户登陆时系统从这个表里提取用户信息.

Msgboard表，这个表存储用户留言信息

字段名称	数据类型	说明
ID	自动编号	主键
AccountTo	数字	接收者uin号
Msg	文本
AccountFrom	数字	发送者uin号
theTime	文本
type	数字

Friends表，这个表保存用户好友例表

字段名称	数据类型	说明
ID	自动编号
UIN	数字
ContactGroupID	数字	组ID，比如我的好友 =1 , 陌生人 = 2, 现在没有用
GroupName	文本
Friends	备注	纪录好友uin好，可能是多个以逗号隔开
Num	数字	好友个数，无用
nParentID	数字	父亲组号

接口说明

用户注册模块

用户注册模块，在VB可以使用常用的数据库远程访问对象来做，比如通过ADO连接远程数据库的IP连接到数据库。

用户注册，也可以通过网页的方式来注册，这种用户注册太多了，不需要详细说明。

用户登录模块

用户登录需要通过即时通讯的DllShareRes.dll来登录P2P服务器，这样，P2P服务器才会保存好用户信息，并在他的好友上线时交换IP地址等。

需要用到的函数说明

StartUp

l StartUp(long addrLeaveMsg, long addrLanStatus, long addlocalErr, long addrTimer, long addrGetMsg, long addrOnline, long addrSysMsg, long addrAdvSearch)

说明：初始化回调函数地址。传入界面

调用DllShareRes.dll之前，需要初始化Dll，初始化Dll由StartUp函数完成。这个函数的参数都是Dll可能用到的回调函数地址。

回调函数，就是Dll在收到服务器的反馈时，所被调用的VB函数，在DllShareRes.dll中，所有VB回调函数都以exe开头，表明这个函数由Dll来调用的。比如ExeLoginReply，这个函数是用户登录成功后Dll要调用的函数。用户可以在所有的回调函数里添加代码。

ExeLoginReply

l Sub ExeLoginReply(ByVal UIN As Long, ByVal i As Long, ByVal parm As String)

如果登陆成功系统将自动返回这个函数这个函数的参数parm包含有登录用户的详细信息，及登录成功后自己的QQ号码。

‘UIN 用户的QQ号

‘I 无用

‘Parm 是如下字符串格式: ‘IconID=Nick=UserName=BAuthType=bSex=nAuthGroup=sIP=nPort=City=Province=country=nLanStatus=age=sMoblie=nStatus

SetNetworkDll

l SetNetworkDll(LPCTSTR sIP, USHORT nPort, LPCTSTR sProxyIP, USHORT nProxyPort, LPCTSTR sUserName, LPCTSTR sPass)

说明：设置网络，包括代理服务器

sIP à服务器IP

nPort à服务器端口

sProxyIP à设置代理上网IP

nProxyPort à设置代理端口

sUserName à设置代理用户名

sPass à设置代理密码

一般，SetNetworkDll不需要设置代理，仅设置服务器和端口就行了。

ExeSysMsg

l Sub ExeSysMsg(ByVal e As Integer, ByVal i As Long, ByVal parm As String)

'返回系统消息或者错误码，e是codes, i是哪个命令的返回消息,i可能不用，parm备用

例如如果用户登陆成功e=E_LOGIN_SUC 表示登陆成功，如果登陆不成功根据e的值可以判断登陆不成功的原因

CmdReqContactListDll

l Public Declare Sub CmdReqContactListDll Lib "DllShareRes.dll" (ByVal addr As Long)

说明：表示需要服务器下传好友列表。

可以在ExeLoginReply函数中调用CmdReqContactListDll函数，以便在登陆成功时自动调用用户好友列表，

Addr是收到好友列表的回调函数地址。一般是回调函数ExeReqContactList地址，这样在ExeReqContactList函数的参数parm中返回用户全部好友列表。

ExeReqContactList

l Sub ExeReqContactList(ByVal UIN As Long, ByVal i As Long, ByVal parm As String)

说明获得的好友列表, parm为好友及组信息，parm为：组号=组名=Nick Name=是否需要验证=图标ID=UIN=在线状态,用户可以在这个函数中添加好友列表显示代码。

ExeAdvSearch

const BATCH_VIS_LIST = 2

const BATCH_SEARCH_LIST = 3

l Sub ExeAdvSearch(ByVal UIN As Long, ByVal i As Long, ByVal parm As String)

这个函数表示收到一批用户，有两种类型，I = BATCH_VIS_LIST 表示是上线好友，I= BATCH_SEARCH_LIST表示查找到的列表

用户登陆成功时自动返回该函数，当I = BATCH_VIS_LIST，parm 参数值是上线好友的信息parm是 UIN=Status=nIP=nPort=防火墙。

登录流程

CmdLoginDll

ExeLoginReply

ExeSysMsg 表明错误原因

成功

登录不成功

CmdReqContactListDll 需要好友列表

例子， 10000号用户登录。

ExeReqContactList 获得好友列表

ExeSysMsg 收到消息码

E_CONTACT_LIST_END 表示好友例表已经全部传完

ExeAdvSearch 获得上线的好友IP地址

Private Sub Form_Load()

'启动Dll模块

Call StartUp(AddressOf ExeGetLeaveMsg, AddressOf ExeLanStatus, AddressOf ExeLocalErr, AddressOf ExeSetTimer, AddressOf ExeGetMsg, AddressOf ExeUserOnline, AddressOf ExeSysMsg, AddressOf ExeAdvSearch)

SetNetworkDll "218.16.122.102", 3288, "", 0, "", ""

Call CmdLoginDll(AddressOf ExeLoginReply, 2, 10000, "", "123321")

End Sub

上例登陆的服务器地址是"218.16.122.102"，端口 3288 ，登陆号码是10000，密码是123321，用户可以根据需要进行设置

如果登录成功，则ExeLoginReply会被调用，在exeLoginReply中，登录成功后，VB程序可以做任何事情，比如可以通过ADO连接远程数据库，取下自己的用户信息

Sub ExeLoginReply(ByVal UIN As Long, ByVal i As Long, ByVal parm As String)

‘UIN 是登录成功后自己的QQ号码。

‘这里远程连接数据库，从自己的用户表里取下自己的信息。

'需要服务器下传好友列表

Call CmdReqContactListDll(AddressOf ExeReqContactList)

end sub

如果登录不成功，返回系统错误码

Sub ExeSysMsg(ByVal e As Integer, ByVal i As Long, ByVal parm As String)

lmsg "ExeSysMsg:::::::::::::::" & e & "i=" & "parm=" & parm & "登录状态 " & g_stMe.nStatus

Select Case e

Case E_SUCCEED

'MsgBox "操作成功" ' //操作成功，不需要提示

Case E_NO_UIN

frmMain.UserState.Caption = "登录的用户ID不存在" '12010 //登录不成功，用户名不存在

Case E_LOGIN_FAIL

frmMain.UserState.Caption = "登录不成功，其它原因"

Case E_SOKET_CREATE

MsgBox "无法创建socket", vbCritical, g_sAppName

Case Else

' MsgBox "服务器返回: " & e & " " & parm, vbInformation, g_sAppName

End Select

End Sub

'得到好友列表，并加好友信息加到窗口中显示

Sub ExeReqContactList(ByVal UIN As Long, ByVal i As Long, ByVal parm As String)

Debug.Print "ExeReqContactList::::::::::::: UIN: " & UIN & ", i:" & i & ", parm: " & parm

Dim GroupNameNo As Integer, UserFriend() As String

Dim FriendNum As Long, Group() As String, GroupNum As Long, ii As Long

Dim GroupName As String

Dim UserFriendOne() As String

Dim sNick As String

Dim sIcon As String

Dim sIP As String

Dim nPort As Long

Dim theUIN As Long

Dim USER_ITEMS As Integer

USER_ITEMS = 7 '一个用户数据包括的字段数

'拆分出ContactList内容

Group = Split(parm, "=")

GroupNum = UBound(Group)

GroupNameNo = Group(0) '组号

GroupName = Group(1) '组名

If GroupNum < USER_ITEMS Then

'如果只有组，无成员

Debug.Print "如果只有组，无成员: " & GroupName, GroupNameNo

Form1.TreeView1.Nodes.Add "root", tvwChild, UserB(1), UserB(1)

Else

Dim IconID As Integer

'如果为7

For ii = 0 To ((GroupNum - 2) / USER_ITEMS) - 1

theUIN = CLng(Group(2 + 3 + USER_ITEMS * ii))

sIcon = Group(2 + 2 + USER_ITEMS * ii)

sNick = Group(2 + 0 + USER_ITEMS * ii)

sIP = Group(2 + 5 + USER_ITEMS * ii)

If Len(Group(2 + 6 + USER_ITEMS * ii)) > 0 Then

nPort = CLng(Group(2 + 6 + USER_ITEMS * ii))

Else

nPort = 0

End If

lmsg "ExeReqContactList::ListAllUser1.AddMemberOne 组号: " & GroupNameNo & " 组名: " & GroupName & _

" 用户: " & theUIN & _

" Nick: " & sNick & _

" 是否需要验证: " & Group(2 + 1 + USER_ITEMS * ii) & _

" 图标ID : " & sIcon & _

" 在线状态: " & Group(2 + 4 + USER_ITEMS * ii) & _

" IP地址: " & sIP & _

" 端口: " & CStr(nPort)

' Dim IconID As Integer

IconID = CInt(sIcon)

If IconID > HEADER_IMAGE_COUNT Then

IconID = 0

End If

'LHJ 在线状态用0 表示未定义，因为从服务器上取下来的只是数据库里上线的状态，给网页用的

'而软件是会收到上线好友消息的，因此不用在这里读状态

If UserB(2 + 0 + USER_ITEMS * ii) <> "" Then

Form1.TreeView1.Nodes.Add UserB(1), tvwChild, UserB(2 + 0 + USER_ITEMS * ii) + "'" + _UserB(5 + 0 + USER_ITEMS * ii) + "'", UserB(2 + 0 + USER_ITEMS * ii) + "'" + UserB(5 + 0 _+ USER_ITEMS * ii) + "'", UserB(4 + 0 + USER_ITEMS * ii) + 1

End If

End Sub

向好友发送自定义P2P消息

l CmdSendMsgDll(USHORT msgtype, USHORT nLanstatus, long addr, ULONG hisUIN, LPCTSTR sDestIP, USHORT DestPort, LPCSTR mes)

说明：发送消息给对方

其中msgType是消息类型，可以自定义，比如msgType为100，可表示这是发文件的请求信息。MsgType为120可表示为请求语音的信息等等。

sDestIP, DestPort 是对方的ip地址和端口，可以在用户登陆时从ExeAdvSearch函数得到上线好友的ip地址和端口

mes是发送消息的内容

CmdLeaveMsgDll(USHORT msgtype, long addr, ULONG hisUIN, LPCSTR mes)

说明：发送留言给对方。

使用：如果对方的IP地址是空的，也就是对方不在线，就可以在调用此函数留言到服务器上。

应用实例

实例概述

下面是一个用VB开发的实例：

登陆界面如下图

首先在vb中新建一个工程，并向工程中另外添加三个窗体，form1,form2,form3,form4,分别用来作为，主窗体，登陆界面，注册界面，发送消息界面，界面外观如下图。另外还须向工程中添加一共用模块Module1，放置DllShareRes.dl的函数声明，和回调函数。

下面予以分别说明。

主窗口

(1). 主窗体form1 ,如下图一显示，点击登陆按钮，则进入登陆界面，登陆成功后主窗体显示用户好友列表,背景为蓝色表示好友在线，双击用户名，进入发送消息界面，

主窗体的主要控件

控件	命名	说明
frame	Frame1	运行时主窗体先显示，frame1,frame2,frame3,登陆成功后，frame1,frame2,frame3隐藏，frame4,frame5,显示
frame	Frame2
frame	Frame3
frame	Frame4
frame	Frame5
CommandButton	Command1	登陆按钮
TreeView	Treeview1	显示用户列表，在frame4上
Timer	DllTime	DllShareRes.dll里用到
Timer	Timer1
label	Label1	在frame1上，
label	Label2	在frame5上，
image	Image1	在frame5上,显示用户图像

图一图二

图三图四

窗体初始化代码如下：

Private Sub Form_Load()

TreeView1.ImageList = Form3.ImageList1

login1 = False '公用变量初始化

loginlist = False

g_sendMessage = False

g_clickevent = False

TreeView1.Nodes.Add , , "root", "好友列表"

'初始化回调函数

Call StartUp(AddressOf ExeGetLeaveMsg, AddressOf ExeLanStatus, AddressOf ExeLocalErr, AddressOf ExeSetTimer, AddressOf ExeGetMsg, AddressOf ExeUserOnline, AddressOf ExeSysMsg, AddressOf ExeAdvSearch)

CmdiniLog "MaimPro", False

Frame4.Visible = False

Frame5.Visible = False

Frame1.Visible = True

Frame2.Visible = True

Frame3.Visible = True

End Sub

登陆成功后返回好友列表代码如下

Sub ExeReqContactList(ByVal uin As Long, ByVal i As Long, ByVal parm As String)

lmsg " "

lmsg "ExeReqContactList::::::::::::: UIN: " & uin & ", i:" & i & ", parm: " & parm

Debug.Print "ExeReqContactList::::::::::::: UIN: " & uin & ", i:" & i & ", parm: " & parm

Dim UserB() As String

Dim iii As Integer

Dim iiii As Integer

Dim GroupNameNo As Integer, UserFriend() As String

Dim FriendNum As Long, Group() As String, GroupNum As Long, ii As Long

Dim GroupName As String

Dim UserFriendOne() As String

Dim sNick As String

Dim sIcon As String

Dim sIP As String

Dim nPort As Long

Dim theUIN As Long

Dim USER_ITEMS As Integer

USER_ITEMS = 7 '一个用户数据包括的字段数

UserB = Split(parm, "`")

GroupNum = UBound(UserB)

If GroupNum < USER_ITEMS Then

Debug.Print "如果只有组，无成员: " & UserB(0), UserB(1)

Form1.TreeView1.Nodes.Add "root", tvwChild, UserB(1), UserB(1)

Else

‘添加组名

Form1.TreeView1.Nodes.Add "root", tvwChild, UserB(1), UserB(1)

Dim IconID As Integer

‘向TREEVIEW1添加好友列表

For ii = 0 To ((GroupNum - 2) / USER_ITEMS) - 1

If UserB(2 + 0 + USER_ITEMS * ii) <> "" Then

Form1.TreeView1.Nodes.Add UserB(1), tvwChild, UserB(2 + 0 + USER_ITEMS * ii) + "'" + UserB(5 + 0 + USER_ITEMS * ii) + "'", UserB(2 + 0 + USER_ITEMS * ii) + "'" + UserB(5 + 0 + USER_ITEMS * ii) + "'", UserB(4 + 0 + USER_ITEMS * ii) + 1

End If

Next ii

Form1.TreeView1.Nodes(1).Expanded = True

End If

End Sub

当ExeReqContactList返回好友列表，存在树的节点中。ExeAdvSearch返回上线好友，存在onlineuser()数组中，并在树中搜索上线好友，在主界面的树状列表中把在线好友背景加为蓝色

显示在线好友代码如下，

Private Sub Timer1_Timer()

If login1 = True And loginlist = True Then ‘判断在线好友列表和好友列表是否已经返回

Dim iiii As Integer

Dim iii As Integer

Dim count As Integer

Dim str11 As String

Dim uin1() As String

Dim ite As Integer

ite = 0

count = Form1.TreeView1.Nodes.count

iiii = onlineUser(0).bl

' MsgBox "onlineUser.bl" & onlineUser(0).bl

For iii = 0 To iiii - 1

For ite = 2 To count

childcount = Form1.TreeView1.Nodes(ite).Children

If childcount = 0 And Form1.TreeView1.Nodes(ite).Parent <> Form1.TreeView1.Nodes(1) Then

str11 = Form1.TreeView1.Nodes(ite).Text

uin1 = Split(str11, "'")

Debug.Print "uin1(1)" & uin1(1)

If uin1(1) = onlineUser(iii).uin Then

Form1.TreeView1.Nodes(ite).Tag = onlineUser(iii).ip + "`" + onlineUser(iii).port + "`"

Form1.TreeView1.Nodes(ite).Bold = True

Form1.TreeView1.Nodes(ite).BackColor = &H80000013

'Form1.TreeView1.Nodes(i).

End If

Else: 'ite = ite + 1

End If

Next iii

login1 = False

loginlist = False

End If

End Sub

如果点击好友节点，进入发送消息界面，代码如下

Private Sub TreeView1_DblClick()

Dim Index As Integer

Dim i As String

i = TreeView1.SelectedItem

'Index = TreeView1.Node.Index

g_commonUid = I ‘将用户登陆号传给发送消息界面

' MsgBox g_commonUid, vbCritical

If i <> "好友列表" Then

If TreeView1.Nodes(i).Children <= 0 And Form1.TreeView1.Nodes(i).Parent <> Form1.TreeView1.Nodes(1) Then

g_tag1 = CStr(TreeView1.Nodes(i).Tag)

Form4.Refresh

Form4.Image1.Picture = Form3.ImageList1.ListImages(TreeView1.Nodes(i).Image).Picture

Form4.Show

End If

End Sub

登陆界面

界面主要控件如下

控件	命名	说明
label	Label1	Caption=通讯号
label	Label2	Caption=密码
label	Label3	Caption=服务器
CommandButton	Command1	Caption=登陆
CommandButton	Command2	Caption=退出
CommandButton	Command3	Caption=注册新用户
comboBox	Combo1	输入服务器地址框
comboBox	Combo2	输入通讯号框
text	Text1	密码框

登陆界面如图二，用户输入登陆号和密码登陆，如果登陆出错，比如密码错误，则由回调函数ExeSysMsg传回错误信息，否则登陆成功，form2 窗体是登陆窗体，主要代码如下

Private Sub Command1_Click()

If Combo2.Text = "" Then

MsgBox "用户名不能为空", vbCritical

Combo2.SetFocus

Exit Sub

End If

If Text2.Text = "" Then

MsgBox "密码不能为空", vbCritical

Text2.SetFocus

Exit Sub

End If

Dim str() As String

str = Split(Combo1.Text, ":")

‘和服务器建立连接

SetNetworkDll str(0), str(1), "", 0, "", ""

‘调用登陆函数

Call CmdLoginDll(AddressOf ExeLoginReply, 2, Combo2.Text, "", Text2.Text)

End Sub

注册界面

界面主要控件如下

控件	命名	说明
label	Label1~label13
CommandButton	Command1~ Command2
comboBox	Combo1~ Combo5
text	Text1~text6
imageCombo	ImageCombo1	ImageCombo1.imagelist=imagelist1
imageList	ImageList1	锁定一组图片

注册界面由用户通过ADO远程登录到服务器数据库，进行注册，这里有两种方式进行连接远程数据库，通过ODBC 驱动和直接通过ADO对象连接，这里通过ODBC连接，服务器ODBC 数据源DSN设为ShareRes ，并和相应数据库建立连接。，注册成功，系统返回用户注册号码。注册界面如图五

图五

代码如下

Private Sub Command1_Click()

Dim count As Integer

Dim count1 As Integer

If Text1.Text = "" Then

MsgBox "请填写用户名", vbCritical

Text1.SetFocus

Exit Sub

End If

If Text2.Text = "" Then

MsgBox "请填写密码", vbCritical

Text2.SetFocus

Exit Sub

End If

If Text6.Text = "" Then

MsgBox "请填写呢称", vbCritical

Text6.SetFocus

Exit Sub

End If

If Text7.Text = "" Then

MsgBox "请填写EMAIL", vbCritical

Text7.SetFocus

Exit Sub

End If

Dim conn As New ADODB.Connection

Dim rs_add As New ADODB.Recordset

Dim str As String

'str="Provider=Microsoft.Jet.OLEDB.4.0;data source=//127.0.0.1/e$/xyh/ÐìÓý»Ô/shareResV2.mdb"

‘服务器地址为127。0。0。用户可以改变

str = "server=127.0.0.1;dsn=ShareRes;uid=sa;pwd=sa;"

conn.Open str

If Trim(Text2.Text) <> Trim(Text3.Text) Then

MsgBox "Á½´ÎÃÜÂë²»Ò»ÖÂ", vbOKOnly + vbExclamation, ""

Text2.SetFocus

Text3.Text = ""

Text2.Text = ""

Else

sql = "select * from UserBrief"

rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic

'count = rs_add.RecordCount

rs_add.MoveLast

count = rs_add.Fields(0)

rs_add.AddNew

count1 = count + 1

rs_add.Fields(0) = count + 1

rs_add.Fields(1) = Text2.Text

rs_add.Fields(2) = Text1.Text

rs_add.Fields(4) = Combo5.Text

rs_add.Fields(5) = Combo4.Text

rs_add.Fields(11) = ImageCombo1.SelectedItem.Index

If Combo2.Text = "ÄÐ" Then

rs_add.Fields(12) = True

Else

rs_add.Fields(12) = False

End If

rs_add.Fields(13) = Text6.Text

rs_add.Fields(16) = Text5.Text

rs_add.Fields(17) = Combo3.Text

rs_add.Fields(18) = Text7.Text

rs_add.Update

rs_add.Close

MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""

MsgBox "你的号码是:" & count1, vbOKOnly + vbExclamation, ""

Form3.Visible = False

End If

conn.Close

End Sub

发送消息界面

界面主要控件如下

控件	命名	说明
label	Label1	Caption=发送信息至
CommandButton	Command2	发送按钮
frame	Frame1~frame2
text	Text1~text2	Text1在frame1里Text2在frame2 里
image	Image1~image2	显示用户图像