You are here:
dk.ActiveXperts.com > ActiveComport
quicklinks
At tilføje serial kommunikation kræver specialiseret kendskab som måske er udenfor en individual programmørs ekspertise. Igennem flere år, har udviklerer lagt deres tillid til kraften og pålideligheden der i ActiveComport serial communications control.
![]() |
![]() |
![]() |
![]() |
![]() |
| Startup screen | MS Visual Studio | .NET web Applikation | .NET GUI Applikation | Console Applikation |
Brug ActiveComport til forskellige formål:
ActiveComport understøtter følgende:
ActiveComport indeholder prøver og demonstrationer for mange udviklingsværktøjer:
ActiveComport er tilgængelig som en 32-bit komponent og som en 64-bit komponent (Begge en del af produktet):
ActiveComport kører på følgende operativ systemmer:
ActiveComport er bygget ovenpå Microsofts serial enheds driver. Den bruger kun disse driver. Den erstatter dem ikke, eller installer ydeligere drivers.
ActiveComport kan blive fordelt nemt mellem mange PC’er. Når du har købt licensen, kan du kopiere Acomport.dll til PC’erne og registre denne DLL på de PC’er.
De følgende kode eksempler (VBScript) viser brugen af ActiveComport.
For flere eksempler, se venligst online ActiveComport eksempler.
Initialize a modem using a direct COM port Set objComport = CreateObject( "ActiveXperts.Comport" ) ' Create a new Comport instance objComport.Device = "COM1" ' Use a COM port directly objComport.BaudRate = 56000 ' Set baudrate (default value: 9600) objComport.HardwareFlowControl = True ' Set Hardware Flow Control objComport.SoftwareFlowControl = False ' Set Software Flow Control objComport.Open ' Open the port Wscript.Echo "Open, result: " & objComport.LastError If( objComport.LastError <> 0 ) Then WScript.Quit End If objComport.WriteString( "at&f" ) ' Write command str = objComport.ReadString WScript.Echo "Received: [" & str & "]" ' Read the response objComport.Close ' Close the port
Initialize a modem using a Windows Telephony Driver Set objComport = CreateObject( "ActiveXperts.Comport" ) ' Create a new Comport instance objComport.Device = "Standard 9600 bps Modem" ' Use a Windows Telephony driver objComport.Open ' Open the port Wscript.Echo "Open, result: " & objComport.LastError If( objComport.LastError <> 0 ) Then WScript.Quit End If objComport.WriteString( "at&f" ) ' Write command str = objComport.ReadString WScript.Echo "Received: [" & str & "]" ' Read the response objComport.Close ' Close the port
Send an SMS using a GSM Modem connected to the PC; Enable logging Const RECIPIENT = "+31611223344" Const MESSAGE = "Hello, world!" Set objComport = CreateObject( "ActiveXperts.Comport" )' Create a new Comport instance objComport.Device = "Nokia 6680 SmartPhone" ' Use a Windows Telephony driver objComport.LogFile = "C:\ActiveComport.log" ' Enable logging objComport.Open ' Open the port Wscript.Echo "Open, result: " & objComport.LastError If( objComport.LastError <> 0 ) Then WScript.Quit End If WriteStr objComport, "at+cmgs=" & Chr( 34 ) & strNumber & Chr( 34 ) ReadStr objComport WriteStr objComport, strMessage strTermCmd = Chr( 26 ) ' Terminate message: [ctrl]z WriteStr objComport, strTermCmd objComport.Sleep 3000 ' Allow some time ReadStr objComport ' +CMGS: expected ReadStr objComport ' OK expected objComport.Close ' Close the port ' ******************************************************************** ' Sub Routines ' ******************************************************************** Sub WriteStr( obj, str ) obj.WriteString str WScript.Echo "-> " & str End Sub Sub ReadStr( obj ) str = "notempty" obj.Sleep 200 Do While str <> "" str = obj.ReadString If( str <> "" ) Then WScript.Echo "<- " & str End If Loop End Sub ' ********************************************************************
| Standard License AX003-0010 |
Professional License AX003-0012 |
Distribution License AX003-0020 |
|
|---|---|---|---|
| Direct COM port support | X | X | X |
| Windows Telephony Device (TAPI) support | X | X | X |
| Configurable baudrate | X | X | X |
| Hardware flow control | X | X | X |
| Software flow control | X | X | X |
| Support for multiple ports (simultaneously) | - | X | X |
| High-speed data transmission | - | X | X |
| Use component on any computer in your organization | - | X | X |
| Distribution of component | - | - | X |