program RealThinClient;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  rtcTypes,
  rtcSystem,
  rtcInfo,
  rtcConn,
  rtcDataSrv,
  rtcHttpSrv;

type
  THttpServer = class(TRtcHttpServer)
  protected
    procedure DoCheckRequest(Sender: TRtcConnection);
    procedure DoReceived(Sender: TRtcConnection);
  end;

procedure THttpServer.DoCheckRequest(Sender: TRtcConnection);
begin
  Sender.Accept;
end;

procedure THttpServer.DoReceived(Sender: TRtcConnection);
begin
  if (Request.Complete) then
  begin
    Response.ContentType := 'text/plain';
    Write('OK');
  end;
end;


var
  HttpServer: THttpServer;
  DataProvider: TRtcDataProvider;

begin
  HttpServer := THttpServer.Create(nil);
  try
    DataProvider := TRtcDataProvider.Create(HttpServer);
    DataProvider.Server := HttpServer;
    DataProvider.OnCheckRequest := HttpServer.DoCheckRequest;
    DataProvider.OnDataReceived := HttpServer.DoReceived;

    HttpServer.ServerAddr := 'localhost';
    HttpServer.ServerPort := '1234';
    HttpServer.ServerIPV := rtc_IPVDefault;
    HttpServer.MultiThreaded := True;

    HttpServer.Listen;

    while (True) do
    begin
      Sleep(1000);
    end;

  finally
    HttpServer.Free;
  end;

end.

procedure THttpServer.DoReceived(Sender: TRtcConnection);
begin
  if (Request.Complete) then
  begin
    Response.ContentType := 'text/plain';
    Write('OK');
  end;
end;

TRtcHttpServer = class(TRtcDataServer)
THttpServer = class(TRtcHttpServer)