要求:使用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