Delphi、 C++Builder下的通信控件Async Professional可视化通信组件组件库
Async Professional 是一套全面的通信相关开发包，包含串口、TAPI、微软Speech API、支持传真、终端仿真、VOIP等等。delphi 2010
1.下载http://sourceforge.net/projects/tpapro/
2.解压，在delphi2010下找到d:\thirdparty\tpapro_5.00\packages\d2010在其中建立子文件夹
如d:\thirdparty\tpapro_5.00\packages\d2010\dcu，用于存放编译后的dcu文件
3.双击打开asyncprogp.groupproj工程组文件在asyncpro_d2010.bpl右键options将$(dcp)清空，将$(bpl)清空
将$(dcu)改为dcu。在dclasyncpro_d2010.bpl右击，在options下将$(dcp)清空，将$(bpl)清空，将$(dcu)改为dcu
4.在asyncprogp右击，选compile all,在dclasyncpro_d2010.bpl右击选install
5. 在environment options菜单下的library标签下的library path中加入①d:\thirdparty\tpapro_5.00\packages\d2010\dcu ②d:\thirdparty\tpapro_5.00\design ③d:\thirdparty\tpapro_5.00\run
6. 大功告成！
delphi 7
1.解压，创建d:\thirdparty\tpapro_5.00\packages\d7\dcu中的dcu目录
2.双击asyncprogp.bpg，在view菜单下选择project manager在asyncpro_d7.bpl上右击选options找到
其中的directories/conditionals标签，将$(dcp)清空，将$(bpl)清空，将$(dcu)改为dcu。
3.右击dclasyncpro_d7.bpl，选options找到其中的directories/conditionals标签，将$(dcp)清空，
将$(bpl)清空，将$(dcu)改为dcu。
4.在project菜单下找到complie asyncpro，然后右击dclasyncpro_d7.bpl,选install
5. 在environment options菜单下的library标签下的library path中加入①d:\thirdparty\tpapro_5.00\packages\d7\dcu ②d:\thirdparty\tpapro_5.00\design ③d:\thirdparty\tpapro_5.00\run
6.大功告成！
http://cache.amobbs.com/bbs_upload782111/files_46/ourdev_686229FVFKOK.jpg
(原文件名:1.jpg)
http://cache.amobbs.com/bbs_upload782111/files_46/ourdev_686230IY574O.jpg
(原文件名:2.jpg)
写了一个简单的 接收单片机发送的数据 感觉比mscomm好用^_^
var
s :string;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Text:='';
ApdComPort1.ComNumber:=6;
ApdComPort1.Baud:=115200; // //配置端口比特率停止位数据位等
ApdComPort1.Parity :=pNone;
ApdComPort1.DataBits :=8;
ApdComPort1.StopBits:=1;
ApdComPort1.Open :=True;
//ApdComPort1.Logging :=tlOn;
end;
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
i:Integer;
begin
for i:=1 to Count do
s :=s+ ApdComPort1.GetChar; //接受数据
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Length(s)>0 then
begin
Memo1.Text :=s;
s:='';
// ApdComPort1.LogName :='delphi test.txt';
// ApdComPort1.Logging :=tlDump;
end
else
Memo1.Text :='';
end;
也可以在http://sourceforge.net/projects/tpapro/files/tpapro/下载
tpapro_5.00ourdev_686231ZSYTUV.zip(文件大小:9.01M) (原文件名:tpapro_5.00 串口.zip) 这个版本已经不支持BCB了，不知为啥。。 顶，最近看大家都在用delphi正在尝试……
页:
[1]