RTC Forums

procedure TMyServer.DataProv_CheckRequest(Sender: TRtcConnection);
begin
  // Check Request headers and "Accept" all Requests
  // we want to handle with our Data Provider ...
  with TRtcDataServer(Sender) do
    if (Request.Method='POST') and  // we only want "POST" requests
       (Request.ContentLength<>0) then // ... with content body
        if (Request.URI='/json') then
          Accept; // Accept the Request
end;

procedure TMyServer.DataProv_DataReceived(Sender: TRtcConnection);
var
  t:TRtcRecord;
  rc,info: string;
  obj:TRtcValue;
begin
  with TRtcDataServer(Sender) do
  // We will start processing the request only if
  // we have received the complee request content body ...
  if Request.Complete then
  if Request.URI='/json' then
  begin
    t:=TRtcRecord.Create;
    try
      try
        obj:=TRtcValueResult.FromJSON(TRtcDataServer(Sender).Read);
        //code input balance to database here
        rc := InsertBalance(obj.asRecord.asString['accno'],obj.asRecord.asFloat['deposit']);
        info := GetInfo(rc);
        t.asText['ip']:=PeerAddr;
        t.asDateTime['trxtime']:=Now;
        t.asText['rc'] := rc;
        t.asText['info'] := info;
        t.asText['accno'] := obj.asRecord.asString['accno'];
        t.asFloat['deposit'] := obj.asRecord.asFloat['deposit'];
        if Request.URI='/json' then
        begin
          // Serialize to "JSON" ...
          Response.ContentType:='application/json';
          Write(t.toJSON);
        end;
      except
        on E: Exception do
          Writeln(E.ClassName, ': ', E.Message);
      end;
    finally
      t.Free;
      obj.Free;
    end;
  end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
With RtcDataRequest1 do
  begin
    Client:=RtcHttpClient1;
    Request.Host:='192.168.12.6';
    Request.Method:='POST';
    Request.FileName:='/json';
    Request['Content-Type']:='application/json';
    With Request.Info.newRecord('data') do
    begin
      asText['accno'] := edtacc.text;
      asFloat['deposit'] := strtofloat(edtdep.tex);
    end;
    Post;
  end;
end;

procedure TForm1.RtcDataRequest1BeginRequest(Sender: TRtcConnection);
begin
  With TRtcDataClient(Sender) do
  Write(Request.Info.asJSON['data']);
end;

procedure TForm1.RtcDataRequest1DataReceived(Sender: TRtcConnection);
begin
  With TrtcDataClient(Sender) do
   If Response.Done then
     Memo1.Text:=Read;
end;