对已经存在的TCP系统进行登录验证

要求：使用Media Service作为VOD server，点播流程： WMP - > WMS

由于登录帐号保存在数据库，要实现自己的验证机制，需要在WMS前面加上Socket代理，检查URL中包含

的SessionKey，验证流程：WMP -> Proxy -> WMS

主要是实现一个代理，利用Delphi本身带的控件IdMappedPortTCP很容易就实现了。

unit frmMains;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdMappedPortTCP,
  StdCtrls;

type
  TfrmMain = class(TForm)
    Server: TIdMappedPortTCP;
    Label1: TLabel;
    lblConnections: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure ServerConnect(AThread: TIdMappedPortThread);
    procedure ServerDisconnect(A