1.用Delphi开发一个课堂教学管理软件，源码怎么实现当这段程序分别在两台电脑上运行时，源码实现彼此的源码flink 源码通讯呢
2.delphi 7中tcpserver 和 tcpclient的运用
3.如何用 DELPHI 获取 CPU 的序列号

用Delphi开发一个课堂教学管理软件，怎么实现当这段程序分别在两台电脑上运行时，源码实现彼此的源码门店会员积分源码通讯呢

       肯定要联网啦，不联网怎么通讯。源码大话2 脚本 源码TCP方式、源码UDP方式，源码...，源码你认为哪种合适你你就用哪种，源码网上下载一个Indy的源码软件包，其中附带有示例程序，源码很多通讯的源码单双猜源码例子，用来改一下就可以。源码也可以用数据库方式，源码前端源码免费下载比如安装一台SQLSERVER服务器，按数据库应用来编程。

delphi 7中tcpserver 和 tcpclient的运用

       procedure TForm1.TcpServer1Accept(Sender: TObject;

       é‡Œé¢ä¹Ÿæ˜¯æ­»å¾ªçŽ¯æ¥å¤„理消息。直到你终止。

       while ClientSocket.connected do

       tcpclient1 也是类似的，用单独的线程死循环来处理接收的消息。 只有发送消息就无所谓

如何用 DELPHI 获取 CPU 的序列号

       ç¤ºä¾‹ä»£ç å¦‚下：

procedure TForm1.Button1Click(Sender: TObject);

         type

           TCPUID = array[1..4] of longint;

         function GetCPUID: TCPUID;

         asm

           PUSH    EBX

         ã€€PUSH    EDI

         ã€€MOV     EDI,EAX    

         ã€€MOV     EAX,1

         ã€€DW      $AF      

         ã€€STOSD

         ã€€MOV     EAX,EBX

         ã€€STOSD

         ã€€MOV     EAX,ECX

         ã€€STOSD

         ã€€MOV     EAX,EDX

         ã€€STOSD

         ã€€POP     EDI

         ã€€POP     EBX

         end;

       var

         aCpuId: TCpuID;

       begin

         aCpuId := GetCPUID;

         ShowMessage('CPU åºåˆ—号是: ' + IntToHex(aCpuId[4],8) + IntToHex(aCpuId[1],8));

       end;

       ä»£ç è¿è¡Œæˆªå›¾ï¼š

       ä¸Žå®žé™…的对比：