IdHTTPServer完成websocket服务端编写

利用delphi的idhttpserver控件来做websocket的服务端。主要是握手过程,后面的通讯还未实现。实现了再发代码。握手代码如下。

procedure TfWebSocket.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  svk,sValue:string;
  FHash: TIdHashSHA1;
  strmRequest: TMemoryStream;
begin

    FHash := TIdHashSHA1.Create;
    strmRequest  := TMemoryStream.Create;
    strmRequest.Position := 0;
    svk:=ARequestInfo.RawHeaders.Values['Sec-WebSocket-Key'];
    Memo1.Lines.Add('Get:'+svk);
      AResponseInfo.ResponseNo         := 101;
      AResponseInfo.ResponseText       := 'Switching Protocols';
      AResponseInfo.CloseConnection    := False;
      //Connection: Upgrade
      AResponseInfo.Connection         := 'Upgrade';
      //Upgrade: websocket
      AResponseInfo.CustomHeaders.Values['Upgrade'] := 'websocket';

      //Sec-WebSocket-Accept: s3pPLMBiTxaQ9kYGzzhZRbK+xOo=
      sValue := svk +                     //... "minus any leading and trailing whitespace"
                '258EAFA5-E914-47DA-95CA-C5AB0DC85B11';          //special GUID
      sValue := TIdEncoderMIME.EncodeBytes(                      //Base64
                           FHash.HashString(sValue) );           //SHA1
      //sValue := string(FHash.CalcString(AnsiString(sValue)));  //SHA1 + Base64
      AResponseInfo.CustomHeaders.Values['Sec-WebSocket-Accept'] := sValue;

      //send same protocol back?
     AResponseInfo.WriteHeader;
end;
其中引用单元uses
IdCoderMIME,IdHashSHA;。采用xe7编译。

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值