IJsonDocument.WriteToFile

WriteToFile(FileName: String; [Options: JsonFormatOptions =0]);

WriteToFile(FileName: String; Options: Prognoz.Platform.Interop.ForeSystem.JsonFormatOptions);

Sub UserProc;
Var
    NewJSON: IJsonObjectBuilder;
    Doc: IJsonDocument;
Begin
    NewJSON := New JsonObjectBuilder.Create;
    NewJSON.AddBoolean("Bool", True);
    NewJSON.AddDouble("Double", 3.14);
    NewJSON.AddInteger("Integer", 100);
    NewJSON.AddNull("Null");
    NewJSON.AddString("String", "Test JSON");
    NewJSON.AddBoolean("Bool", True);
    // Сохранение в файл
    Doc := New JsonDocument.Create;
    Doc.Root := NewJSON.Build;
    Doc.WriteToFile("d:\Work\Json\testfile.json");
End Sub UserProc;

Imports Prognoz.Platform.Interop.ForeSystem;

Public Shared Sub Main(Params: StartParams);
Var
    NewJSON: IJsonObjectBuilder = New JsonObjectBuilderClass();
    Doc: IJsonDocument = New JsonDocumentClass();
Begin
    NewJSON.AddBoolean("Bool", True);
    NewJSON.AddDouble("Double", 3.14);
    NewJSON.AddInteger("Integer", 100);
    NewJSON.AddNull("Null");
    NewJSON.AddString("String", "Test JSON");
    NewJSON.AddBoolean("Bool", True);
    // Сохранение в файл
    Doc.Root := NewJSON.Build();
    Doc.WriteToFile("d:\Work\Json\testfile.json", JsonFormatOptions.jfoDefault);
End Sub;