我现在要编写一个与WinFIOL.exe进行DDE热连接数据交换.但现在有个问题:
用Delphi 2005编写的程序在接收数据时,会漏掉一些数据或重复读取同一
数据.请问这是为何?
WinFIOL.exe简介:
WinFIOL.exe是爱立信移动交换机终端所使用的软件.与之进行DDE热
连接后(DdeClientItem1.DdeItem:='Output"),其输出发生变化时
DdeClientItem1.OnChange事件会发生. 所有控件的属性均为默认值:procedure TForm1.NewLink1Click(Sender: TObject);
begin
DdeClientConv1.SetLink('WinFIOL','Channel #2');
DdeClientItem1.DdeConv:=DdeClientConv1;
DdeClientItem1.DDeItem:='Output';
end;procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Memo1.Lines.Add(DdeClientItem1.Text);
end;{
procedure TForm1.Button1Click(Sender:TObject);
begin
DdeClientConv1.SetLink('WinFIOL','Channel #2');
DdeClientItem1.DdeConv:=DdeClientConv1;
DdeClientItem1.DDeItem:='Output';
end;
}DELPHI 2005程序输出:
<rlcrp:cell=dyg109a;
CELL BCCH CBCH SDCCH NOOFTCH
DYG109A 1 0 8 6
BPC CHANNEL CHRATE SPV STATE ICMBAND
2767 BCCH-34748 BUSY
2764 SDCCH-33919 IDLE 1
SDCCH-33918 IDLE 1
SDCCH-33917 IDLE 1
SDCCH-33916 IDLE 1
SDCCH-33915 IDLE 1
SDCCH-33914 IDLE 1
SDCCH-33913 IDLE 1
SDCCH-33912 IDLE 1
2761 TCH-6732 FR 1 IDLE 1
2760 TCH-6731 FR 1 BUSY 1
2759 TCH-6730 FR 1 BUSY 1
2758 TCH-6729 FR 1 BUSY 1
2757 TCH-6652 FR 1 IDLE 1
END
ENDWinFIOL.exe标准输出: <rlcrp:cell=dyg109a;
CELL RESOURCES
CELL BCCH CBCH SDCCH NOOFTCH
DYG109A 1 0 8 6
BPC CHANNEL CHRATE SPV STATE ICMBAND
2767 BCCH-34748 BUSY
2764 SDCCH-33919 IDLE 1
SDCCH-33918 IDLE 1
SDCCH-33917 IDLE 1
SDCCH-33916 IDLE 1
SDCCH-33915 IDLE 1
SDCCH-33914 IDLE 1
SDCCH-33913 IDLE 1
SDCCH-33912 IDLE 1
2761 TCH-6732 FR 1 IDLE 1
2760 TCH-6731 FR 1 BUSY 1
2759 TCH-6730 FR 1 BUSY 1
2758 TCH-6729 FR 1 BUSY 1
2757 TCH-6652 FR 1 IDLE 1
2756 TCH-6651 FR 1 IDLE 1 (这行不能显示出来)
END
大富翁:就贴过这样的帖子,一直没人回答:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=62519分类:OLE/Automation ( 版主:g622, satanmonkey )
来自:沈前卫, 时间:1998-10-17 12:48:00, ID:62519
用Delphi 2005编写的程序在接收数据时,会漏掉一些数据或重复读取同一
数据.请问这是为何?
WinFIOL.exe简介:
WinFIOL.exe是爱立信移动交换机终端所使用的软件.与之进行DDE热
连接后(DdeClientItem1.DdeItem:='Output"),其输出发生变化时
DdeClientItem1.OnChange事件会发生. 所有控件的属性均为默认值:procedure TForm1.NewLink1Click(Sender: TObject);
begin
DdeClientConv1.SetLink('WinFIOL','Channel #2');
DdeClientItem1.DdeConv:=DdeClientConv1;
DdeClientItem1.DDeItem:='Output';
end;procedure TForm1.DdeClientItem1Change(Sender: TObject);
begin
Memo1.Lines.Add(DdeClientItem1.Text);
end;{
procedure TForm1.Button1Click(Sender:TObject);
begin
DdeClientConv1.SetLink('WinFIOL','Channel #2');
DdeClientItem1.DdeConv:=DdeClientConv1;
DdeClientItem1.DDeItem:='Output';
end;
}DELPHI 2005程序输出:
<rlcrp:cell=dyg109a;
CELL BCCH CBCH SDCCH NOOFTCH
DYG109A 1 0 8 6
BPC CHANNEL CHRATE SPV STATE ICMBAND
2767 BCCH-34748 BUSY
2764 SDCCH-33919 IDLE 1
SDCCH-33918 IDLE 1
SDCCH-33917 IDLE 1
SDCCH-33916 IDLE 1
SDCCH-33915 IDLE 1
SDCCH-33914 IDLE 1
SDCCH-33913 IDLE 1
SDCCH-33912 IDLE 1
2761 TCH-6732 FR 1 IDLE 1
2760 TCH-6731 FR 1 BUSY 1
2759 TCH-6730 FR 1 BUSY 1
2758 TCH-6729 FR 1 BUSY 1
2757 TCH-6652 FR 1 IDLE 1
END
ENDWinFIOL.exe标准输出: <rlcrp:cell=dyg109a;
CELL RESOURCES
CELL BCCH CBCH SDCCH NOOFTCH
DYG109A 1 0 8 6
BPC CHANNEL CHRATE SPV STATE ICMBAND
2767 BCCH-34748 BUSY
2764 SDCCH-33919 IDLE 1
SDCCH-33918 IDLE 1
SDCCH-33917 IDLE 1
SDCCH-33916 IDLE 1
SDCCH-33915 IDLE 1
SDCCH-33914 IDLE 1
SDCCH-33913 IDLE 1
SDCCH-33912 IDLE 1
2761 TCH-6732 FR 1 IDLE 1
2760 TCH-6731 FR 1 BUSY 1
2759 TCH-6730 FR 1 BUSY 1
2758 TCH-6729 FR 1 BUSY 1
2757 TCH-6652 FR 1 IDLE 1
2756 TCH-6651 FR 1 IDLE 1 (这行不能显示出来)
END
大富翁:就贴过这样的帖子,一直没人回答:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=62519分类:OLE/Automation ( 版主:g622, satanmonkey )
来自:沈前卫, 时间:1998-10-17 12:48:00, ID:62519
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货