delphi indy TIdPeerThread ±àÒëÌáʾ䶨Òå

procedure TCPServerExecute(AThread: TIdPeerThread);

±àÒë Ìáʾ  undeclared identifier:'TidPeerThread'


֮ǰװ¹ý indy10  ºóÀ´Ð¶ÔØÁË ×°ÁË indy9  for  delphi »¹ÊDZàÒë²»¹ýÈ¥


TIdPeerThread  µ½µ×ÊÇ Äĸö°æ±¾ÀïÃæµÄ

---

·´Õý²»ÊÇindy10£¬ºÃÏñÊÇ8£¨»òÕß9£¿£©Ö®Ç°µÄ°æ±¾

---

¸ã¶¨ÁË  ÊÇ indy9 ÁË

---

Delphi(Pascal) code:


unit uSMSModule;

interface

{$define _Release}

...

{$ifndef _Release}
procedure CheckLicience(sLicienceStr: string);
{$endif}





ÇëÎÊ ¼Ó{$ifndef _Release} ÓÐʲô×÷ÓÃ

---

Ô¤±àÒ룬Èç¹û¶¨Òå_Release ¾Í±àÒëÕâ¶Îprocedure CheckLicience(sLicienceStr: string);



{{