constdef.pas

来自「< Delphi网络通信协议分析与应用实现>>一书的源代码。」· PAS 代码 · 共 29 行

unit ConstDef;

interface
uses
    ScktComp,Winsock;
Const
     CLOGIN='You can transfer to:'#13#10+
        '  (1): Freecity.dgh.org   10.13.21.88'#13#10+
        '  (2): Zjubbs.dot66.net   10.12.13.66'#13#10+
        '  (3): bbs.TSinghua.edu.cn'#13#10#13#10+
        '  CopyRight (C) 2001 Bowman [e-mail]'#13#10#13#10;
     CMAXLINK='Sorry, Max links reach now. Try again later'#13#10;
     CERRORCHAR='Please Select From the Following 1,2,3...'#13#10#13#10;
     CMAXLOGIN=10;
     CArrRemote:array[1..3]of string=('10.13.21.88','10.12.13.66','bbs.TSinghua.edu.cn');
type
    TMap=record
                hSocket:TSocket;//MAP from client to server
                outSkt:TClientSocket;
                inIP,outIP:string[15];
                bLogin:Boolean;
                bUsed:Boolean;
                end;


implementation

end.