Delphi 2007 - Base64 JSON (uLKJSON)

[boller78]

Hallo Zusammen,

Arbeite mit D2007 und der Bibliothek uLKJson

Generieren der PDF in ein BASE64 String alles wunderbar.

Jetzt kommt es

wenn der BASE64 String nur an das JSON Object übergeben wird und dann später das JSONObject seine Methode generateTEXT aufruft, dann wird auch auf einmal der BASE64 String verändert.(Das hätte ich niemals erwartet)

Manchmal ist dann doch besser einfach alles als String aufzubearbeiten XML,JSON und Co. bevor hier die 3thParty Komponenten alles kaputt machen :)

Kennt sich jemand evtl. mit diesem Problem Base64 und uLkJSON.pas(06.11.2009) aus?

TlkJSON = class
public
class function ParseText(const txt: string): TlkJSONbase;
class function GenerateText(obj: TlkJSONbase): string;
end;


js := TlkJSONstring.Create;
{$ifdef USE_D2009}
js.FValue := UTF8ToString(ws);
{$else}
js.FValue := UTF8Decode(ws);
{$endif}
add_child(o, TlkJSONbase(js));
ridx := idx;
end;


JSON Zeichenkette ansonsten generiert und via TStringlist als JSON Datei gespeichert. Funktioniert wenigstens ;)

Danke Euch.