摘要：
湘潭真武山陈氏 鼻祖晓苍公，讳晚，江西永新人，以世乱于明洪武16年（1383）移籍湖广宝庆府邵阳县杨柳冲西萼塘，置水田三百六十亩，得业承差，遂为邵人，生子数人，昂公居长。时靖难兵起，邵差繁重，公不堪其苦，遂以家产付兄弟，于景泰2年（1451）徙于湘潭草叶桥，虑邵役追及，尝改姓萧，家道日昌。昂公有七孙，五阙，仅得长孙添祯、七孙添华。添祯之后世居中湘，至孙辈别为三房：柳桥祖玉爵、近桥祖玉受、仲桥祖玉管；添华孙玉珠为还溪房祖，玉珍为儒溪房祖。清嘉庆24年（1819）再建宗祠于十四都八甲真武山，门联：灵钟真武，瑞映德星。明天启7年（1627）创修族谱，清乾隆50年（1785）续修，道光25年（1845 阅读全文
摘要：
Delphi6中的TServerSocket在线程阻塞模式(TThreadBlocking)下，OnRead/OnWrite事件的是在主线程中执行的，虽为多线程，实际效率不高。故我们若需要利用TServerSocket来开发真正多线程的服务器，则需要写TServerClientThread的子类，在这个子类中，自行处理数据的接收与发送，而重写的的重点在ClientExecute方法。下面为代码描述了这种编程思路。type TServerForm=class(TForm) ... private procedure GetThread(Sender: TObject; ClientSocket: 阅读全文
摘要：
标准的Socket的应用程序框架如下：Server方： Socket()[ 新建一个Socket]－－Bind()[ 同服务器地址邦定 ]－－Listen() －－Accept()－－block wait－－read()[接受消息，在windows平台中，方法为send(TCP),或者是sendto(UDP)]－－处理服务请求－－Write()[发送消息，在windows平台中，方法为send(TCP), 或者为sendto(UDP)。Client方相对简单：Socket()－－Connect()[通过一定的port连接特定的服务器，这是与服务器建立连接]－－Write()－－Read()。 阅读全文