A High Performance TCP/IP Socket Server COM Component for VB

Len Holgate

Rate me:

3.50/5 (11 votes)

25 Jun 2002CPOL6 min read

411.7K

11.7K

Although socket based TCP/IP servers using IO Completion Ports are often written in C++, it's sometimes useful to write such a server in Visual Basic.

comsocketserverdll.zip
- COMSocketServer.dll
comsocketserver2.zip
- COMSocketServer2
  - COMSocketServer2
    - Address.cpp
    - Address.h
    - Address.rgs
    - COMSocketServer.cpp
    - COMSocketServer.def
    - COMSocketServer.idl
    - COMSocketServer.rc
    - COMSocketServer2.dsp
    - COMSocketServer2.dsw
    - COMSocketServer2.sln
    - COMSocketServer2.vcproj
    - COMSocketServer2.vcproj.vspscc
    - COMSocketServer2.vssscc
    - COMSocketServerCP.h
    - Data.cpp
    - Data.h
    - Data.rgs
    - dlldatax.c
    - dlldatax.h
    - IAddressInit.h
    - IDataInit.h
    - Interfaces.idl
    - ISocketInit.h
    - mssccprj.scc
    - resource.h
    - Server.cpp
    - Server.h
    - Server.rgs
    - Socket.cpp
    - Socket.h
    - Socket.rgs
    - SocketServer.cpp
    - SocketServer.h
    - SocketServerFactory.cpp
    - SocketServerFactory.h
    - SocketServerFactory.rgs
    - SocketServerWorkerThread.cpp
    - SocketServerWorkerThread.h
    - StdAfx.cpp
    - StdAfx.h
    - vssver.scc
  - JetByteTools
    - COMTools
      - AsyncServerEvent.idl
      - AsyncServerEventHelper.cpp
      - AsyncServerEventHelper.h
      - COMTools.dsp
      - COMTools.lnt
      - COMTools.vcproj
      - COMTools.vcproj.vspscc
      - Exception.cpp
      - Exception.h
      - ExceptionToCOMError.h
      - mssccprj.scc
      - std.lnt
      - UsesCom.cpp
      - UsesCom.h
      - Utils.cpp
      - Utils.h
      - vssver.scc
    - Win32Tools
      - CriticalSection.cpp
      - CriticalSection.h
      - Event.cpp
      - Event.h
      - Exception.cpp
      - Exception.h
      - IOBuffer.cpp
      - IOBuffer.h
      - IOCompletionPort.cpp
      - IOCompletionPort.h
      - IOCPWorkerThread.cpp
      - IOCPWorkerThread.h
      - IWorkItemProcessor.h
      - ManualResetEvent.cpp
      - ManualResetEvent.h
      - mssccprj.scc
      - NodeList.cpp
      - NodeList.h
      - OpaqueUserData.h
      - Socket.cpp
      - Socket.h
      - SocketServer.cpp
      - SocketServer.h
      - std.lnt
      - SystemInfo.h
      - Thread.cpp
      - Thread.h
      - tstring.h
      - UsesWinsock.cpp
      - UsesWinsock.h
      - Utils.cpp
      - Utils.h
      - vssver.scc
      - Win32Exception.cpp
      - Win32Exception.h
      - Win32Tools.dsp
      - Win32Tools.lnt
      - Win32Tools.vcproj
      - Win32Tools.vcproj.vspscc
  - VBTest
    - Class1.cls
    - Form1.frm
    - Form2.frm
    - mssccprj.scc
    - Project1.vbp
    - Project1.vbw
    - vssver.scc
comsocketserverclient.zip
- Class1.cls
- Form1.frm
- Form2.frm
- Project1.vbp
- Project1.vbw

// wrapper for dlldata.c

#ifdef _MERGE_PROXYSTUB // merge proxy stub DLL

#define REGISTER_PROXY_DLL //DllRegisterServer, etc.

#define _WIN32_WINNT 0x0400	//for WinNT 4.0 or Win95 with DCOM
#define USE_STUBLESS_PROXY	//defined only with MIDL switch /Oicf

#pragma comment(lib, "rpcndr.lib")
#pragma comment(lib, "rpcns4.lib")
#pragma comment(lib, "rpcrt4.lib")

#define DllMain				PrxDllMain
#define DllRegisterServer	PrxDllRegisterServer
#define DllUnregisterServer PrxDllUnregisterServer
#define DllGetClassObject   PrxDllGetClassObject
#define DllCanUnloadNow     PrxDllCanUnloadNow

#include "dlldata.c"
#include "COMSocketServer_p.c"

#ifdef _NOPROXY //no midl generated dlldata.c

#define STRICT 1
#include <ole2.h>

BOOL WINAPI PrxDllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID lpReserved)
{return TRUE;}

STDAPI PrxDllCanUnloadNow(void){return S_OK;}

STDAPI PrxDllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
{return CLASS_E_CLASSNOTAVAILABLE;}

STDAPI PrxDllRegisterServer(void){return S_OK;}

STDAPI PrxDllUnregisterServer(void){return S_OK;}

#endif //!PROXY_DELEGATION

#endif //_MERGE_PROXYSTUB

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Written By

Len Holgate

Software Developer (Senior) JetByte Limited

United Kingdom

Len has been programming for over 30 years, having first started with a Sinclair ZX-80. Now he runs his own consulting company, JetByte Limited and has a technical blog here.

JetByte provides contract programming and consultancy services. We can provide experience in COM, Corba, C++, Windows NT and UNIX. Our speciality is the design and implementation of systems but we are happy to work with you throughout the entire project life-cycle. We are happy to quote for fixed price work, or, if required, can work for an hourly rate.

We are based in London, England, but, thanks to the Internet, we can work 'virtually' anywhere...

Please note that many of the articles here may have updated code available on Len's blog and that the IOCP socket server framework is also available in a licensed, much improved and fully supported version, see here for details.

A High Performance TCP/IP Socket Server COM Component for VB

License

Comments and Discussions