怎样得到端口的地址。高分呀。

[delphi_user]

我有个程序，是对串口进行操作。首先说明这个程序已经做好，最好不要改动。他对端口的操作是取的端口的地址进行操作的，不是用windows的api。现在很多pos机有8个串口，另外4个是利用自己的驱动增加上去的，顾各家的端口地址都不一样，所以我们的程序要不停的修改，工作量太大。我想问一下大家，有没有取端口地址的函数，这样就不需要修改了。
谢谢大家

[delphi_user]

期待高手啊。

[delphi_user]

高手都到哪里去了

[Carfield]

我不知道,帮你Up一下...

[qiandeng]

还是帮你提前算了

[Tiga]

班主进来看看。

[iceriver521]

我知道关于对端口的一些操作，取端口的地址进行操作的办法常见一些外部板卡。但很抱歉，取断口地址我没研究过，不过你也不用每次都改程序啊，可以增加一个设置，让用户自己去配置啊（根据他的地址）

[dreamfan]

up

[kevincomein]

在vb我是这样做的，不知delphi是如何做，不知对你有没有用。
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

'// API Structures
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End TypePublic Function COMAvailable(COMNum As Integer) As Boolean
Dim hCOM As Long
Dim ret As Long
Dim sec As SECURITY_ATTRIBUTES

'try to open the COM port
hCOM = CreateFile("COM" & COMNum & "", 0, FILE_SHARE_READ + FILE_SHARE_WRITE, sec, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If hCOM = -1 Then
COMAvailable = False
Else
COMAvailable = True
'close the COM port
ret = CloseHandle(hCOM)
End If
End Function

[delphi_user]

谢谢 kevincomein(白菜) ，你这个方法我会。delphi也可以这么做。
我的意思是原来的程序是用汇编写的，不能去改，他需要的是串口的地址。
如：com1:0x3f8,com2:0x2f8。我需要的能够用程序得到这个。
我像应该可以得到吧，因为在系统属性我们看到串口的资源可以这个地址。那程序中一定有可到地址的命令。

谢谢大家的参与。期待高手啊。

[delphi_user]

谢谢:kevincomein(白菜) 你这个方法我会，在delphi中一样行得通。
我的意思是我原来的程序是用汇编写的，是直接对串口地址进行操作，现在他不能改动。我想得到某个串口的地址，然后传给他。譬如：com1 0x3f8

[jockywin]

gz$study

[zhptj]

学习

[Borlandor]

这可能是你所需要的：获取串口状态和端口地址的组件，仅限于windows98或95。

http://delphi.icm.edu.pl/ftp/d30free/commst.zip

[zhhahuatian]

我也在关注