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

0ximi 发表于 2017-11-28 22:03:10

import win.ui;
import com;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add(
button={cls="button";text="button";left=486;top=342;right=579;bottom=383;z=4};
edit={cls="edit";text="edit";left=24;top=188;right=451;bottom=306;edge=1;multiline=1;z=1};
static={cls="static";text="static";left=32;top=25;right=725;bottom=163;transparent=1;z=3};
txtSendData={cls="edit";left=23;top=313;right=448;bottom=449;edge=1;multiline=1;z=2}
)
/*}}*/
winform.txtSendData.text = "服务器发送数据！！" ;
Winsock1 = com.CreateObject("MSWinsock.Winsock.1");
Winsock1.Protocol = 0;// sckTCPProtocol =0 、sckUDPProtocol = 1
Winsock1.Bind(80,);
Winsock1.Listen();
winform.static.text = "start SeverName:" + Winsock1.LocalHostName + " start IP:" + Winsock1.LocalIP + "：" + Winsock1.LocalPort + '启动';
var Winsock1Evens = {};
//Connect()事件
Winsock1Evens.Connect =function(){
winform.edit.text = winform.edit.text + "Connect \r\n";
}
//ConnectionRequest事件
Winsock1Evens.ConnectionRequest = function(requestID){
winform.edit.text = winform.edit.text + "Winsock1Evens: ConnectionRequest " + requestID + ' State: ' + SckHandler.State + '\r\n';
if( SckHandler.State != 6 && SckHandler.State !=7 && SckHandler.State != 8){
SckHandler.Accept(requestID);
winform.edit.text = winform.edit.text + 'Accept requestID:'+ requestID + '\r\n';
}
}
//Close()事件
Winsock1Evens.Close =function(){
winform.edit.text = winform.edit.text + "Close" + '\r\n';
}
//SendProgress(long bytesSent, long bytesRemaining)事件
Winsock1Evens.SendProgress = function( bytesSent, bytesRemaining){
winform.edit.text = winform.edit.text + "SendProgress" + '\r\n';
}
//SendComplete()事件
Winsock1Evens.SendComplete =function(){
winform.edit.text = winform.edit.text + "SendComplete" + '\r\n';
}
com.Connect(Winsock1, Winsock1Evens);
// 负责数据接收和发送的 SckHandler
SckHandler =com.CreateObject("MSWinsock.Winsock.1");
SckHandler.Protocol = 0;
SckHandler.LocalPort(80);
SckHandler.Close();
var SckHandlerEvens ={};
SckHandlerEvens.DataArrival =function(bytesTotal){
winform.edit.text = winform.edit.text + "SckHandlerEvens : DataArrival" + bytesTotal + '\r\n' ;
var strData ='';
try{
/*
这儿出现了问题，又测试不出故障。
*/
SckHandler.getData(strData);
winform.edit.text = winform.edit.text + bytesTotal + "GetData :" + strData + '\r\n';
}
catch(e){
winform.edit.text = winform.edit.text + bytesTotal + "GetData Err: " + e + '\r\n';
}
SckHandler.SendData(winform.txtSendData.text);
}
//SendComplete()事件
SckHandlerEvens.SendComplete =function(){
winform.edit.text = winform.edit.text + "SckHandlerEvens : SendComplete ！！" + '\r\n';
SckHandler.Close();
}
com.Connect(SckHandler, SckHandlerEvens);
winform.show()
win.loopMessage();

复制代码

0ximi 发表于 2017-11-28 22:22:14

