utest1.pas

中華電信簡訊特碼sns delphi版程式

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;               //