How to create virtual serial ports?

Question

How to create virtual serial ports using C++ (Visual Basic; Delphi) in windows?

Oliva Nickman · Answer

Hi Kenan! Standard problem. I like virtual COM ports software (https://www.eltima.com/products/vspdxp/), there was no problem with it. You can also search for free programs, but I am not sure of their success in work, everything needs to be tried. To use virtual port emulator functionality in, here are the function declarations for Delphi: Function CreatePair(Port1, Port2 : PChar) : Boolean; stdcall; external "VSPDCTL.DLL" ; Function DeletePair(Port : PChar) : Boolean; stdcall; external "VSPDCTL.DLL" ; Function DeleteAll : Boolean; stdcall; external "VSPDCTL.DLL" ; Function SetStrictBaudrateName(Port: PChar, StrictBaudrate: Boolean) : Boolean; stdcall; external "VSPDCTL.DLL" ; Function SetStrictBaudrateHandle(hPort: THandle, StrictBaudrate: Boolean) : Boolean; stdcall; external "VSPDCTL.DLL" ; Function CreatePair(Port1, Port2 : PChar) : Boolean; stdcall; external "VSPDCTL.DLL" ; Function DeletePair(Port : PChar) : Boolean; stdcall; external "VSPDCTL.DLL" ; Function DeleteAll : Boolean; stdcall; external "VSPDCTL.DLL" ; Function SetStrictBaudrate(Port: PChar, StrictBaudrate: Boolean) : Boolean; stdcall; external "VSPDCTL.DLL" ; Function SetBreak (Port: PChar, bBreak: Boolean) : Boolean; stdcall; external "VSPDCTL.DLL" ; Function QueryBus (InBuffer: Pointer, sizeInBuffer: Integer, OutBuffer: Pointer, sizeOutBuffer: Integer) : Boolean; stdcall; external "VSPDCTL.DLL" ; Function SetWiring (Port: PChar Buffer: Pointer, sizeBuffer: Integer) : Boolean; stdcall; external "VSPDCTL.DLL" ; Delphi can load ArmAccess either dynamically or statically. Here is a sample code for dynamic loading: Function CreatePairFn(PortName1, PortName2 : String) : Boolean; Type TCreatePair = function(Port1, Port2 : PChar) : Boolean; stdcall; Var Handle : THandle; CreatePair : TCreatePair; Begin CreatePairFn := False; Handle := LoadLibrary( "VSPDCTL.DLL" ); If (Handle 0) Then Begin @CreatePair:=GetProcAddress(Handle, "CreatePair" ); If (CreatePair Nil) Then CreatePairFn := CreatePair(PChar(PortName1), PChar(PortName2)); FreeLibrary(Handle); End; End;

Kenan Ilet · Answer

Thanks for the detailed answer! I'll try the trial version.

How to create virtual serial ports?

Answers (2)