如何在PB中实现对并行口操作??在线等待,急,急,急!!!!!!!

[yang_jl]

有兴趣加入:OICQ:2016970,表明:PB!!呵呵

[liu7537]

你想对并行口做什么操作呢？

[yang_jl]

你有QQ号码??直接面说.呵呵

[yang_jl]

通过并行口与单片机连接,通过并行口与单片机相连、向它发送数据、取得单片机的闲/忙、能否做到对每个针脚操作、能否取得并行口地址，总之问题多多啊，呵呵~~以前没有接触过

[smartdraw]

my oicq:8621265

[killerdanny]

下面是两位高手以不同方法来处理对并口发送字符的方法,希望对大家有所帮助

第一种方法：
作者:JiangAn [e-mail]
我是通过调用API实现串口调用的，根据TAPI介绍，串口调用与并口调用并没有什么不同，下面的
程序可试一试（我只实现串口，并口并没有试过，希望能有一点参考作用）：
首先定义外部函数：
Function Boolean CloseHandle(ulong hObject ) Library "kernel32.dll"

FUNCTION boolean ReadFile(ulong fhand, &
ref string lpbuffer, &
ulong numbyte, &
ref ulong bytesread, &
ulong lpover) LIBRARY "kernel32.dll"

FUNCTION ulong CreateFileA(ref string fname, &
ulong f_access, &
ulong f_share, &
ulong f_sec, &
ulong f_create, &
ulong f_flag, &
ulong f_attrib) LIBRARY "kernel32.dll"

Function Boolean WriteFile(uLong handle,&
ref string lpbuffer, &
ulong numbytes, &
ref ulong bytesread, &
ulong lpOverLaped) Library "Kernel32.dll"

Function Boolean GetCommProperties(ulong hFile,&
ref COMMPROP lpCommProp ) Library "Kernel32.dll"

Function Boolean BuildCommDCBA(ref string lpDef,&
ref DCB lpDCB ) Library "Kernel32.dll"

Function Boolean SetCommState(ulong hCommDev,&
ref DCB lpdcb ) Library "Kernel32.dll"

Function Boolean GetCommState(ulong hCommDev,&
ref DCB lpdcb ) Library "Kernel32.dll"

Function ulong GetLastError() Library "Kernel32.dll"

Function Boolean SetCommTimeouts(ulong hCommDev,&
ref COMMTIMEOUTS lpctmo ) Library "Kernel32.dll"

Function Boolean PurgeComm(ulong hCommDev, &
ulong fdwAction ) Library "Kernel32.dll"
实例变量定义：
ulong iu_file
string is_buffer//数据缓冲
string is_valid_num = "123" //有效数据

第二是初始设置
string ls_com,ls_commset
dcb lst_dcb

ls_com = "COM1"
//ib_reading = true

//打开串口
iu_file = CreateFileA(ls_com,3221225472,0,0,3,128,0)
if (iu_file < 0) then
messagebox("错误","无法打开" + ls_com + " #" + string(getlasterror (
)),StopSign!)
end if

//初始化DCB
ls_commset = "4800,N,8,1"
if (Not BuildCommDcbA ( ls_commset, lst_dcb )) then
messagebox("错误","无法创建DCB" + " #" + string(getlasterror ( )),StopSign!)
end if

//设置串口
if (Not setcommstate ( iu_file, lst_dcb )) then
messagebox("错误","无法设置串口"+ ls_com + " #" + string(getlasterror (
)),StopSign!)
end if

//设置超时
commtimeouts lst_to
lst_to.readintervaltimeout = 4294967295 //MAXDWORD
//lst_to.readtotaltimeoutconstant = 60000
//lst_to.readtotaltimeoutmultiplier = 10
SetCommTimeouts(iu_file, lst_to)

第三步：读或写（例子中的是读，写可用writefile）
ulong lu_bytesread, lu_numbytes
string ls_buff
ulong lstr_locstruct //注意！这是ULONG 而不是STRUCT

ls_buff = space(100)
setnull(lstr_locstruct)
lu_numbytes = 100

if (not readfile ( iu_file, ls_buff, lu_numbytes, &
lu_bytesread, lstr_locstruct)) then
messagebox("错误","无法读取 #" + string(getlasterror ( )),StopSign!)
timer(0)
else
if( lu_bytesread > 0) then
is_buffer += trim(ls_buff)
mle_1.text += trim(ls_buff)
//处理数据
this.wf_is_valid_receieve ( ) //检验函数
end if
end if

第四步：完成后释放端口
closehandle ( iu_file )


具体函数使用方法可参见MSDN中的TAPI。
有时可能用控件做起来更简单一些（如SCOMM、SAX COMM等）。



第二种方法：作者主页：http://niceera.yeah.net， 点这里下载相关文件.(还需要另外两个文件，它们在C++Builder 4和Delphi 4中都有，Borlndmn.dll和vcl40.bpl)

作者前些时间用C++Builder4专为PB写的一个向并口发送数据的DLL，希望对大家有帮助。

Function Boolean PrepareForPrint(String port) Library "rawLptDrv.dll"
打开指定的并口，比如“LPT1”;

Function Boolean RawPrint(String dt,integer ln) Library "rawLptDrv.dll"
向并口发送数据；

Function Boolean OverPrint() Library "rawLptDrv.dll"
关闭并口。

---------------------------------------------------

下面的函数是为了测试用的。
Function Boolean ShowPrinterStatus(integer x,integer y) Library "rawLptDrv.dll"
Function Boolean HidePrinterStatus() Library "rawLptDrv.dll"
Subroutine calltest() Library "rawLptDr.dll"

---------------------------------------------------

如果运行时报告什么错误，可能是缺少 C++Builder4 的一些DLL。

[liu7537]

这个问题我觉得超出了一个PowerBuilder程序员的职责范围！其实使用PowerBuilder他最大的强项在与数据库系统的开发设计，而不是搞计算机数据通讯，后者是C、C++的天下！建议您跟C++程序员合作，由他编写DLL，然后您在PowerBuilder里面调用！
我曾经写过一个POS机上使用的商业管理软件，其中关于控制POS机钱箱的开关等操作都是由别人编程DLL，然后我在PowerBuilder里面调用的。
因为硬件控制，尤其是单片机的编程同样是一门博大精深的学问，它与PB完全是两个方面的东西，一个人很难在这两方面都有所建树的！

[liu7537]

这个问题我觉得超出了一个PowerBuilder程序员的职责！
从前我写过一个POS机管理软件，其中控制POS机钱箱的开关的操作就是有一个C++高手给我写的DLL，然后我在PB种调用。
其实硬件控制，尤其是单片机操作，同样是一门博大精深的学问，它和PB完全是两个不同方面的东西，一个人很难在这两方面都有所建树的。建议你跟硬件控制高手合作。

[taitan]

I agree with liu7537