调用VB6的com组件mswinsock.ocx的问题 ：它的方法getData()无法得到请求数据。

0ximi

调用VB6的com组件mswinsock.ocx的问题 ：用网页浏览器访问以下服务器代码，它的方法getData()无法得到请求数据。我的字符串变量strData这样传址进这函数内是不是不对的？那又该怎么办呢？

0ximi

1. import win.ui;
   
2. import com;
   
3. /*DSG{{*/
   
4. var winform = win.form(text="aardio form";right=759;bottom=469)
   
5. winform.add(
   
6. button={cls="button";text="button";left=486;top=342;right=579;bottom=383;z=4};
   
7. edit={cls="edit";text="edit";left=24;top=188;right=451;bottom=306;edge=1;multiline=1;z=1};
   
8. static={cls="static";text="static";left=32;top=25;right=725;bottom=163;transparent=1;z=3};
   
9. txtSendData={cls="edit";left=23;top=313;right=448;bottom=449;edge=1;multiline=1;z=2}
   
10. )
    
11. /*}}*/
    
12. winform.txtSendData.text = "服务器发送数据！！" ;
    
13. Winsock1 = com.CreateObject("MSWinsock.Winsock.1");
    
14.     Winsock1.Protocol = 0;// sckTCPProtocol =0 、sckUDPProtocol = 1
    
15.     Winsock1.Bind(80,);
    
16.     Winsock1.Listen();
    
17.     winform.static.text = "start SeverName:" + Winsock1.LocalHostName  + "  start IP:" + Winsock1.LocalIP + "：" + Winsock1.LocalPort + '启动';
    
18. var Winsock1Evens = {};
    
19. //Connect()事件
    
20. Winsock1Evens.Connect =function(){
    
21.   winform.edit.text = winform.edit.text + "Connect \r\n";       
    
22. }
    
23. //ConnectionRequest事件
    
24. Winsock1Evens.ConnectionRequest = function(requestID){
    
25. 
    
26. winform.edit.text = winform.edit.text +   "Winsock1Evens: ConnectionRequest  " + requestID  + ' State: ' + SckHandler.State + '\r\n';
    
27. if( SckHandler.State != 6 && SckHandler.State !=7 && SckHandler.State != 8){
    
28.         SckHandler.Accept(requestID);
    
29.         winform.edit.text = winform.edit.text + 'Accept requestID:'+ requestID + '\r\n';
    
30. }
    
31. }
    
32. //Close()事件
    
33. Winsock1Evens.Close =function(){
    
34.   winform.edit.text = winform.edit.text + "Close" + '\r\n';
    
35. }
    
36. //SendProgress(long bytesSent, long bytesRemaining)事件
    
37. Winsock1Evens.SendProgress = function( bytesSent, bytesRemaining){
    
38.   winform.edit.text = winform.edit.text +  "SendProgress" + '\r\n';
    
39. 
    
40. }
    
41. //SendComplete()事件
    
42. Winsock1Evens.SendComplete =function(){
    
43.   winform.edit.text = winform.edit.text +   "SendComplete" + '\r\n';
    
44. }
    
45. com.Connect(Winsock1, Winsock1Evens);
    
46. 
    
47. // 负责数据接收和发送的 SckHandler
    
48. SckHandler =com.CreateObject("MSWinsock.Winsock.1");
    
49.     SckHandler.Protocol = 0;
    
50.     SckHandler.LocalPort(80);
    
51.     SckHandler.Close();
    
52. var SckHandlerEvens ={};
    
53. SckHandlerEvens.DataArrival =function(bytesTotal){
    
54.      winform.edit.text = winform.edit.text + "SckHandlerEvens : DataArrival" + bytesTotal + '\r\n' ;   
    
55.      var strData ='';
    
56.          try{
    
57.                  /*
    
58.                 
    
59.                  这儿出现了问题，又测试不出故障。
    
60.                 
    
61.                  */
    
62.                  SckHandler.getData(strData);
    
63.                 
    
64.                  winform.edit.text = winform.edit.text + bytesTotal + "GetData :" + strData + '\r\n';
    
65.          }
    
66.      catch(e){
    
67.         winform.edit.text = winform.edit.text + bytesTotal + "GetData Err: " + e + '\r\n';
    
68.      }         
    
69.          SckHandler.SendData(winform.txtSendData.text);
    
70. 
    
71. }
    
72. //SendComplete()事件
    
73. SckHandlerEvens.SendComplete =function(){   
    
74.         winform.edit.text = winform.edit.text + "SckHandlerEvens : SendComplete ！！"  + '\r\n';
    
75.         SckHandler.Close();
    
76. }
    
77. 
    
78. com.Connect(SckHandler, SckHandlerEvens);
    
79. 
    
80. 
    
81. winform.show()
    
82. win.loopMessage();
    

复制代码

0ximi

1. 以下是查出的资料 mswinsocket.ocx的资料
   
2. 
   
3. // Generated .IDL file (by the OLE/COM Object Viewer)
   
4. //
   
5. // typelib filename: MSWINSCK.OCX
   
6. 
   
7. [
   
8.   uuid(248DD890-BB45-11CF-9ABC-0080C7E7B78D),
   
9.   version(1.0),
   
10.   helpstring("Microsoft Winsock Control 6.0 (SP6)"),
    
11.   helpfile("MSWNSK98.chm"),
    
12.   helpcontext(0x00053020)
    
13. ]
    
14. library MSWinsockLib
    
15. {
    
16.     // TLib :     // TLib : OLE Automation : {00020430-0000-0000-C000-000000000046}
    
17.     importlib("stdole2.tlb");
    
18. 
    
19.     // Forward declare all types defined in this typelib
    
20.     interface IMSWinsockControl;
    
21.     dispinterface DMSWinsockControlEvents;
    
22. 
    
23.     typedef [uuid(248DD895-BB45-11CF-9ABC-0080C7E7B78D), helpstring("Protocol Constants"), helpcontext(0x0005304f)]
    
24.     enum {
    
25.         sckTCPProtocol = 0,
    
26.         sckUDPProtocol = 1
    
27.     } ProtocolConstants;
    
28. 
    
29.     [
    
30.       odl,
    
31.       uuid(248DD892-BB45-11CF-9ABC-0080C7E7B78D),
    
32.       helpstring("Winsock methods and events"),
    
33.       helpcontext(0x00053038),
    
34.       hidden,
    
35.       dual,
    
36.       nonextensible,
    
37.       oleautomation
    
38.     ]
    
39.     interface IMSWinsockControl : IDispatch {
    
40.         [id(0xfffffdd8), hidden]
    
41.         HRESULT AboutBox();
    
42.         [id(0x00000003), propget, helpstring("Returns/Sets the socket protocol"), helpcontext(0x0005303f)]
    
43.         HRESULT Protocol([out, retval] ProtocolConstants* Protocol);
    
44.         [id(0x00000003), propput, helpstring("Returns/Sets the socket protocol"), helpcontext(0x0005303f)]
    
45.         HRESULT Protocol([in] ProtocolConstants Protocol);
    
46.         [id(0x00000004), propget, helpstring("Returns the remote host IP address"), helpcontext(0x00053039)]
    
47.         HRESULT RemoteHostIP([out, retval] BSTR* RemoteHostIP);
    
48.         [id(0x00000005), propget, helpstring("Returns the local machine name"), helpcontext(0x0005303a)]
    
49.         HRESULT LocalHostName([out, retval] BSTR* LocalHostName);
    
50.         [id(0x00000006), propget, helpstring("Returns the local machine IP address"), helpcontext(0x0005303b)]
    
51.         HRESULT LocalIP([out, retval] BSTR* LocalIP);
    
52.         [id(0x00000007), propget, helpstring("Returns the socket handle"), helpcontext(0x0005303c)]
    
53.         HRESULT SocketHandle([out, retval] long* SocketHandle);
    
54.         [id(00000000), propget, hidden]
    
55.         HRESULT _RemoteHost([out, retval] BSTR* RemoteHost);
    
56.         [id(00000000), propput, hidden]
    
57.         HRESULT _RemoteHost([in] BSTR RemoteHost);
    
58.         [id(0x00000001), propget, helpstring("Returns/Sets the port to be connected to on the remote computer"), helpcontext(0x0005302c)]
    
59.         HRESULT RemotePort([out, retval] long* RemotePort);
    
60.         [id(0x00000001), propput, helpstring("Returns/Sets the port to be connected to on the remote computer"), helpcontext(0x0005302c)]
    
61.         HRESULT RemotePort([in] long RemotePort);
    
62.         [id(0x00000002), propget, helpstring("Returns/Sets the port used on the local computer"), helpcontext(0x0005302d)]
    
63.         HRESULT LocalPort([out, retval] long* LocalPort);
    
64.         [id(0x00000002), propput, helpstring("Returns/Sets the port used on the local computer"), helpcontext(0x0005302d)]
    
65.         HRESULT LocalPort([in] long LocalPort);
    
66.         [id(0x00000008), propget, helpstring("Returns the state of the socket connection"), helpcontext(0x0005302e)]
    
67.         HRESULT State([out, retval] short* State);
    
68.         [id(0x00000009), propget, helpstring("Returns the number of bytes received on this connection"), helpcontext(0x0005302f)]
    
69.         HRESULT BytesReceived([out, retval] long* BytesReceived);
    
70.         [id(0x00000040), helpstring("Connect to the remote computer"), helpcontext(0x00053030)]
    
71.         HRESULT Connect(
    
72.                         [in, optional] VARIANT RemoteHost,
    
73.                         [in, optional] VARIANT RemotePort);
    
74.         [id(0x00000041), helpstring("Listen for incoming connection requests"), helpcontext(0x00053031)]
    
75.         HRESULT Listen();
    
76.         [id(0x00000042), helpstring("Accept an incoming connection request"), helpcontext(0x00053032)]
    
77.         HRESULT Accept([in] long requestID);
    
78.         [id(0x00000043), helpstring("Send data to remote computer"), helpcontext(0x00053033)]
    
79.         HRESULT SendData([in] VARIANT data);
    
80.         [id(0x00000044), helpstring("Retrieve data sent by the remote computer"), helpcontext(0x00053034)]
    
81.         HRESULT GetData(
    
82.                         [in, out] VARIANT* data,
    
83.                         [in, optional] VARIANT type,
    
84.                         [in, optional] VARIANT maxLen);
    
85.         [id(0x00000045), helpstring("Look at incoming data without removing it from the buffer"), helpcontext(0x00053035)]
    
86.         HRESULT PeekData(
    
87.                         [in, out] VARIANT* data,
    
88.                         [in, optional] VARIANT type,
    
89.                         [in, optional] VARIANT maxLen);
    
90.         [id(0x00000046), helpstring("Close current connection"), helpcontext(0x00053036)]
    
91.         HRESULT Close();
    
92.         [id(0x00000047), helpstring("Binds socket to specific port and adapter"), helpcontext(0x00053050)]
    
93.         HRESULT Bind(
    
94.                         [in, optional] VARIANT LocalPort,
    
95.                         [in, optional] VARIANT LocalIP);
    
96.         [id(0x0000000a), propget, helpstring("Returns/Sets the name used to identify the remote computer"), helpcontext(0x0005302b)]
    
97.         HRESULT RemoteHost([out, retval] BSTR* RemoteHost);
    
98.         [id(0x0000000a), propput, helpstring("Returns/Sets the name used to identify the remote computer"), helpcontext(0x0005302b)]
    
99.         HRESULT RemoteHost([in] BSTR RemoteHost);
    
100.     };
     
101. 
     
102.     [
     
103.       uuid(248DD893-BB45-11CF-9ABC-0080C7E7B78D),
     
104.       helpstring("Microsoft Winsock Control events"),
     
105.       helpcontext(0x0005303d),
     
106.       hidden
     
107.     ]
     
108.     dispinterface DMSWinsockControlEvents {
     
109.         properties:
     
110.         methods:
     
111.             [id(0x00000006), helpstring("Error occurred"), helpcontext(0x00053048)]
     
112.             void Error(
     
113.                             short Number,
     
114.                             BSTR* Description,
     
115.                             long Scode,
     
116.                             BSTR Source,
     
117.                             BSTR HelpFile,
     
118.                             long HelpContext,
     
119.                             VARIANT_BOOL* CancelDisplay);
     
120.             [id(00000000), helpstring("Occurs when data has been received from the remote computer"), helpcontext(0x00053049)]
     
121.             void DataArrival(long bytesTotal);
     
122.             [id(0x00000001), helpstring("Occurs connect operation is completed"), helpcontext(0x0005304a)]
     
123.             void Connect();
     
124.             [id(0x00000002), helpstring("Occurs when a remote client is attempting to connect"), helpcontext(0x0005304b)]
     
125.             void ConnectionRequest(long requestID);
     
126.             [id(0x00000005), helpstring("Occurs when the connection has been closed"), helpcontext(0x0005304c)]
     
127.             void Close();
     
128.             [id(0x00000003), helpstring("Occurs during process of sending data"), helpcontext(0x0005304d)]
     
129.             void SendProgress(
     
130.                             long bytesSent,
     
131.                             long bytesRemaining);
     
132.             [id(0x00000004), helpstring("Occurs after a send operation has completed"), helpcontext(0x0005304e)]
     
133.             void SendComplete();
     
134.     };
     
135. 
     
136.     [
     
137.       uuid(248DD896-BB45-11CF-9ABC-0080C7E7B78D),
     
138.       helpstring("Microsoft Winsock Control"),
     
139.       helpcontext(0x00053037),
     
140.       control
     
141.     ]
     
142.     coclass Winsock {
     
143.         [default] interface IMSWinsockControl;
     
144.         [default, source] dispinterface DMSWinsockControlEvents;
     
145.     };
     
146. 
     
147.     typedef [uuid(248DD894-BB45-11CF-9ABC-0080C7E7B78D), helpstring("State Constants"), helpcontext(0x00053052)]
     
148.     enum {
     
149.         sckClosed = 0,
     
150.         sckOpen = 1,
     
151.         sckListening = 2,
     
152.         sckConnectionPending = 3,
     
153.         sckResolvingHost = 4,
     
154.         sckHostResolved = 5,
     
155.         sckConnecting = 6,
     
156.         sckConnected = 7,
     
157.         sckClosing = 8,
     
158.         sckError = 9
     
159.     } StateConstants;
     
160. 
     
161.     typedef [uuid(248DD891-BB45-11CF-9ABC-0080C7E7B78D), helpstring("Error Constants"), helpcontext(0x00053051)]
     
162.     enum {
     
163.         sckInvalidPropertyValue = 380,
     
164.         sckGetNotSupported = 394,
     
165.         sckSetNotSupported = 383,
     
166.         sckOutOfMemory = 7,
     
167.         sckBadState = 40006,
     
168.         sckInvalidArg = 40014,
     
169.         sckSuccess = 40017,
     
170.         sckUnsupported = 40018,
     
171.         sckInvalidOp = 40020,
     
172.         sckOutOfRange = 40021,
     
173.         sckWrongProtocol = 40026,
     
174.         sckOpCanceled = 10004,
     
175.         sckInvalidArgument = 10014,
     
176.         sckWouldBlock = 10035,
     
177.         sckInProgress = 10036,
     
178.         sckAlreadyComplete = 10037,
     
179.         sckNotSocket = 10038,
     
180.         sckMsgTooBig = 10040,
     
181.         sckPortNotSupported = 10043,
     
182.         sckAddressInUse = 10048,
     
183.         sckAddressNotAvailable = 10049,
     
184.         sckNetworkSubsystemFailed = 10050,
     
185.         sckNetworkUnreachable = 10051,
     
186.         sckNetReset = 10052,
     
187.         sckConnectAborted = 10053,
     
188.         sckConnectionReset = 10054,
     
189.         sckNoBufferSpace = 10055,
     
190.         sckAlreadyConnected = 10056,
     
191.         sckNotConnected = 10057,
     
192.         sckSocketShutdown = 10058,
     
193.         sckTimedout = 10060,
     
194.         sckConnectionRefused = 10061,
     
195.         sckNotInitialized = 10093,
     
196.         sckHostNotFound = 11001,
     
197.         sckHostNotFoundTryAgain = 11002,
     
198.         sckNonRecoverableError = 11003,
     
199.         sckNoData = 11004
     
200.     } ErrorConstants;
     
201. };
     

复制代码

Jacen.He

VB6的控件太老了，还是别用了，调用API写个服务端也就几句代码。

0ximi

求教一个问题。如果一个COM接收传址的变量。怎样的才能正确表达呢？

Jacen.He

0ximi 发表于 2017-11-28 22:40
求教一个问题。如果一个COM接收传址的变量。怎样的才能正确表达呢？

具体什么传址的变量，你上面那代码估计好几百句，关键是乱，我可没时间仔细看。

0ximi

  SckHandler.getData(strData)  的  strData

1. import win.ui;
   
2. import com;
   
3. /*DSG{{*/
   
4. var winform = win.form(text="aardio form";right=775;bottom=448)
   
5. winform.add(
   
6. edit={cls="edit";left=34;top=64;right=759;bottom=416;edge=1;multiline=1;z=1};
   
7. static={cls="static";text="static";left=32;top=25;right=743;bottom=49;transparent=1;z=2}
   
8. )
   
9. /*}}*/
   
10. 
    
11. winform.edit.text = ""; //    winform.edit.text 用于观看 mswinsock.ocx 获得客户端什么内容。
    
12. 
    
13. Winsock1 = com.CreateObject("MSWinsock.Winsock.1");
    
14.     Winsock1.Protocol = 0;
    
15.     Winsock1.Bind(80,);
    
16.     Winsock1.Listen();
    
17. winform.static.text = "主机名：" + Winsock1.LocalHostName  + "   IP:" + Winsock1.LocalIP + "：" + Winsock1.LocalPort + '的服务器启动了！';
    
18. var Winsock1Evens = {};
    
19. Winsock1Evens.ConnectionRequest = function(requestID){
    
20.     if( SckHandler.State != 6 && SckHandler.State !=7 && SckHandler.State != 8) SckHandler.Accept(requestID);
    
21. }
    
22. 
    
23. com.Connect(Winsock1, Winsock1Evens);
    
24. 
    
25. SckHandler =com.CreateObject("MSWinsock.Winsock.1");
    
26.     SckHandler.Protocol = 0;
    
27.     SckHandler.LocalPort(80);
    
28.     SckHandler.Close();
    
29. var SckHandlerEvens ={};
    
30. SckHandlerEvens.DataArrival =function(bytesTotal){  
    
31.      var strData ='';
    
32.          try{
    
33.                  SckHandler.getData(strData);    // -------> 这儿需要变量传址。 目的将客户请求内容套出来。                
    
34.                  winform.edit.text = winform.edit.text +"收到浏览器发出的数据长度："+  bytesTotal + "byts,  内容:" + strData + '';
    
35.          }
    
36.      catch(e){
    
37.         winform.edit.text = winform.edit.text +  bytesTotal + "GetData Err: " + e;
    
38.      }
    
39.      var msg ="服务已收到了浏览器的请求！";         
    
40.          SckHandler.SendData(msg);
    
41. }
    
42. SckHandlerEvens.SendComplete =function(){
    
43.     SckHandler.Close();
    
44. }
    
45. com.Connect(SckHandler, SckHandlerEvens);
    
46. winform.show()
    
47. win.loopMessage();

复制代码

popdes

定义为raw.buff()如何? 一般这样需要被修改的变量,我在c里都是定义为指针,所以在aar里一般用raw.buff或者你可以直接用{byte xx}这种形式..
抱歉,水平有限, 你代码我也没看懂...胡言乱语...

0ximi

C里函数的参数有小鸟&，没小鸟之分，在这儿也试下吧。

Jacen.He

0ximi 发表于 2017-11-29 15:00
C里函数的参数有小鸟&，没小鸟之分，在这儿也试下吧。

不要想复杂了，
在aardio里输出参数都是在返回值里返回，多个输出参数就是多个返回值。

但实际上你这个函数，只有一个输出参数，所以他其实就是一个普通的函数返回值。

var buffer = SckHandler.getData();

这样写就行了。这样是返回一个buffer类型，在aardio中基本可以当字符串用，

如果你要返回字符串类型，在第二个参数里指定返回类型，

var str = SckHandler.getData(,8/*_VT_BSTR*/);

0ximi

谢谢，VB6的MSWinsock.ocx 这个COM组件
   

