已实现用MODEM拨号到电话上,如何实现接通后播放一个WAV语音文件给对方? ( 积分: 100 )

如题,帮忙解决啊!!!

拨号的代码如下:

procedure TForm1.dialer(num: string);
Var
PhoneNumber: string;
CommPort: String;
NumberWritten: Dword;
lpdcb:Tdcb;
hCommFile: THANDLE;
Begin
PhoneNumber := 'ATDT'+Num + #13 + #10;
CommPort :='COM1';
{Open the comm port}
hCommFile := CreateFile(PChar(CommPort),GENERIC_WRITE,FILE_SHARE_WRITE,Nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
If hCommFile=INVALID_HANDLE_VALUE Then
Begin
ShowMessage('Unable to open '+ CommPort);
Exit;
End;
{Dial the phone}
NumberWritten := 0;
setupcomm(hCommFile,4096,4096);
getcommstate(hCommFile,lpdcb);
lpdcb.baudrate:=9600;
lpdcb.StopBits:=OneStopBit;
lpdcb.ByteSize:=8;
lpdcb.Parity:=NoParity;
Setcommstate(hCommFile,lpdcb);
If WriteFile(hCommFile,PChar(PhoneNumber)^,Length(PhoneNumber),NumberWritten,Nil) = false Then
Begin
showmessage('Unable to write to ' + CommPort);
End;
end;

如何用AT指令播放WAV语音文件啊????????

如题,帮忙解决啊!!!

拨号的代码如下:

procedure TForm1.dialer(num: string);
Var
PhoneNumber: string;
CommPort: String;
NumberWritten: Dword;
lpdcb:Tdcb;
hCommFile: THANDLE;
Begin
PhoneNumber := 'ATDT'+Num + #13 + #10;
CommPort :='COM1';
{Open the comm port}
hCommFile := CreateFile(PChar(CommPort),GENERIC_WRITE,FILE_SHARE_WRITE,Nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
If hCommFile=INVALID_HANDLE_VALUE Then
Begin
ShowMessage('Unable to open '+ CommPort);
Exit;
End;
{Dial the phone}
NumberWritten := 0;
setupcomm(hCommFile,4096,4096);
getcommstate(hCommFile,lpdcb);
lpdcb.baudrate:=9600;
lpdcb.StopBits:=OneStopBit;
lpdcb.ByteSize:=8;
lpdcb.Parity:=NoParity;
Setcommstate(hCommFile,lpdcb);
If WriteFile(hCommFile,PChar(PhoneNumber)^,Length(PhoneNumber),NumberWritten,Nil) = false Then
Begin
showmessage('Unable to write to ' + CommPort);
End;
end;

如何用AT指令播放WAV语音文件啊????????

帮忙解决一吓吧!!!!!

各位老大!

Ayci 的etLine,etPlay可以做到

AYCI ?

控件来的吗?

hehe,顺便问一句，你是否是刚接到一个小活，有这样的需求？在者，你是长春的？其实有一个更好的方案。用Modem传语音是有问题的。

没有,我们要做预警系统,这个是预警功能的一部分!我不是长春的!呵呵

你有更好的方案???能给我说说吗???

呵呵1，是这样，我简单的说一下我的看法。
你要播放语音文件，说明对方是人，不是机器，所以你的用意是
传输语音，而不是数据。但是 普通Modem是用来传输数据，而不是
语音的。传输语音的最好办法是用语音卡。现在便宜的语音卡只有
几百元，而且还有USB接口的。OK，明白了。

条件：
MODEM支持语音

通过TurboPower Async Professional控件实现
我已实现，内附很多例子，拿来即可