搜索
bottom↓
回复: 2

Delphi、 C++Builder下的通信控件Async Professional可视化通信组件组件库

[复制链接]

出0入0汤圆

发表于 2011-10-19 00:00:53 | 显示全部楼层 |阅读模式
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.大功告成!



(原文件名:1.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)

阿莫论坛20周年了!感谢大家的支持与爱护!!

一只鸟敢站在脆弱的枝条上歇脚,它依仗的不是枝条不会断,而是自己有翅膀,会飞。

出0入0汤圆

发表于 2011-10-19 00:12:52 | 显示全部楼层
这个版本已经不支持BCB了,不知为啥。。

出0入0汤圆

发表于 2011-10-19 01:12:55 | 显示全部楼层
顶,最近看大家都在用delphi正在尝试……
回帖提示: 反政府言论将被立即封锁ID 在按“提交”前,请自问一下:我这样表达会给举报吗,会给自己惹麻烦吗? 另外:尽量不要使用Mark、顶等没有意义的回复。不得大量使用大字体和彩色字。【本论坛不允许直接上传手机拍摄图片,浪费大家下载带宽和论坛服务器空间,请压缩后(图片小于1兆)才上传。压缩方法可以在微信里面发给自己(不要勾选“原图),然后下载,就能得到压缩后的图片】。另外,手机版只能上传图片,要上传附件需要切换到电脑版(不需要使用电脑,手机上切换到电脑版就行,页面底部)。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|Archiver|amobbs.com 阿莫电子技术论坛 ( 粤ICP备2022115958号, 版权所有:东莞阿莫电子贸易商行 创办于2004年 (公安交互式论坛备案:44190002001997 ) )

GMT+8, 2024-5-18 19:07

© Since 2004 www.amobbs.com, 原www.ourdev.cn, 原www.ouravr.com

快速回复 返回顶部 返回列表