如何在BCB中实现网络上简单的信息传递?

[kewin_007]

如何在BCB中实现在网络上的简单的消息传递?
希望大虾们帮帮忙!!!!!等待ing!!!

[ydlchina]

使用Indy组件，下一个Demo看看，很容易。

[i_love_pc]

Socket控件

CB6的Examples中的Chat实例！

[我不懂电脑]

两位都很有道理。

[纯冰糖]

ClientSocket，ServerSocket，你可以从网上找到很多例子

[纯冰糖]

我刚写的delphi测试代码

lh:=Socket.ReceiveLength;
GetMem(buf,lh);
Socket.ReceiveBuf(buf^,lh);
sTemp:=StrPas(PChar(buf));
sTemp:=Copy(sTemp,1,3);

if (stemp<>'999') and (stemp<>'111') and (stemp<>'000') then
begin
// frmMain.Caption :='接收数据...';
fsRecv.WriteBuffer(buf^,lh);
Socket.SendText('555');
FreeMem(buf,lh);
exit;
end;