我的程式有網路和介面兩塊，網路層負責接收和發送消息，提供介面給介面調用發送消息出去，接收到消息後通知介面處理消息，請問通信線程和介面之間的通信我該怎麼實現？

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

你给的情况太过笼统 不清楚你具体想做什么？
我给你个网址 相信上面有你要的东西
http://www.moon-soft.com/program/bbs/docelite1713.htm

------
呵呵
主页 http://www.blogjava.net/lusm/

在你的通信线程当中，发送自定义的消息给界面就OK。


===================引 用 文 章===================
我的程式有網路和介面兩塊，網路層負責接收和發送消息，提供介面給介面調用發送消息出去，接收到消息後通知介面處理消息，請問通信線程和介面之間的通信我該怎麼實現？

------
超级猛料：http://kingron.delphibbs.com

能不能给个Demo啊？

另，你是超级猛料CHM的作者？ 我买过这个CHM呢。

===================引 用 文 章===================
在你的通信线程当中，发送自定义的消息给界面就OK。

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

It's me.  谢谢你的支持。

下面是一个简单的Demo，服务端的演示，你可以用Telnet连接100端口来测试，你也可以把PostMessage换成SendMessage，但这样会阻塞：

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdTCPServer, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, StdCtrls;
const
CM_TCP_CONNECTED = WM_USER $100;
CM_TCP_COMMAND_A = WM_USER $101;
CM_TCP_DISCONNECT = WM_USER $102;
type
TForm1 = class(TForm)
idtcpclnt1: TIdTCPClient;
idtcpsrvr1: TIdTCPServer;
mmo1: TMemo;
btn1: TButton;
procedure idtcpsrvr1Connect(AThread: TIdPeerThread);
procedure idtcpsrvr1Execute(AThread: TIdPeerThread);
private
{ Private declarations }
procedure CMTcpConnected(var Msg: TMessage); message CM_TCP_CONNECTED;
procedure CMTcpCommandA(var Msg: TMessage); message CM_TCP_COMMAND_A;
procedure CMTcpDisconnect(var Msg: TMessage); message CM_TCP_DISCONNECT;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.CMTcpCommandA(var Msg: TMessage);
begin
mmo1.Lines.Add(PChar(Msg.WParam));
FreeMemory(PChar(Msg.WParam));
end;
procedure TForm1.CMTcpConnected(var Msg: TMessage);
begin
mmo1.Lines.Add(PChar(Msg.WParam));
FreeMem(PChar(Msg.WParam));
end;
procedure TForm1.CMTcpDisconnect(var Msg: TMessage);
begin
end;
procedure TForm1.idtcpsrvr1Connect(AThread: TIdPeerThread);
var
P : PChar;
begin
GetMem(P, 1024);
StrPCopy(P, 'Client connect: ' AThread.Connection.Socket.Binding.PeerIP
IntToStr(AThread.Connection.Socket.Binding.Port));
PostMessage(Handle, CM_TCP_CONNECTED, Integer(P), 0);
end;
procedure TForm1.idtcpsrvr1Execute(AThread: TIdPeerThread);
var
Buffer: string;
Line: string;
P : PChar;
begin
while AThread.Connection.Connected and not AThread.Terminated do
begin
Line := AThread.Connection.ReadLn(#13#10);
if Line = 'commanda' then
begin
p := GetMemory(Length(Buffer) 1);
StrPCopy(p, Buffer);
PostMessage(Handle, CM_TCP_COMMAND_A, Integer(p), 0);
AThread.Connection.WriteLn('Command A recived');
end
else
Buffer := Buffer Line;
end;
end;
end.


===================引 用 文 章===================
能不能给个Demo啊？

另，你是超级猛料CHM的作者？ 我买过这个CHM呢。

===================引 用 文 章===================

在你的通信线程当中，发送自定义的消息给界面就OK。

------
超级猛料：http://kingron.delphibbs.com