RTC Forums

Why do I not get 'OK' but "ERR_EMPTY_RESPONSE" in Chrome?

procedure TWork.RtcDataProvider1DataReceived(Sender: TRtcConnection);
var
  ResultText, StatusText: rtcString;
begin
  with Sender as TRtcDataServer do
  begin
    if Request.Complete then
    begin
      Write('OK');
      TransactionID_str := Request.Query['transactionid'];
      if DoDebug then
        Memo1.Text := Memo1.Text + '  received: ' + Request.Params.Text;
      Memo1.Lines.Add('ID=' + TransactionID_str);
      try
        IDealRecNr := StrToInt(TransactionID_str);
      except
        on E: Exception do
          if DoDebug then
            Memo1.Lines.Add('Fout bij vertalen recordnummer van parameter : ' + E.Message);
      end;

      with RtcDataRequest1 do
      begin
        Request.FileName := '/' + TransactionID_str;
        CoInitialize(nil);
        // make XML-file:
        Exportfilenaam := 'IDeal_' + IntToStr(IDealRecNr) + '.XML';
        XMLDoc1.Active := false;
        XMLDoc1.Xml.Text := '';
        XMLDoc1.Active := true;
        XMLDoc1.Encoding := 'UTF-8';
        XMLDoc1.AddChild('Pricat', 'http://www.ean.nl');
        XMLDoc1.DocumentElement := XMLDoc1.CreateNode('status');
        XMLDoc1.DocumentElement.Attributes['ua'] := 'RTC Library)';

        // merchant
        iNode_Merchant := XMLDoc1.DocumentElement.AddChild('merchant');
        iChild := iNode_Merchant.AddChild('account');
        iChild.Text := DM1.nxT_algpar.FieldByName('IDeal_account').AsString;
        iChild := iNode_Merchant.AddChild('site_id');
        iChild.Text := DM1.nxT_algpar.FieldByName('IDeal_site_id').AsString;
        iChild := iNode_Merchant.AddChild('site_secure_code');
        iChild.Text := DM1.nxT_algpar.FieldByName('IDeal_site_secure_id').AsString;

        // transaction
        iNodeTransaction := XMLDoc1.DocumentElement.AddChild('transaction');
        iChild := iNodeTransaction.AddChild('id');
        iChild.Text := IntToStr(IDealRecNr);
        // bestand maken:
        XMLDoc1.SaveToXML(XML_string);
        if DoDebug then
        begin
          XMLDoc1.SaveToFile(DM1.XML_Dir + Exportfilenaam);
          Memo1.Lines.Add('URL that is sent to MSP:');
          Memo1.Lines.Add(XML_string);
        end;

        // now get the information
        if DM1.TestString = '1' then
        begin
          RtcHttpClient1.ServerAddr := DM1.SiteURL; // 'api.MultiSafepay.com'
          RtcHttpClient1.ServerPort := IntToStr(DM1.SitePort);
          RtcDataRequest1.Request.FileName := '/ewx/';
          RtcDataRequest1.Request.Host := DM1.SiteURL; // 'api.MultiSafepay.com'
          RtcDataRequest1.Write(XML_string);
          RtcDataRequest1.Request.ContentLength := Length(XML_string);
        end;

        // if DM1.TestString = '2' then
        // begin
        // RtcHttpClient1.ServerAddr := 'http://localhost:22333/ewx/';
        // RtcHttpClient1.ServerPort := '80'; // IntToStr(443); // 443
        // // RtcDataRequest1.Request.FileName := '/ewx';
        // RtcDataRequest1.Request.Clear;
        // RtcDataRequest1.Request.Host := 'http://localhost:22333/ewx/';
        // RtcDataRequest1.Write(XML_string);
        // RtcDataRequest1.Request.ContentLength := Length(XML_string);
        // end;

        try
          // Post the request with 'POST' :
          RtcDataRequest1.PostMethod('POST');
          WaitForCompletion;
        except
          on E: Exception do
            if DoDebug then
              Memo1.Lines.Add('Error with getting information by MSP : ' + E.Message)
        end;
        XMLDoc1.Active := false;
        XMLDoc2.Active := false;
        if RecvContent <> '' then
        begin
          XMLDoc2.LoadFromXML(RecvContent); // Response is an XML file
          XMLDoc2.Active := true;
          // now get the information from XMLdoc2:
          ResultText := XMLDoc2.DocumentElement.Attributes['result'];
          iNodeEwallet := XMLDoc2.DocumentElement.ChildNodes.FindNode('ewallet');
          iNodeStatus := iNodeEwallet.ChildNodes.FindNode('status');
          if assigned(iNodeStatus) then
            StatusText := iNodeStatus.Text;
          // if the received message is OK then complete the database:
          if DM1.nxT_IDealRecords.FindKey([IDealRecNr]) then
          begin
            if Uppercase(ResultText) = 'OK' then
            begin
              DM1.nxT_IDealRecords.Edit;
              DM1.nxT_IDealRecords.FieldByName('StatusOntvangen').AsBoolean := true;
              DM1.nxT_IDealRecords.FieldByName('Status').AsString := StatusText;
              if Uppercase(StatusText) = 'COMPLETED' then
                DM1.nxT_IDealRecords.FieldByName('BetalingOK').AsBoolean := true;
              DM1.nxT_IDealRecords.Post;
            end
            else
            begin
              DM1.nxT_IDealRecords.Edit;
              DM1.nxT_IDealRecords.FieldByName('StatusOntvangen').AsBoolean := false;
              DM1.nxT_IDealRecords.FieldByName('Status').AsString := StatusText;
              DM1.nxT_IDealRecords.FieldByName('Foutkode').AsString := ResultText;
              DM1.nxT_IDealRecords.Post;
            end;
          end
          else if DoDebug then
            Memo1.Lines.Add('Kan IDealrecord niet vinden');
          // bewaren als laatste zodat eerst de database wordt bijgewerkt
          if DoDebug then
          begin
            DatumTijdString := U_Henk_Extra_Procs_Funcs.RemoveIllegalChars(DateTimeToStr(now));
            XMLDoc2.SaveToFile(DM1.XML_Dir + DatumTijdString + '_retour_xml_van_MSP' + IntToStr(IDealRecNr) + '.xml');
          end;
        end
        else // if RecvContent <> ''
          Memo1.Lines.Add('Ontvangen van MSP: ' + RecvContent);
        CoUninitialize;
      end;
    end;
  end;
end;

Henk van den Boogaard

https://www.google.com/search?q=chrome+err_empty_response

Btw ... some Browsers require that you specify the Content-Type in the HTTP response headers, or they won't show it (or display it incorrectly). For example, when sending back a response containing HTML, you should set the Content-Type header to 'text/html' ...

Sender.Response.ContentType='text/html';