📄 port config.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Transceiver Port 配置说明 1</title>
</head>
<body>
<p><b><font size="6">Transceiver Port 配置说明</font></b></p>
<p><b>
<a href="#1. TCP/Send">
1.TCP/Send</a></b><BR><b>
<a href="#2. TCP/Receive">
2.TCP/Receive</a></b><BR><b>
<a href="#3. SMTP">
3.SMTP</a></b><BR><b>
<a href="#4. POP3">
4.POP3</a><br>
<a href="#5. FTP/Send">
5.FTP/Send</a><BR><a href="#6. FTP/Receive">
6.FTP/Receive</a><BR><a href="#7. HTTP/ Send">
7.HTTP/ Send</a><BR><a href="#8. HTTP/ Receive">
8.HTTP/ Receive</a><BR><a href="#9. File/Send">
9.File/Send</a><BR><a href="#10. File/Receive">
10.File/Receive</a><BR><a href="#11. MSMQ/Send">
11.MSMQ/Send</a><BR><a href="#12. MSMQ/Receive">
12.MSMQ/Receive</a><BR><a href="#13. DB/Send">
13.DB/Send</a><BR><a href="#14. DB/Receive">
14.DB/Receive</a><BR><a href="#15. COM/Send">
15.COM/Send</a><BR><a href="#16. COM/Receiver">
16.COM/Receive</a>
</p>
<p><a href="#附录1">附录1</a><br><a href="#附录2">附录2</a><br><a href="#附录3">附录3</a><br><a href="#附录4">附录4</a>
</p>
<p>
<br>
</b><a name="1. TCP/Send"><b>1. TCP/Send</b></a><br>
Host：可为主机名或IP地址<br>
端口：如值为0，此Port将被忽略<br>
<br>
<a name="2. TCP/Receive">
<b>
2. TCP/Receive</b></a><br>
Host：可为主机名或IP地址<br>
端口：如值为0，此Port将被忽略<br>
<br>
<a name="3. SMTP">
<b>
3. SMTP</b></a><br>
Host：可为主机名或IP地址<br>
端口：如值为0，将使用SMTP默认的25端口<br>
用户：登录到邮件服务器的有效账号，如此邮件服务器不需要身分验证，可忽略<br>
口令：登录到邮件服务器的有效密码，如此邮件服务器不需要身分验证，可忽略<br>
说明：此值将作为邮件标题被发送<br>
MailTo：有效的邮件接收人地址<br>
<br>
<a name="4. POP3">
<b>
4. POP3</b></a><br>
Host：可为主机名或IP地址<br>
端口：如值为0，将使用POP3默认的110端口<br>
用户：登录到邮件服务器的有效账号<br>
口令：登录到邮件服务器的有效密码<br>
触发间隔：邮件接收的时间间隔，如此值为0将不间断触发（不推荐，资源占用较大）<br>
说明：收取邮件的标题，如此值为空则忽略标题，全部收取<br>
<br>
<font color="#FF0000">
备注：被收取的邮件将从服务器中删除</font><br>
<br>
<a name="5. FTP/Send">
<b>
5. FTP/Send</b></a><br>
Host：可为主机名或IP地址<br>
端口：如值为0，将使用FTP默认的21端口<br>
用户：登录到文件服务器的有效账号，如为空则使用匿名登录<br>
口令：登录到文件服务器的有效密码如为空则使用匿名登录<br>
说明：此值将解析为目标文件的格式定义，如值为a*.txt或a.txt则上传至服务器后文件可能为a14342.txt<br>
Path：有效的FTP文件路径格式，首尾以“/”作为分隔符，如：/boot/ok/test/，如输入值为boot/ok/test也具有相同效果，如路径不存在将自动建立，缺省值为“/”<br>
<br>
<a name="6. FTP/Receive">
<b>
6. FTP/Receive</b></a><br>
Host：可为主机名或IP地址<br>
端口：如值为0，将使用FTP默认的21端口<br>
用户：登录到文件服务器的有效账号，如为空则使用匿名登录<br>
口令：登录到文件服务器的有效密码如为空则使用匿名登录<br>
触发间隔：文件接收的时间间隔，如此值为0将不间断触发（不推荐，资源占用较大）<br>
说明：此值将解析为目标文件的格式定义，例如值为a*.txt或a.txt则上传至服务器后文件可能为a14342.txt<br>
Path：有效的FTP文件路径格式，首尾以“/”作为分隔符，例如：/boot/ok/test/，如输入值为boot/ok/test也具有相同效果，如路径不存在将自动建立，缺省值为“/”
</p>
<p><font color="#FF0000">
备注：被接收的文件将从服务器中删除</font><br>
<br>
<a name="7. HTTP/ Send">
<b>
7. HTTP/ Send</b></a><br>
Host：可为主机名或IP地址<br>
端口：如值为0，将使用HTTP默认的80端口<br>
Request：被POST数据的Request名称，如为空则POST无名称数据<br>
<br>
关于收到POST数据后的ASP接收实例请参见<a href="#附录1">附录1</a><br>
<br>
<a name="8. HTTP/ Receive">
<b>
8. HTTP/ Receive</b></a><br>
Host：可为主机名或IP地址<br>
端口：如值为0，将使用HTTP默认的80端口<br>
触发间隔：数据接收的时间间隔，如此值为0将不间断触发（不推荐，资源占用较大）<br>
<br>
<font color="#FF0000">
备注：在页面文件的内容返回为“ ”之前（注意不能为空，而是一个以上的空格），数据将不停接收</font><br>
<br>
关于提取数据以供此Port接收的ASP实例请参见<a href="#附录2">附录2</a><br>
<br>
<a name="9. File/Send">
<b>
9. File/Send</b></a><br>
Path：有效的本地文件路径，如文件夹不存在将自己建立，例如：C:\Temp、C:\Temp\、C:\Temp\*.TXT、C:\Temp\AA.TXT、C:\Temp\AA*.TXT等
</p>
<a name="10. File/Receive">
<b>
10. File/Receive</b></a><br>
Path：有效的本地文件路径，如文件夹不存在将自己建立，例如：C:\Temp、C:\Temp\、C:\Temp\*.TXT、C:\Temp\AA.TXT、C:\Temp\AA*.TXT等<br>
<br>
<font color="#FF0000">
备注：被接收的文件将被删除</font><br>
<br>
<a name="11. MSMQ/Send">
<b>
11. MSMQ/Send</b></a><br>
QueuePath：有效的消息队列位置，例如：.\private$\TestQueue<br>
<br>
<a name="12. MSMQ/Receive">
<b>
12. MSMQ/Receive</b></a><br>
QueuePath：有效的消息队列位置，例如：.\private$\TestQueue<br>
触发间隔：数据接收的时间间隔，如此值为0将不间断触发（不推荐，资源占用较大）<br>
<br>
<font color="#FF0000">
备注：被接收的消息将从服务器中删除</font><br>
<br>
<a name="13. DB/Send">
<b>
13. DB/Send</b></a><br>
Connection：有效的ODBC资源连接字符，例如：<br>
FILEDSN=HL7FS.DSN<br>
driver={sql server}server=(local)uid=sapwd=database=Job<br>
driver={Microsoft Access Driver (*.mdb)}dbq= carrier.mdb<br>
Provider=MSDAORA.1User ID=linnetpassword=linnetData Source=sidbPersist Security Info=False<br>
Table：有效的数据表名称，提交数据的字段为Data
<p><a name="14. DB/Receive">
<b>
14. DB/Receive</b></a><br>
Connection：有效的ODBC资源连接字符，例如：<br>
FILEDSN=HL7FS.DSN<br>
driver={sql server}server=(local)uid=sapwd=database=Job<br>
driver={Microsoft Access Driver (*.mdb)}dbq= carrier.mdb<br>
Provider=MSDAORA.1User ID=linnetpassword=linnetData Source=sidbPersist Security Info=False<br>
Table/SQL：有效的数据表或查询名，提取数据的字段为Data，如您的数据表字段不是Data可通过将Table/SQL参数定义为”Select Content as Data From Log” 实现<br>
触发间隔：数据接收的时间间隔，如此值为0将不间断触发（不推荐，资源占用较大）</p>
<p><font color="#FF0000">
备注：被读取过的记录将被删除</font><br>
<br>
<a name="15. COM/Send">
<b>
15. COM/Send</b></a><br>
Interface： 有效的对象和接口名称，如ADODB.Connection<br>
<br>
<font color="#FF0000">
备注：提交数据的方法为PutData，例如 PutData(“myStringData”) <br>
如是在Target Port使用了此方法，则如果返回值非Chr(0)，则将此值作为数据内容转送给Reply Port</font></p>
<p>关于COM组件接收数据的实例请参见<a href="#附录3">附录3</a><br>
<br>
<a name="16. COM/Receiver">
<b>
16. COM/Receive</b></a><br>
Interface：有效的对象和接口名称，如ADODB.Connection<br>
触发间隔：数据接收的时间间隔，如此值为0将不间断触发（不推荐，资源占用较大）</p>
<p><font color="#FF0000">
备注：提取数据的方法为GetData，在返回值为Chr(0)前，将一直被调用如果返回值为Chr(0)则停止调用直至下一次触发
</font></p>
<p>关于COM组件提取数据的实例请参见<a href="#附录4">附录4</a><font color="#FF0000">
<br>
</font></p>
<p> </p>
<p><a name="附录1"><b>附录1</b></a><br>以下是几种通过ASP文件VB Script接收Transceiver HTTP/Send数据的方式:</p>
<p>包含Request对象的保存方式:</p>
<p><%<br>
Dim fs,ts<br>
Set fs = CreateObject("scripting.filesystemobject")<br>
Set ts = fs.createtextfile("D:\linnet\Transceiver\aspreceive\ok.txt", True)<br>
ts.write request("data")'将Request对象Data中的数据保存为本地文件<br>
ts.Close<br>
Set ts = Nothing<br>
Set fs = Nothing<br>
%></p>
<p>不包含Request对象的保存方式(即将全部数据块作为一个数据内容处理):</p>
<p><%<br>
Dim fs,ts<br>
Set fs = CreateObject("scripting.filesystemobject")<br>
Set ts = fs.createtextfile("D:\linnet\Transceiver\aspreceive\ok.txt", True)<br>
ts.write bin2str(Request.BinaryRead(Request.TotalBytes))'将全部数据内容转换成文本内容后保存为本地文件<br>
ts.Close<br>
Set ts = Nothing<br>
Set fs = Nothing<br>
<br>
Function bin2str(binstr)<br>
Dim varlen,clow,ccc,skipflag<br>
skipflag=0<br>
ccc = ""<br>
varlen=LenB(binstr)<br>
For i=1 To varlen<br>
If skipflag=0 Then<br>
clow = MidB(binstr,i,1)<br>
If AscB(clow) > 127 Then<br>
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))<br>
skipflag=1<br>
Else<br>
ccc = ccc & Chr(AscB(clow))<br>
End If<br>
Else<br>
skipflag=0<br>
End If<br>
Next<br>
bin2str = ccc<br>
End Function<br>
%></p>
<p>以XML对象载入的保存方式：</p>
<p><%<br>
dim xmldom<br>
set xmldom=server.createobject("msxml2.domdocument")<br>
xmldom.async=false<br>
xmldom.load request<br>
dim fs<br>
set fs=server.createobject("scripting.filesystemobject")<br>
dim ts<br>
set ts=fs.createtextfile("D:\linnet\Transceiver\aspreceive\ok.txt",true,true)<br>
ts.write xmldom.xml<br>
ts.close<br>
set ts=nothing<br>
set fs=nothing<br>
%></p>
<p><a name="附录2"><b>附录2</b></a><br>以下这个例子演示了ASP文件从数据库中提取数据响应Transceiver
HTTP/Receive数据提取请求的应用：</p>
<p><% <br>
dim Conn,recd<br>
Set conn=CreateObject("ADODB.Connection")<br>
Set recd=CreateObject("ADODB.RecordSet")<br>
conn.Open "driver={sql server};server=(local);uid=sa;pwd=sa;database=EMRA"<br>
recd.open "select * from Basic_Information",conn,1,3,1<br>
if recd.recordCount>0 then <br>
response.write recd("Name")<br>
recd.delete<br>
else<br>
response.write " "<br>
end if<br>
recd.close<br>
conn.close<br>
Set recd=Nothing<br>
set conn=Nothing<br>
%></p>
<p><b><a name="附录3">附录3</a></b><br>以下这个例子演示了如何用COM对象的PutData响应Transceiver
COM/Send发送来的数据：</p>
<p>'以下为某COM对象的Putdata方法<br>
Public Function Putdata(sdata As String) As String '如数据接收后有自定的返回信息可由此返回值回传<br>
Putdata = Chr(0) 'Result is Null<br>
Dim Conn As Object<br>
Set Conn = CreateObject("ADODB.Connection")<br>
Conn.open "driver={sql server};server=(local);uid=sa;pwd=sa;database=EMRA"<br>
Conn.execute "insert into Basic_Information (name) values ('" & sdata & "')"<br>
Conn.Close<br>
Set Conn = Nothing<br>
End Function</p>
<p><b><a name="附录4">附录4</a></b><br>以下这个例子演示了如何用COM对象的GetData响应Transceiver
COM/Receive数据提取请求：</p>
<p>'以下为某COM对象的GetData方法<br>
Public Function Getdata() As String <br>
Dim Conn As Object, recd As Object<br>
Set Conn = CreateObject("ADODB.Connection")<br>
Set recd = CreateObject("ADODB.RecordSet")<br>
Conn.open "driver={sql server};server=(local);uid=sa;pwd=sa;database=EMRA"<br>
recd.open "select * from Basic_Information", Conn, 1, 3, 1<br>
If recd.recordCount > 0 Then<br>
Getdata = recd("Name")<br>
recd.Delete<br>
Else<br>
Getdata = Chr(0)<br>
End If<br>
recd.Close<br>
Conn.Close<br>
Set recd = Nothing<br>
Set Conn = Nothing<br>
End Function</p>
<p>'以下这个例子可实现限制每次触发后提取数据的最大个数：<br>
Public Function getdata() As String<br>
Static itmp As Integer<br>
itmp = itmp + 1<br>
If itmp < 99 Then<br>
getdata = "DataNumber" & itmp<br>
Else<br>
getdata = Chr(0)<br>
End If<br>
End Function</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -