谁有TurboPower APRO(Async Professional)控件的中文使用手册?用该控件在2台机器间通过串口传输文件,怎么判断超时? (100分)

  • 主题发起人 主题发起人 黑星星
  • 开始时间 开始时间

黑星星

Unregistered / Unconfirmed
GUEST, unregistred user!
为了2台机器通过串口传输文件,我找了好久才找到这个控件,但是使用手册只找到英文的,看起来头疼啊,谁有中文的?可以发我的邮箱:
heixingxing4107@sina.com
现在我碰到的一个问题是当一台机器在接收文件,但发送文件的那台机器重新启动了,接收这台就一直停在那里,应该可以通过超时判断吧,但是不知道怎么做。(已解决)
大家说说自己使用这个控件的经验吧,给分。
 
我也才开始弄串口方面,不太熟悉,但TurboPower Async的中文说明倒是有
就不贴了
好像是2ccc.com有你搜一下吧
 
http://delphibox.com/article.asp?articleid=381
 
delphibox里只有简单的说明。
 
请告知详细的使用方法。最好给段例子
 
unit Exprot0;

interface

uses
WinTypes, WinProcs, SysUtils, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, AdProtcl, AdPStat, AdPort, AdExcept,
ADTrmEmu, OoMisc;

type
TForm1 = class(TForm)
ApdComPort1: TApdComPort;
ApdProtocol1: TApdProtocol;
ApdProtocolStatus1: TApdProtocolStatus;
Upload: TButton;
Download: TButton;
ApdProtocolLog1: TApdProtocolLog;
AdTerminal1: TAdTerminal;
AdVT100Emulator1: TAdVT100Emulator;
OpenDialog1: TOpenDialog;
btnClose: TButton;
procedure UploadClick(Sender: TObject);
procedure DownloadClick(Sender: TObject);
procedure ApdProtocol1ProtocolFinish(CP: TObject; ErrorCode: Integer);
procedure ApdProtocol1ProtocolError(CP: TObject; ErrorCode: Integer);
procedure btnCloseClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.UploadClick(Sender: TObject);
begin
if OpenDialog1.Execute then begin
AdTerminal1.Active := False;
ApdComPort1.Open:=TRUE;
//ApdProtocol1.FileMask:=ExtractFilePath(OpenDialog1.FileName)+'*.JPG';
//ApdProtocol1.FileMask:='*.*';
ApdProtocol1.FileMask:=OpenDialog1.FileName;
ApdProtocol1.FileName:=OpenDialog1.FileName;
ApdProtocol1.StartTransmit;
end;
end;

procedure TForm1.DownloadClick(Sender: TObject);
begin
AdTerminal1.Active := False;
AdTerminal1.Active := True;
ApdProtocol1.StartReceive;
end;

procedure TForm1.ApdProtocol1ProtocolFinish(CP: TObject;
ErrorCode: Integer);
begin
ShowMessage('Protocol finished: '+ErrorMsg(ErrorCode));
AdTerminal1.Active := True;
ApdProtocolStatus1.pRO
end;

procedure TForm1.ApdProtocol1ProtocolError(CP: TObject;
ErrorCode: Integer);
begin
ShowMessage('Protocol Error: '+ErrorMsg(ErrorCode));
end;

procedure TForm1.btnCloseClick(Sender: TObject);
begin
ApdComPort1.Open:=False;
close;
end;

end.
 
啃了一段说明书,知道怎么判断超时了:
procedure TForm1.ApdProtocol1ProtocolStatus(CP: TObject; Options: Word);
begin
Memo1.Lines.Add( 'ApdProtocol Options:'+IntToStr(Options) );
case Options of
apFirstCall:
;
apLastCall:
;
else
Memo1.Lines.Add( ' FileName:'+ApdProtocol1.FileName );
Memo1.Lines.Add( ' BytesTransferred:'+IntToStr(ApdProtocol1.BytesTransferred) );
Memo1.Lines.Add( ' BytesRemaining:'+IntToStr(ApdProtocol1.BytesRemaining) );
if ApdProtocol1.ProtocolStatus=psTimeout then // 超时
ApdProtocol1.CancelProtocol;
end;
end;

大家说说自己使用这个控件的经验吧,给分。
 
回复:关于串口通讯
关于串口通讯,如果用delphi有很好的控件spcomm或TurboPower的APRO通信控件,另外推荐好书书名:
Delphi串口通信编程,人民邮电出版社,2001-8-1出版,本书详尽地介绍了Delphi串口通信编程技术,并通过丰富的范例帮助读者掌握这一技术。全书分为11章,内容包括数据通信的基本概念、Modem的基础知识、RS-232C标准、AT命令、异步接收发送器UART、在Delphi中嵌入汇编语句的语法、MSComm控件的使用、线程的基本概念和用法、Windows API和TAPI通信编程的基础知识、SPComm控件和TurboPower的APRO通信控件的使用、串口通信的一个项目实例、Delphi的RAS编程、通信安全设计以及项目管理工具Rational Rose的应用。
另外
http://www.delphibox.com/article.asp?articleid=353
标 题:CommWatch V1.12 串口通讯控制器 (开放源码) 分  类:系统
关键字:CommWatch 串口通讯 控制器 数据 深 浅 度:中级
发布者:zhchyl 发布时间:2003-7-12 更新时间:2003-12-1
编辑器:DELPHI7 平  台:Win9x,Win2k/NT,WinXP 语  种:简体中文
来 自:原创
可下这个来看看人家是怎么做的,学一下呗
 
串口没有超时的概念,只能根据设定时间内有没有数据来确定是否超时,这个时间有程序来控制
 
to app2001:
看过了,他是用串口控件直接发文件,我是利用ApdProtocol控件发文件,功能强,出错可以自动重发。

不过这个控件还有些古怪问题,当传送文件时,如果被终止,那么即使我删除那个没有完整接收的文件,下次再传时常常就出错,或者是跳过了这个文件没传,或者是一直停在那里,直到超时。
 
http://delphibox.com/article.asp?articleid=756
TurboPower 全套组件及相关文档
有102M那么多,会不会详细一些,不过可能不是中文
 
to app2001:
是啊,这里面除了APRO控件还有TurboPower公司的其他控件,文档齐全,不过是全英文的。
APRO控件的英文文档有900多页,嘿嘿,要是都啃过来,要到猴年马月了。
 
一般还是自己看com口的通信的底层的书好些
 
COM口通讯都不成问题的,问题在于传送文件,文件大了,就要考虑分块传送,传送失败怎么办,都靠自己做容易出问题,所以找了这个控件。
 
用这个控件的人会这么少?奇怪。
结帖了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部