delphi DDE 7年没解决的问题!! ( 积分: 100 )

我现在要编写一个与WinFIOL.exe进行DDE热连接数据交换.但现在有个问题:
用Delphi 2005编写的程序在接收数据时,会漏掉一些数据或重复读取同一
数据.请问这是为何?
WinFIOL.exe简介:
WinFIOL.exe是爱立信移动交换机终端所使用的软件.与之进行DDE热
连接后(DdeClientItem1.DdeItem:='Output&quot,其输出发生变化时
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
END

WinFIOL.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

我现在要编写一个与WinFIOL.exe进行DDE热连接数据交换.但现在有个问题:
用Delphi 2005编写的程序在接收数据时,会漏掉一些数据或重复读取同一
数据.请问这是为何?
WinFIOL.exe简介:
WinFIOL.exe是爱立信移动交换机终端所使用的软件.与之进行DDE热
连接后(DdeClientItem1.DdeItem:='Output&quot,其输出发生变化时
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
END

WinFIOL.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

各位帮小弟看看,哪里出问题了,是不是语句上有问题

好,帮顶



--------签名档---------------------------

比肩国内顶尖源码下载站点 -> 源码我爱你

http://www.source520.com
http://www.source520.net

80G源码电子书免费免注册下载,大量精辟技术文档库随时更新
******************************************************************
附:为了站点持续发展,现有本站近年来收藏的大量大型商业源码低价出售,
详情请进入以下链接查看:
http://www.source520.com/building_delphi.htm

浏览商业代码请从如下URL进入查看实物:
1.商业源码库1: ftp://source520see3:browse@61.152.199.245/
2.商业源码库2: ftp://source520see2:browse@61.152.199.245/

顶