//第一种：传指针  TParam=record    TrdId:integer;    Sckt:TSocket;  end;  var  Param:^TParam;     new(Param);      Param^.TrdId:=ThreadCount;      Param^.Sckt:=s;      hThread:=CreateThread(nil,0

今天看了TIdAntiFreeze的方法，发现它的Process实际上是调用Application.Processmessage(); 其实不用这个控件，直接用Application.Processmessage();不是多好，还要往上面拖控件，最近研究了Socket　API编程，发现直接用 API编程，程序会灵活很多，以前用TServerSocket和TClientSocket，

最近安装了红旗Linux6,写了一个Socket文件测试:Client.c#include#include#include#define SERVERPORT 3333#define MAXDATA 90//每次最大数据传输量void main(int argc,char *argv[]){int cs,recvbytes;char buf[MAXDATA];struct hosten *

虚拟串口调试技巧

<br />在一次使用PComm中，发现CPU占用超过50%，当没有接收数据时，%1~2%左右，而接收数据时在40%~60%之间，但数据量很少呀，难道是我的接收线程的问题，我是用一个线程一直读数据，如果读取的长度小于1，重新读，一般来讲，这肯定会引起CPU一直忙不停的读，但以前并没有出现这样的情况呀，也是这样写的，忽然想起了串口有个读超时的设置，难道是读超时为0，所以CPU一直在读，结果加了超时设置后：sio_SetReadTimeouts(1,2000,40)，就正常了，说明我的判断是正确的。初学的朋友一

delphi创建了多线程后，要想在执行完成后自动释放所用的资源，可以在构造函数Constructor里指定线程结束时的执行事件，OnTerminate:=FinishedEvent;这样，当一个线程运行完成后，就会自动调用这个过程，当然，在构造函数里还必须先有这两句：inherited Create(CreateSuspended);FreeOnTerminate := true;让它