專利名稱：一種用于應(yīng)用層軟件的套接字工具的制作方法
技術(shù)領(lǐng)域：
本發(fā)明涉及一種套接字(socket)工具，特別是一種僅使用TCP協(xié)議來作為網(wǎng)絡(luò)通信規(guī)范的套接字工具。
本發(fā)明另一目的是提供一種用于處理應(yīng)用層軟件的傳輸數(shù)據(jù)的增值程序，其用以提供安全性、保密性及高速度的網(wǎng)絡(luò)傳輸。
為實(shí)現(xiàn)本發(fā)明的目的，本發(fā)明提供一種用于應(yīng)用層軟件的套接字工具，其中該套接字工具是以編寫為一程序的方式來實(shí)施，并在一電腦內(nèi)執(zhí)行，以提供該電腦的應(yīng)用層軟件調(diào)用，使該電腦能夠通過TCP網(wǎng)絡(luò)與其它電腦的應(yīng)用層軟件通信，該套接字工具包括一組用于通信TCP網(wǎng)絡(luò)的套接字控制(socket control)程序，其中該套接字控制程序是利用TCP協(xié)議進(jìn)行通信。
此外，本發(fā)明套接字工具進(jìn)一步包括一組用于處理該應(yīng)用層軟件的傳輸數(shù)據(jù)的增值程序。
為使熟悉該項(xiàng)技術(shù)的人士了解本發(fā)明的目的、特征及功效，通過下述具體實(shí)施例，配合附圖
對本發(fā)明詳加說明如下。
圖2是本發(fā)明套接字工具與傳統(tǒng)WinSock的比較示意圖。本發(fā)明套接字工具的套接字控制程序僅使用TCP網(wǎng)絡(luò)協(xié)議作為網(wǎng)絡(luò)通信規(guī)范，而圖2的傳統(tǒng)WinSock，如微軟公司所提供的傳統(tǒng)WinSock，是利用TCP協(xié)議或UDP協(xié)議等兩種網(wǎng)絡(luò)協(xié)議來作為網(wǎng)絡(luò)通信規(guī)范，當(dāng)例如一FTP應(yīng)用層軟件通過傳統(tǒng)WinSock作文件下載傳輸作業(yè)時(shí)，往往會(huì)發(fā)生文件數(shù)據(jù)丟失的情況，尤其在傳輸MP3、JPG圖像等數(shù)據(jù)時(shí)丟失情況更為嚴(yán)重，這是該傳統(tǒng)WinSock的錯(cuò)誤所導(dǎo)致的結(jié)果。由于本發(fā)明套接字工具的套接字控制程序僅使用TCP網(wǎng)絡(luò)協(xié)議，能夠避免上述的錯(cuò)誤。圖2套接字工具的套接字控制程序由此目標(biāo)(object)型態(tài)作為實(shí)施的說明，所以分為方法(methods)及事件(events)兩部分。
以下列舉說明本發(fā)明套接字工具的套接字控制程序及其語法(syntax).SClose結(jié)束一服務(wù)端電腦及一客戶端電腦之間的通信語法范例IpSock.SClose.SConnect以服務(wù)端電腦IP的字串(string)及端口參數(shù)(Portparameters)建立通信語法范例IpSock.SConnect Cstr(IP)，CStr(Port)使用例Ren Ws is the name of IDsocktxtIp＝″191.164.0.6″，txtPort＝″1064″Ws.SConnect TxtIP，txtPort
.SGetData 傳回一特定字串，其是為自數(shù)據(jù)庫執(zhí)行SQL命令完成后的結(jié)果或信息語法范例IpSock.SGetData使用例Dim Display Str As StringRem Ws is the name of IpsockDisplayStr＝Ws.SGetData.SSendData以SQL命令字串的長度(length)及SQL命令字串參數(shù)自客戶端電腦傳送數(shù)據(jù)至服務(wù)端電腦語法范例IpSock.SSendData LengthOfExecSQLCmdStr&″|″& ExecSQLCmdStr使用例Ren Ws is the name of IpsockDim Execstr＝StringExecstr＝″SELECT * FROM employee″Ws.SendData Len(Execstr)& ″|″ & Execstr.State傳回狀態(tài)值語法范例Object.State其中State狀態(tài)值如下
.Str2rec 從一輸入字串、一函數(shù)(Function)傳回一特定記錄組及一指示字串語法范例StroRec.Str2rec使用例<pre listing-type="program-listing"> Dim rs As New ADODB.Recordset Dim StrtoRec As New StrtoRec.str2rec Dim DisplayStr As String，DataResult As String DisplayStr＝Ws.SGetData If StrtoRec.str2rec(DisplayStr，rs，DataResult) ＝″OK″Then If DataResult＝ ″″ Then If rs.RecordCount＞O Then Ren DG1 is a DataGrid Set DG1.DataSourcel＝rs.DataSource End If Set rs＝Nothing Else MsgBox″Result″＝″ &amp; DataResult″ End If Else MsgBox″ERROR″ End If</pre>以下是本實(shí)施更詳細(xì)的例子<pre listing-type="program-listing">Option Explicit ′Const m_Def_WaitSec＝30 Const m_Def_LocalPort＝1024 ′Const m Def TimeOut＝30<dp n="d5"/> ′Const m_Def_TimerFlag＝0 ′Const m_Def_CheckAlive＝0 ′Dim m_WaitSec As Long Dim m_IocalPort As Long ′Dim m_TimeOut As Long ′Dim m_TimerFlag As Boolean ′Dim m_CheckAlive As Boolean Const SendBinary＝1 Const ReceiveBinary＝2 Const Normal＝0 Private LiveChar As String Private RecData As Variant Private RecDataLen As Long Private LastSend As Variant Private IPAddress As Variant Private Counter As Long Dim SendFileBlock As Boolean Private Send_Mode As Integer ′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′ ′Public Variable ′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′ ′Public ShowAhime As Boolean ′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′<dp n="d6"/> ′Event List ′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′ Public Event SClose() Public Event SConnectionRequest(ByVal requestID As Long) Public Event SDataArrival(ByVal bytes Total As Long) Public Event SFileArrival(ByVal FileName As String) Public Event SError(ByVal Number As Integer，Description As String) Public Event SSendComplete() Public Event SConnected() Public Event ConnectionTimeOut() Private s()As Byte Private FileName As String，TbytesReceive As Long，TbytesReceived As Long′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′UserControl Property′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′Public Property Get waitSec()As Long′waitSec＝m_WaitSec′End Property′Public Property Let waitSec(ByVal WaitSecond As Long)′WaitingForm.WaitTime＝WaitSecond′m_WaitSec＝WaitSecond′PropertyChanged″waitsec″′End PropertyPublic Property Get LocalPort()As Long LocalPort＝m_LocalPortEnd Property<dp n="d7"/>Public Property Let LocalPort(ByVal Port As Long) m_LocalPort＝Port WS.LocalPort＝m_LocalPort PropertyChanged″localport″End Property′Public Property Get TimeOut()As Variant′ TimeOut＝m_TimeOut′End Property′Public Property Let TimeOut(ByVal vNewValue As Variant)′If IsNumeric(vNewValue)Then′ m_TimeOut＝CLng(vNewValue)′ PropertYChanged″timeout″′End If′End Property′Public Property Get TimerFlag()As Boolean′TimerFlag＝m_TimerFlag′End Property′Public Property Let TimerFlag(ByVal vNewValue As Boolean)′m_TimerFlag＝vNewValue′PropertyChanged″timerflag″′End Property′Public Property Get CheckAlive()As Boolean′CheckAlive＝m_CheckAlive<dp n="d8"/>′End Property′Public Property Let CheckAlive(ByVal vNewValue As Boolean)′m_CheckAlive＝vNewValue′PropertyChanged″checkalive″′End Property′Read OnlyPublic Property Get State()As IntegerState＝WS.StateEnd PropertyPublic Property Get SocketHandle()As Long SocketHandle＝WS.SocketHandleEnd PropertyPublic Property Get RemotePort()As Long RemotePort＝WS.RemotePortEnd PropertyPublic Property Get LocalIp()As Variant LocalIp＝WS.LocalIpEnd PropertyPublic Property Get RemoteIp()As Variant RemoteIp＝WS.RemoteHostIP End Property′Private Sub Alive Timer()<dp n="d9"/>′If m_CheckAlive Then′ Counter＝Counter+1′ If m_TimerFlag Then′ If Counter＞＝m_TimeOut Then′ WS.Close′ RaiseEvent ConnectionTimeOut′ End If′ End If′If WS.State＝7 Then′ WS.SendData LiveChar′End If′ End If′End SubPrivate Sub UserControl_Initialize() Send_Mode＝Normal′ If m_CheckAlive Then′Alive.Enabled＝True′ Else′Alive.Enabled＝False′ End If LiveChar＝Chr(231)End SubPrivate Sub UserControl_InitProperties()′ m_WaitSec＝m_Def_WaitSec m_LocalPort＝m_Def_LocalPort′ m_TimeOut＝m_Def_TimeOut<dp n="d10"/>′ m_TimerFlag＝m_Def_TimerFlag′ m_CheckAlive＝m_Def_CheckAliveEnd SubPrivate Sub UserControl_ReadProperties(PropBag As PropertyBag)′ m_WaitSec＝PropBag.ReadPropertY(″waitsec″，m_Def_WaitSec) m_LocalPort＝PropBag.ReadProperty(″localport″，m_Def_LocalPort)′ m_TimeOut＝PropBag.ReadProperty(″timeout″，m_Def_TimeOut)′ m_TimerFlag＝PropBag.ReadProperty(″timerflag″，m_Def_TimerFlag)′ m_CheckAlive＝PropBag.ReadProperty(″checkalive″，m_Def_CheckAlive)End SubPrivate Sub UserControl_Resize() UserControl.Height＝300 UserControl.Width＝300End SubPrivate Sub UserControl_WriteProperties(PropBag As PropertyBag)′ Call PropBag.writeProperty(″waitsec″，m_WaitSec， m_Def_WaitSec) Call PropBag.WriteProperty(″localport″，m_LocalPort，m_Def_LocalPort)′ Call PropBag.WriteProperty(″timeout″，m_TimeOut，m_Def_TimeOut)′ Call PropBag.WriteProperty(″timerflag″，m_TimerFlag，m_Def_TimerFlag)′ Call PropBag.WriteProperty(″checkalive″，m_CheckAlive，m_Def_CheckAlive)End Sub′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′WinSock Event′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′Private Sub WS_Close()<dp n="d11"/> RaiseEvent SCloseEnd SubPrivate Sub WS_Connect() RaiseEvent SConnectedEnd SubPrivate Sub WS_ConnectionRequest(ByVal requestID As Long) RaiseEvent SConnectionRequest(requestID)End SubPrivate Sub WS_DataArrival(ByVal bytes Total As Long) ′Dim strCompress As New strcomprelib.strcompre Dim RData As Variant，tempStrArray()As String Counter＝0 Select Case Send_Mode Case SendBinary For Binary Data WS.GetData RData，vbString If Right(RData，1)＝Chr(230)Then If Right(RData，10)＝Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9)&amp; Chr(9) &amp; Chr(9) &amp; Chr(9)Then RData＝Left(RData，Len(RData)-10) RecData＝RecData &amp; RData End If RecData＝Elminate(RecData，LiveChar) On Error GoTo errorhandle ′RecData＝strCompress.struncompress(RecData) Select Case RecData<dp n="d12"/> Case″ReadyToReceive″ WS.SendData s() Case″ReceiveFileDone″ Send_Mode＝Normal SendFileBlock＝Ealse ReDim s(0) FileName＝″″ RaiseEvent SDataArrival(bytesTotal) Case″ResendFile″ WS.SendData s() End Select RecData＝″″Case ReceiveBinary TbytesReceived＝TbytesReceived+bytesTotal WS.GetData s()，vbArray+vbByte Put #1，，s If TbytesReceived＞＝TbytesReceive Then Close #1 Send_Mode＝Normal SSendData(″ReceiveFileDone″) RaiseEvent SFileArrival(″c\″&amp; FileName) TbytesReceived＝0 End IfCase Normal ′For Text Message<dp n="d13"/> WS.GetData RData，vbString If Right(RData，1)＝Chr(230)Then If Right(RData，10)＝Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) &amp;Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9)Then RData＝Left(RData，Len(RData)-10) RecData＝RecData &amp; RData ′If ShowAnime Then ′ShowAnime＝False ′Unload WaitingForm ′End If RecData＝Elminate(RecData，LiveChar) On Error GoTo errorhandle ′RecData＝strCompress.struncompress(RecData) If Left(RecData，17)＝″RequestToSendFile″Then tempStrArray＝Split(RecData，″|″，-1，vbTextCompare) If UBound(tempStrArray)＝2 Then If IsNumeric(tempStrArray(2))Then FileName＝CStr(tempStrArray(1)) TbytesReceive＝CLng(tempStrArray(2)) Open″c\″&amp; FileName For Binary Access Write As #1 SSendData(″ReadyToReceive″) Send_Mode＝ReceiveBinary End If End If Else RaiseEvent SDataArrival(bytesTotal) End If<dp n="d14"/> RecData＝″″ Else If RData＜＞LiveChar Then RecData＝RecData &amp; RData End If ′If ShowAnime Then ′DoEvents ′Correct Progress bar in Here ′End If End If End Select ′Set strCompress＝Nothing Exit Sub′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′errorhandle RecData＝″″ ′Set strCompress＝Nothing Exit Sub′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′End SubPrivate Sub WS Error(ByVal Number As Integer，Description As String，ByVal Scode AsLong，ByVal Source As String，ByVal HelpFile As String，ByVal HelpContext As Long，CancelDisplay As Boolean) RaiseEvent SError(Number，Description)End SubPrivate Sub WS_SendComplete() RaiseEvent SSendComplete<dp n="d15"/>End Sub′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′Control Methods′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′Public Sub SAccept(ByRef requestID As Long) WS.Accept requestIDEnd SubPublic Sub SListen() On Error GoTo errorhandle WS.Listen Exit Sub′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′errorhandle； RaiseEvent SError(Err.Number，Err.Description)′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′End SubPublic Sub SConnect(ByRef IP As Variant，ByRef Port As Variant) On Error GoTo errorhandle WS.Connect IP，Port Exit Sub′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′errorhandle RaiseEvent SError(Err.Number，Err.Description)′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′End Sub<dp n="d16"/>Public Sub SSendFile(FileName As String) Dim FSO As New FileSystemObject Dim f1 As Long If Dir(FileName)＜＞″″Then ′Read Bytes in Array of byte Open FileName For Binary Access Read As #1 f1＝FileLen(FileName) ReDim s(f1) Get #1，，s() Close #1 SSendData″RequestToSendFile″&amp;″|″&amp; FSO.GetFile(FileName).Name &amp;″|″&amp;FSO.GetFile(FileName).Size SendFileBlock＝True ′SendFileBlock＝False Send_Mode＝SendBinary Else MsgBox″No Such File Found″ End If Set FSO＝NothingEnd SubPublic Sub SSendData(Data As Variant) ′Dim strCompress As New strcomprelib.strcompre If Not SendFileBlock Then′ Alive.Enabled＝Ealse On Error GoTo errorhandle′If ShowAnime Then′ WaitingForm.Show<dp n="d17"/>′ WaitingForm.Timer1.Enabled＝True′ End If′ DoEvents ′ LastSend＝strCompress.strCompress(Data) LastSend＝Data ′Data＝strCompress.struncompress(LastSend) ′WS.SendData LastSend &amp; Chr(230) WS.SendData LastSend &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) &amp;Chr(9) &amp; Chr(9) &amp; Chr(9) &amp; Chr(9) ′WS.SendData LastSend ′Alive.Enabled＝True Else MsgBox″Sending File，Please Try Again Later″ End If ′Set strCompress＝Nothing Exit Sub′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′errorhandle RaiseEvent SError(Err.Number，Err.Description) ′Set strCompress＝Nothing′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′End SubPublic Sub SClose() On Error GoTo errorhandle WS.Close Exit Sub′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′′<dp n="d18"/>errorhandle RaiseEvent SError(Err.Number，Err.Description)′ ′′′′′ ′′′′′ ′ ′′′′′ ′′′′′′′′′′′′′′′′′′′′End SubPublic Function SGetData()As Variant SGetData＝RecData RecData＝″″ RecDataLen＝0End FunctionPublic Function SGetFileName()As String SGetFileName＝FileNameEnd FunctionPrivate Function Elminate(DataStr，delimiter As String)As String Dim StrArray()As String，i As Long StrArray＝Split(DataStr，delimiter，-1，vbTextCompare) For i＝LBound(StrArray)To UBound(StrArray) Elminate＝Elminate &amp; StrArray(i) Next iEnd FunctionDim TimeCount As IntegerPublic WaitTime As LongPrivate Sub Form_Load() WaitTime＝30 TimeCount＝0<dp n="d19"/> Timer1.Enabled＝False On Error Resume Next Anime.Open″c\download.avi″ Anime.AutoPlay＝TrueEnd SubPrivate Sub Timer1_Timer()′ If TimeCount＝WaitTime Then′MsgBox″Request Timeout，Please Try Again Later″′TimeCount＝0′ Else′TimeCount＝TimeCount+1′ End IfEnd Sub</pre>圖3是本發(fā)明套接字工具的套接字控制程序在一電子商務(wù)的應(yīng)用示意圖。多個(gè)消費(fèi)者端電腦10A，通過互聯(lián)網(wǎng)(INTERNET)/企業(yè)網(wǎng)(Intranet)30通信服務(wù)端的網(wǎng)頁服務(wù)電腦20A，以進(jìn)行商務(wù)行為的網(wǎng)頁瀏覽活動(dòng)。此時(shí)，消費(fèi)者端電腦10A所執(zhí)行軟件的情況，是在各自的消費(fèi)者端電腦10A皆會(huì)執(zhí)行本發(fā)明套接字工具的套接字控制程序，而消費(fèi)者端電腦10A各自執(zhí)行的應(yīng)用軟件可能是不同的，例如有些消費(fèi)者端電腦可能是執(zhí)行SQL的數(shù)據(jù)庫應(yīng)用軟件、有些消費(fèi)者端電腦可能是執(zhí)行下載文件的應(yīng)用軟件、有些消費(fèi)者端電腦可能是執(zhí)行瀏覽器的應(yīng)用軟件等等，并且所有在消費(fèi)者端電腦10A所執(zhí)行的應(yīng)用軟件10B皆是利用調(diào)用套接字工具的套接字控制程序10C實(shí)現(xiàn)數(shù)據(jù)或文件傳輸。同時(shí)，供應(yīng)者端的網(wǎng)頁服務(wù)電腦20A執(zhí)行本發(fā)明套接字工具的套接字控制程序10C，并且產(chǎn)生對應(yīng)于與正通信中消費(fèi)者端電腦10A數(shù)量的套接字20C，網(wǎng)頁服務(wù)電腦20A執(zhí)行一配合套接字工具所開發(fā)的服務(wù)應(yīng)用軟件20B，例如SQL訪問應(yīng)用軟件(SQL Access server)，該服務(wù)應(yīng)用軟件向SOL數(shù)據(jù)庫或文件數(shù)據(jù)庫訪問，并將訪問的數(shù)據(jù)或文件，通過套接字傳送回應(yīng)給對應(yīng)的消費(fèi)者端電腦10A的應(yīng)用軟件10B。
圖4是本發(fā)明套接字工具的增值程序在具有一服務(wù)端/客戶端的網(wǎng)絡(luò)環(huán)境的應(yīng)用示意圖。本發(fā)明套接字工具進(jìn)一步包括一組用于處理應(yīng)用層軟件的傳輸數(shù)據(jù)的增值程序，其特征在于該一組增值程序，其至少包含一加密程序、一解密程序；或者是至少包含一壓縮程序、一解壓縮程序。本發(fā)明套接字工具的增值程序主要是提供安全性、保密性及速度性的網(wǎng)絡(luò)傳輸。
雖然本發(fā)明己以一較佳實(shí)施例揭露如上，但其并非用以限定本發(fā)明，本行業(yè)的普通技術(shù)人員在不脫離本發(fā)明的精神和范圍內(nèi)，可在本發(fā)明權(quán)利要求書所界定的范圍內(nèi)進(jìn)行各種輕易思及的更動(dòng)與潤飾。
權(quán)利要求
1.一種用于應(yīng)用層軟件的套接字工具，其特征在于所述的套接字工具由此編寫為一程序方式來實(shí)施，并執(zhí)行一電腦內(nèi)，以提供該電腦的應(yīng)用層軟件調(diào)用，使得該電腦能夠通過TCP網(wǎng)絡(luò)與其它電腦的應(yīng)用層軟件通信，該套接字工具包括一組用于通信TCP網(wǎng)絡(luò)的套接字控制程序，其特征在于所述的套接字控制程序是利用TCP協(xié)議進(jìn)行通信。
2.如權(quán)利要求1所述的套接字工具，其特征在于所述的套接字工具進(jìn)一步包括一組用于處理該應(yīng)用層軟件的傳輸數(shù)據(jù)的增值程序。
3.如權(quán)利要求1所述的套接字工具，其特征在于該一組套接字控制程序，其至少包含一″SAccept″程序、一″SClose″程序、一″SConnect″程序、一″SGetData″程序、一″SListen″程序、一″SSendData″程序、一″SGetFileName″程序、一″SSendFile″程序、 一″SConnectionRequest″程序、一″SDataArrival″程序、一″SError″程序、一″SSendComplete″程序、一″SFileArrlval″程序、一″ConnectionTimeOut″程序。
4.如權(quán)利要求2所述的套接字工具，其特征在于該一組增值程序至少包含一加密程序、一解密程序。
5.如權(quán)利要求2所述的套接字工具，其特征在于該一組增值程序至少包含一壓縮程序、一解壓縮程序。
6.如權(quán)利要求1所述的套接字工具，其特征在于所述的應(yīng)用層軟件是一使用SQL的數(shù)據(jù)庫應(yīng)用軟件。
7.如權(quán)利要求1所述的套接字工具，其特征在于所述的應(yīng)用層軟件是一個(gè)用于下載文件的應(yīng)用軟件。
8.如權(quán)利要求7所述的套接字工具，其特征在于所述的下載文件分別可以是一MP3歌曲文件、一GIF格式圖像文件、一JPG格式圖像文件、一影片格式文件。
9.如權(quán)利要求1所述的套接字工具，其特征在于所述的應(yīng)用層軟件是一聊天應(yīng)用軟件。
全文摘要
本發(fā)明提供一種用于應(yīng)用層軟件的套接字工具，該套接字工具是以編寫為一程序的方式來實(shí)施，并在一電腦內(nèi)執(zhí)行，以提供該電腦的應(yīng)用層軟件調(diào)用，使該電腦能夠通過TCP網(wǎng)絡(luò)與其它電腦的應(yīng)用層軟件通信，該套接字工具包括一組用于和TCP網(wǎng)絡(luò)通信的套接字控制程序，其中該套接字控制程序是利用TCP協(xié)議進(jìn)行通信。此外，本發(fā)明套接字工具進(jìn)一步包括一組用于處理該應(yīng)用層軟件的傳輸數(shù)據(jù)的增值程序。
文檔編號G06F9/45GK1477502SQ0214204
公開日2004年2月25日 申請日期2002年8月23日 優(yōu)先權(quán)日2002年8月23日
發(fā)明者梁國恩 申請人:梁國恩