以下是查出的资料 mswinsocket.ocx的资料
// Generated .IDL file (by the OLE/COM Object Viewer)
//
// typelib filename: MSWINSCK.OCX
[
uuid(248DD890-BB45-11CF-9ABC-0080C7E7B78D),
version(1.0),
helpstring("Microsoft Winsock Control 6.0 (SP6)"),
helpfile("MSWNSK98.chm"),
helpcontext(0x00053020)
]
library MSWinsockLib
{
// TLib : // TLib : OLE Automation : {00020430-0000-0000-C000-000000000046}
importlib("stdole2.tlb");
// Forward declare all types defined in this typelib
interface IMSWinsockControl;
dispinterface DMSWinsockControlEvents;
typedef [uuid(248DD895-BB45-11CF-9ABC-0080C7E7B78D), helpstring("Protocol Constants"), helpcontext(0x0005304f)]
enum {
sckTCPProtocol = 0,
sckUDPProtocol = 1
} ProtocolConstants;
[
odl,
uuid(248DD892-BB45-11CF-9ABC-0080C7E7B78D),
helpstring("Winsock methods and events"),
helpcontext(0x00053038),
hidden,
dual,
nonextensible,
oleautomation
]
interface IMSWinsockControl : IDispatch {
[id(0xfffffdd8), hidden]
HRESULT AboutBox();
[id(0x00000003), propget, helpstring("Returns/Sets the socket protocol"), helpcontext(0x0005303f)]
HRESULT Protocol([out, retval] ProtocolConstants* Protocol);
[id(0x00000003), propput, helpstring("Returns/Sets the socket protocol"), helpcontext(0x0005303f)]
HRESULT Protocol([in] ProtocolConstants Protocol);
[id(0x00000004), propget, helpstring("Returns the remote host IP address"), helpcontext(0x00053039)]
HRESULT RemoteHostIP([out, retval] BSTR* RemoteHostIP);
[id(0x00000005), propget, helpstring("Returns the local machine name"), helpcontext(0x0005303a)]
HRESULT LocalHostName([out, retval] BSTR* LocalHostName);
[id(0x00000006), propget, helpstring("Returns the local machine IP address"), helpcontext(0x0005303b)]
HRESULT LocalIP([out, retval] BSTR* LocalIP);
[id(0x00000007), propget, helpstring("Returns the socket handle"), helpcontext(0x0005303c)]
HRESULT SocketHandle([out, retval] long* SocketHandle);
[id(00000000), propget, hidden]
HRESULT _RemoteHost([out, retval] BSTR* RemoteHost);
[id(00000000), propput, hidden]
HRESULT _RemoteHost([in] BSTR RemoteHost);
[id(0x00000001), propget, helpstring("Returns/Sets the port to be connected to on the remote computer"), helpcontext(0x0005302c)]
HRESULT RemotePort([out, retval] long* RemotePort);
[id(0x00000001), propput, helpstring("Returns/Sets the port to be connected to on the remote computer"), helpcontext(0x0005302c)]
HRESULT RemotePort([in] long RemotePort);
[id(0x00000002), propget, helpstring("Returns/Sets the port used on the local computer"), helpcontext(0x0005302d)]
HRESULT LocalPort([out, retval] long* LocalPort);
[id(0x00000002), propput, helpstring("Returns/Sets the port used on the local computer"), helpcontext(0x0005302d)]
HRESULT LocalPort([in] long LocalPort);
[id(0x00000008), propget, helpstring("Returns the state of the socket connection"), helpcontext(0x0005302e)]
HRESULT State([out, retval] short* State);
[id(0x00000009), propget, helpstring("Returns the number of bytes received on this connection"), helpcontext(0x0005302f)]
HRESULT BytesReceived([out, retval] long* BytesReceived);
[id(0x00000040), helpstring("Connect to the remote computer"), helpcontext(0x00053030)]
HRESULT Connect(
[in, optional] VARIANT RemoteHost,
[in, optional] VARIANT RemotePort);
[id(0x00000041), helpstring("Listen for incoming connection requests"), helpcontext(0x00053031)]
HRESULT Listen();
[id(0x00000042), helpstring("Accept an incoming connection request"), helpcontext(0x00053032)]
HRESULT Accept([in] long requestID);
[id(0x00000043), helpstring("Send data to remote computer"), helpcontext(0x00053033)]
HRESULT SendData([in] VARIANT data);
[id(0x00000044), helpstring("Retrieve data sent by the remote computer"), helpcontext(0x00053034)]
HRESULT GetData(
[in, out] VARIANT* data,
[in, optional] VARIANT type,
[in, optional] VARIANT maxLen);
[id(0x00000045), helpstring("Look at incoming data without removing it from the buffer"), helpcontext(0x00053035)]
HRESULT PeekData(
[in, out] VARIANT* data,
[in, optional] VARIANT type,
[in, optional] VARIANT maxLen);
[id(0x00000046), helpstring("Close current connection"), helpcontext(0x00053036)]
HRESULT Close();
[id(0x00000047), helpstring("Binds socket to specific port and adapter"), helpcontext(0x00053050)]
HRESULT Bind(
[in, optional] VARIANT LocalPort,
[in, optional] VARIANT LocalIP);
[id(0x0000000a), propget, helpstring("Returns/Sets the name used to identify the remote computer"), helpcontext(0x0005302b)]
HRESULT RemoteHost([out, retval] BSTR* RemoteHost);
[id(0x0000000a), propput, helpstring("Returns/Sets the name used to identify the remote computer"), helpcontext(0x0005302b)]
HRESULT RemoteHost([in] BSTR RemoteHost);
};
[
uuid(248DD893-BB45-11CF-9ABC-0080C7E7B78D),
helpstring("Microsoft Winsock Control events"),
helpcontext(0x0005303d),
hidden
]
dispinterface DMSWinsockControlEvents {
properties:
methods:
[id(0x00000006), helpstring("Error occurred"), helpcontext(0x00053048)]
void Error(
short Number,
BSTR* Description,
long Scode,
BSTR Source,
BSTR HelpFile,
long HelpContext,
VARIANT_BOOL* CancelDisplay);
[id(00000000), helpstring("Occurs when data has been received from the remote computer"), helpcontext(0x00053049)]
void DataArrival(long bytesTotal);
[id(0x00000001), helpstring("Occurs connect operation is completed"), helpcontext(0x0005304a)]
void Connect();
[id(0x00000002), helpstring("Occurs when a remote client is attempting to connect"), helpcontext(0x0005304b)]
void ConnectionRequest(long requestID);
[id(0x00000005), helpstring("Occurs when the connection has been closed"), helpcontext(0x0005304c)]
void Close();
[id(0x00000003), helpstring("Occurs during process of sending data"), helpcontext(0x0005304d)]
void SendProgress(
long bytesSent,
long bytesRemaining);
[id(0x00000004), helpstring("Occurs after a send operation has completed"), helpcontext(0x0005304e)]
void SendComplete();
};
[
uuid(248DD896-BB45-11CF-9ABC-0080C7E7B78D),
helpstring("Microsoft Winsock Control"),
helpcontext(0x00053037),
control
]
coclass Winsock {
[default] interface IMSWinsockControl;
[default, source] dispinterface DMSWinsockControlEvents;
};
typedef [uuid(248DD894-BB45-11CF-9ABC-0080C7E7B78D), helpstring("State Constants"), helpcontext(0x00053052)]
enum {
sckClosed = 0,
sckOpen = 1,
sckListening = 2,
sckConnectionPending = 3,
sckResolvingHost = 4,
sckHostResolved = 5,
sckConnecting = 6,
sckConnected = 7,
sckClosing = 8,
sckError = 9
} StateConstants;
typedef [uuid(248DD891-BB45-11CF-9ABC-0080C7E7B78D), helpstring("Error Constants"), helpcontext(0x00053051)]
enum {
sckInvalidPropertyValue = 380,
sckGetNotSupported = 394,
sckSetNotSupported = 383,
sckOutOfMemory = 7,
sckBadState = 40006,
sckInvalidArg = 40014,
sckSuccess = 40017,
sckUnsupported = 40018,
sckInvalidOp = 40020,
sckOutOfRange = 40021,
sckWrongProtocol = 40026,
sckOpCanceled = 10004,
sckInvalidArgument = 10014,
sckWouldBlock = 10035,
sckInProgress = 10036,
sckAlreadyComplete = 10037,
sckNotSocket = 10038,
sckMsgTooBig = 10040,
sckPortNotSupported = 10043,
sckAddressInUse = 10048,
sckAddressNotAvailable = 10049,
sckNetworkSubsystemFailed = 10050,
sckNetworkUnreachable = 10051,
sckNetReset = 10052,
sckConnectAborted = 10053,
sckConnectionReset = 10054,
sckNoBufferSpace = 10055,
sckAlreadyConnected = 10056,
sckNotConnected = 10057,
sckSocketShutdown = 10058,
sckTimedout = 10060,
sckConnectionRefused = 10061,
sckNotInitialized = 10093,
sckHostNotFound = 11001,
sckHostNotFoundTryAgain = 11002,
sckNonRecoverableError = 11003,
sckNoData = 11004
} ErrorConstants;
};

复制代码

Jacen.He 发表于 2017-11-28 22:35:23

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

0ximi 发表于 2017-11-28 22:40:50

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

Jacen.He 发表于 2017-11-28 22:42:25

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

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

0ximi 发表于 2017-11-29 00:21:09

SckHandler.getData(strData) 的 strData

import win.ui;
import com;
/*DSG{{*/
var winform = win.form(text="aardio form";right=775;bottom=448)
winform.add(
edit={cls="edit";left=34;top=64;right=759;bottom=416;edge=1;multiline=1;z=1};
static={cls="static";text="static";left=32;top=25;right=743;bottom=49;transparent=1;z=2}
)
/*}}*/
winform.edit.text = ""; // winform.edit.text 用于观看 mswinsock.ocx 获得客户端什么内容。
Winsock1 = com.CreateObject("MSWinsock.Winsock.1");
Winsock1.Protocol = 0;
Winsock1.Bind(80,);
Winsock1.Listen();
winform.static.text = "主机名：" + Winsock1.LocalHostName + " IP:" + Winsock1.LocalIP + "：" + Winsock1.LocalPort + '的服务器启动了！';
var Winsock1Evens = {};
Winsock1Evens.ConnectionRequest = function(requestID){
if( SckHandler.State != 6 && SckHandler.State !=7 && SckHandler.State != 8) SckHandler.Accept(requestID);
}
com.Connect(Winsock1, Winsock1Evens);
SckHandler =com.CreateObject("MSWinsock.Winsock.1");
SckHandler.Protocol = 0;
SckHandler.LocalPort(80);
SckHandler.Close();
var SckHandlerEvens ={};
SckHandlerEvens.DataArrival =function(bytesTotal){
var strData ='';
try{
SckHandler.getData(strData); // -------> 这儿需要变量传址。目的将客户请求内容套出来。
winform.edit.text = winform.edit.text +"收到浏览器发出的数据长度："+ bytesTotal + "byts, 内容:" + strData + '';
}
catch(e){
winform.edit.text = winform.edit.text + bytesTotal + "GetData Err: " + e;
}
var msg ="服务已收到了浏览器的请求！";
SckHandler.SendData(msg);
}
SckHandlerEvens.SendComplete =function(){
SckHandler.Close();
}
com.Connect(SckHandler, SckHandlerEvens);
winform.show()
win.loopMessage();

复制代码

popdes 发表于 2017-11-29 12:53:43

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

0ximi 发表于 2017-11-29 15:00:10

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

Jacen.He 发表于 2017-11-29 18:00:00

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

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

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

var buffer = SckHandler.getData();

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

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

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

0ximi 发表于 2017-11-29 23:52:53

谢谢，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 发表于 2017-11-30 00:01:45

//我原本考虑到假如有个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 发表于 2017-11-30 00:02:48

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 发表于 2017-11-30 00:20:44

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 发表于 2017-11-30 14:50:55

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

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

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

最新评论

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