var strData = SckHandler.getData(,8/*_VT_BSTR*/);

达到了目的获得字符串类型。

var strData = SckHandler.getData();

也达到了获取 buffer的目的。
try...catch 到这 buffer。

Err:
{Line}:#37
{File}:[string "import win.ui;..."]:
----------------------

{Attempt to}:concatenate
{Kind}:variable(local)
{Name}:'strData'
{Type}:buffer

0ximi

//我原本考虑到假如有个dealCom方法的Com组件的功能已经被封装为类似下面的样子，x和y是传址的参数。
var dealCom =function(x,y){  //x和y是传址的参数。
        var sign1 = "合格";
        var sign2 = "不合格";
        console.log("dealCom收到的参数：" + x + "，" + y ) ;
        if( string.endWith(x,"瑕疵") || string.endWith(y,"瑕疵")  ){
                  x = x + sign2;
              y = y + sign2;
              return true;
        }else {
                  x = x + sign1;
              y = y + sign1;                  
              return false;
        }
}

//怎么将Com组件的dealCom方法 用传址的参数 ，有返回值。方法完成后参数也发生相应的变化。
import console;
import com;

mytestCom = com.CreateObject("mytestCom");
var a ={'产品头';'产品头';'产品头瑕疵';'产品头';'产品头'};
var b ={'产品尾';'产品尾';'产品尾';'产品尾瑕疵';'产品尾'};
for(i=1;5;1){
  if( mytestCom.dealCom( a[i], b[i]) ){
    console.log("不合格批次：" + i + "  贴了标签后：" + a[i] + " 、" + b[i] );
  }else {
    console.log("合格批次：  " + i + "  贴了标签后：" + a[i] + " 、" + b[i] );
  }       
}
console.pause(true);
//按照aardio使用手册中有段关于纯函数的说法“aardio的函数只有输入参数，没有输出参数，不能在函数体中改变实参的数据。”
//假如这样对COM组件的方法使用的话，就会被aardio先理解为纯函数，进而参数不会发生变化，甚至出错。
//所以我会放弃使用这种类型的 COM组件。

Jacen.He

0ximi 发表于 2017-11-29 23:52
谢谢，VB6的MSWinsock.ocx 这个COM组件
   

VB的这个getData() 函数，他默认返回的是二进制的 buffer，
buffer在aardio里跟字符串差不多，可以在几乎所有字符串函数里使用。

但是 buffer 不能用来跟字符串连接。
你可以用 raw.tostring() 先转为真正的字符串，
这些是aardio基础的语法，你自己再研究一下。

SckHandler.getData(,8/*_VT_BSTR*/);
他这个第二个参数，可以指定返回值的类型，你可以返回字符串。

你要做HTTP服务器，用 wsock.tcp.server，或者 wsock.tcp.simpleHttpServer 不是都可以么。

这个VB6的控件都1998年的东西了，服务端也不需要这种消息异步的方式，尤其是HTTP服务器这些用异步的写法会更加麻烦。

Jacen.He

0ximi 发表于 2017-11-30 00:01
//我原本考虑到假如有个dealCom方法的Com组件的功能已经被封装为类似下面的样子，x和y是传址的参数。
var  ...

好好看一下前面的答案，
前面的getData() 函数已经回答过你相同的问题。

COM控件，或API函数的这些输出参数，
都可以在返回值中接收对应参数的输出值。

var x,y = dealCom(x,y )
如果dealCom 自己有返回值，就要写成：
var ret,x,y = dealCom(x,y )

Jacen.He

我昨天改进了一下文档，参考：基础语法->使用函数参数->输出参数
http://bbs.aardio.com/doc/reference/the%20language/function/parameter.html
其实在帮助文档很多章节都有提到这种用法，

在aardio里并不是没有输出参数，只是你要明确的接收对应参数的返回值。