Comments

• 

  CESAR G. XMAPAS Tuesday, 9 May 2017

  The problem is that i can't get data on the client side. (RESTRespLog.contentlength = 0 , RESTRespLog.ContentEncoding='gzip')
• 

  CESAR G. XMAPAS Tuesday, 9 May 2017

  Hello. This is what i've been looking for so long, but here's the question:
  I have a webbroker server with the apis for my client, everything go ok, but i'm trying to compress my jsonarray data from the server to be used on my client (using the same components as in your example) but i can't get it work fine. So i leave my code from the server side for your help please:
  
  procedure TWModMain.LoginGet(Request: TWebRequest; Response: TWebResponse);
  var
  a: TJSONArray; //array de json
  o: TJSONObject; //objects del json array
  MemStr, gZIPStream: TMemoryStream; // for gzip
  begin
  //Response.Content := ' {Test OK} ' ;
  
  // Load query parameters.
  qry.SQL.clear;
  if (Request.QueryFields.values['_IdUser'] '') then
  begin
  qry.SQL.Text := 'SELECT a.* FROM usuarios a ' +
  ' WHERE a.id_usuario = "' + Request.QueryFields.values['_IdUser'] + '"';
  end
  else qry.SQL.Text := 'SELECT a.* FROM usuarios a ';
  
  
  // Put results in a JSON object...
  FDConnection1.Connected:=True;
  qry.Active := true;
  if qry.Active then
  begin
  if qry.RecordCount>0 then
  begin
  a := TJSONArray.Create;
  try
  qry.First;
  while (not qry.Eof) do
  begin
  o := TJSONObject.Create;
  o.AddPair('_IdUser',TJSONString.Create( qry.FieldByName('id_usuario').AsString ));
  o.AddPair('_Password',qry.FieldByName('Password').AsString );
  o.AddPair('_Name',qry.FieldByName('FirstName').AsString + ' ' + qry.FieldByName('LastName').AsString );
  a.AddElement(o);
  qry.Next;
  end;
  finally
  //****** parameter from the request client side
  // compress the data and return gzip file
  if Request.QueryFields.values['_zip'] = '' then
  begin
  //Init
  MemStr:= TMemoryStream.Create;
  gZIPStream:=TMemoryStream.Create;
  try
  MemStr.Seek(0, soFromBeginning);
  //convert jsonarray to Tstream
  WriteStreamStr(MemStr, Utf8ToAnsi(a.ToString));
  //make it gzip from (http://stackoverflow.com/questions/40047200/delphi-how-to-set-twebresponse-to-contain-gzip-and-read-it-in-android-app)
  doGZIP(MemStr,gZIPStream);
  //prepare responsestream and set content encoding and type
  Response.Content := '';
  Response.ContentStream:=gZIPStream;
  Response.ContentEncoding := 'gzip';
  Response.ContentType := 'application/json';
  finally
  //clear...
  MemStr.Free;
  gZIPStream.free;
  end;
  end else
  begin
  Response.ContentType := 'application/json';
  Response.Content := Utf8ToAnsi(a.ToString); //a.ToString; //
  end;
  //close data and release vars
  a.DisposeOf;
  qry.Active := False;
  FDConnection1.Connected:=False;
  end;
  end;
  end;
  end;
• Please login first in order for you to submit comments