utest1.pas

来自「中華電信簡訊特碼sns delphi版程式」· PAS 代码 · 共 12 行

unit utest1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB, IniFileS, EasyReg, IdTCPServer,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, Sockets,
  ScktComp;
type
  Recv_Msg=record
     code:byte;               //