SendFile

用代码向好友或服务器发送文件。

向好友发送文件的语法:

SendFile(BuddyName, FileName,ShowProcess)

BuddyName:  好友名。
FileName:   文件名,含路径。
ShowProcess:可选参数,辑型,是否显示发送进度,默认为False。

向服务器发送文件的语法:

SendFile(FileName,ShowProcess)

FileName:   文件名,含路径。
ShowProcess:可选参数,逻辑型,是否显示发送进度,默认为False。

用SendFile向好友发送文件时,如果好友不在线,将直接返回,并不会以离线文件形式发送。

例如:

Dim bd As QQBuddy = QQClient.Buddies("技术部.林欣华")
If
bd.OnLine Then '如果对方在线
    QQClient.SendFile("技术部.林欣华","c:\data\
151022.doc")
End
If

SendFile采用异步方式,在后台静默发送文件,当文件发送完毕后,会通过事件来通知双方:

1、发送方会触发OpenQQ客户端事件AfterSendFile
2、如果是向好友发送,接收方会触发OpenQQ客户端事件AfterReceiveFile
3、如果是向服务器发送,接收方会触发OpenQQ服务端事件AfterReceiveFile


本页地址:http://www.foxtable.com/webhelp/scr/3020.htm