IdHTTPServerはwebsocketサービス側の作成を完了
1630 ワード
delphiのidhttpserverコントロールを利用してwebsocketのサービス端を作ります.主に握手の過程で、後の通信はまだ実現していない.再送コードを実現しました.握手コードは以下の通りです.
IdCoderMIME,IdHashSHA;.xe 7コンパイルを採用します.
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;
参照ユニットusesIdCoderMIME,IdHashSHA;.xe 7コンパイルを採用します.