用过TurboPower Async Professional作过串口通讯的请进。

文件传输，接受，发送都OK，但是就是没找到文件
 FileTransmit,SendOk,RecieveOk,but no file??   可以肯定连接是建立好了，接收和发送端都用ApdDataPacket1 作了CONNECT的检测，检测好后才可以发数据。发送端：
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
ApdComPort1.Open:=true; 
ApdComPort1.Output:='ATDT'+PhoneNumberEdit.Text+Chr(13); 
end; 
 
procedure TForm1.ApdDataPacket1Packet(Sender: TObject; Data: Pointer; 
Size: Integer); 
begin 
SendFileBtn.Enabled:=true; 
AllFilesBtn.Enabled:=true; 
SendFilesBtn.Enabled:=true; 
end; 
 
 
procedure TForm1.SendFileBtnClick(Sender: TObject); 
begin 
OpenDialog1.Filter := 'All files (*.*)|*.*'; 
if OpenDialog1.Execute then begin 
ApdProtocol1.FileMask := OpenDialog1.FileName; 
ApdProtocol1.StartTransmit; 
end; 
end; 
 
procedure TForm1.ApdProtocol1ProtocolFinish(CP: TObject; 
ErrorCode: Integer); 
begin 
ShowMessage('Send File complete'); 
end; 
 
接收端： 
procedure TForm1.OpenBtnClick(Sender: TObject); 
begin 
ApdComPort1.Open:=true; 
ApdComPort1.DTR:=true; 
ApdComPort1.RTS:=true; 
ApdComPort1.Output:='ATS0=1'#13; 
end; 
 
procedure TForm1.ApdDataPacket1Packet(Sender: TObject; Data: Pointer; 
Size: Integer); 
begin 
RecieveBtn.Enabled:=true; 
end; 
 
procedure TForm1.ApdProtocol1ProtocolFinish(CP: TObject; 
ErrorCode: Integer); 
begin 
ShowMessage('Recieveing complete'); 
end; 
 
procedure TForm1.RecieveBtnClick(Sender: TObject); 
begin 
ApdProtocol1.StartReceive; 
end;