RtcHttpServer 服务端应用

TRtcHttpServer 与 TRtcDataProvider

RtcHttpServer作为服务端进行端口监听，
RtcDataProvider 设置 server 为响应的RtcHttpServer，来处理接收到的数据


procedure TForm1.RtcDPCheckRequest(Sender: TRtcConnection);
begin
  (Sender as TRtcDataServer).Accept;
end;

procedure TForm1.RtcDPDataReceived(Sender: TRtcConnection);
var
  rtcConnection: TRtcDataServer absolute Sender;
  requestBody, responseBody: string;
begin
  if not rtcConnection.Request.Complete then
    Exit;

  if rtcConnection.Request.Method = 'POST' then  //客户端Http发送方式
    requestBody := rtcConnection.Read
  else
    requestBody := rtcConnection.Request.Query.Text;

  responseBody := 'Success';//答复内容

  rtcConnection.Request.Close := True;
  rtcConnection.Write(responseBody);
end;