Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>You can try to define your own TJSONString type and escape json strings there. E.g.:</p> <pre><code>uses DBXJSON; type TSvJsonString = class(TJSONString) private function EscapeValue(const AValue: string): string; public constructor Create(const AValue: string); overload; end; { TSvJsonString } constructor TSvJsonString.Create(const AValue: string); begin inherited Create(EscapeValue(AValue)); end; function TSvJsonString.EscapeValue(const AValue: string): string; procedure AddChars(const AChars: string; var Dest: string; var AIndex: Integer); inline; begin System.Insert(AChars, Dest, AIndex); System.Delete(Dest, AIndex + 2, 1); Inc(AIndex, 2); end; procedure AddUnicodeChars(const AChars: string; var Dest: string; var AIndex: Integer); inline; begin System.Insert(AChars, Dest, AIndex); System.Delete(Dest, AIndex + 6, 1); Inc(AIndex, 6); end; var i, ix: Integer; AChar: Char; begin Result := AValue; ix := 1; for i := 1 to System.Length(AValue) do begin AChar := AValue[i]; case AChar of '/', '\', '"': begin System.Insert('\', Result, ix); Inc(ix, 2); end; #8: //backspace \b begin AddChars('\b', Result, ix); end; #9: begin AddChars('\t', Result, ix); end; #10: begin AddChars('\n', Result, ix); end; #12: begin AddChars('\f', Result, ix); end; #13: begin AddChars('\r', Result, ix); end; #0 .. #7, #11, #14 .. #31: begin AddUnicodeChars('\u' + IntToHex(Word(AChar), 4), Result, ix); end else begin if Word(AChar) &gt; 127 then begin AddUnicodeChars('\u' + IntToHex(Word(AChar), 4), Result, ix); end else begin Inc(ix); end; end; end; end; end; </code></pre> <p>Usage example:</p> <pre><code>procedure Test; var LText, LEscapedText: string; LJsonString: TSvJsonString; LJsonPair: TJsonPair; LJsonObject: TJsonObject; begin LText := 'c:\path\name' + #13 + #10 + 'Next Line'; LJsonString := TSvJsonString.Create(LText); LJsonPair := TJsonPair.Create('MyString', LJsonString); LJsonObject := TJsonObject.Create(LJsonPair); try LEscapedText := LJsonObject.ToString; //LEscapedText is: c:\\path\\name\r\nNext Line finally LJsonObject.Free; end; end; </code></pre> <p>And this is how parsing should be done:</p> <pre><code>//AText := '{"MyString":"c:\\path\\name\r\nNext Line"}'; function Parse(const AText: string): string; var obj: TJSONValue; begin obj := TJSONObject.ParseJSONValue(AText); try Result := obj.ToString; //Result := {"MyString":"c:\path\name //Next Line"} finally obj.Free; end; end; </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POHow do I convert a string to and from JSON with escaped/special characters using DBXJSON?
      singulars
      1. PTQuestion
    1. PTAnswer
    1. USLinas
    1. USLinas
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POHow do I convert a string to and from JSON with escaped/special characters using DBXJSON?
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTAcceptedByOriginator
    3. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    1. COThanks @Linas, but I'm able to do the escaping myself as per my sample code. The other problem is that TJsonObject doesn't seem to be able to parse the JSON string correctly when it contains escaped strings. I'm hoping that it's still me that's doing something wrong. :)
      singulars
      1. PO
      1. USDoug
    2. CO@Doug Just tested with Delphi XE and everything works as expected. You are probably parsing json string in a wrong way. See my answer edit how it should be done.
      singulars
      1. PO
      1. USLinas
    3. COThanks @Linas. After examining my code in more detail, I found that my escape routine was handling the double quote (\"). The problem is that the TJSONString already handles this case, and ended up adding an extra escape (\\"), which caused the parsing to fail. After removing this case, everything worked fine. I've updated my example to fix this.
      singulars
      1. PO
      1. USDoug
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload