Есть в D11 стандартный перевод TDataSet в JSON? Ну и

По простенькому получилось через Bridge ) var Bridge_ := TDatasetToJSONBridge.Create; Bridge_.Dataset := q; AResponseInfo.FreeContentStream := True; AResponseInfo.ContentStream := TStringStream.Create(Bridge_.Produce.ToString); AResponseInfo.ContentLength := AResponseInfo.ContentStream.Size; AResponseInfo.ResponseNo := 200; AResponseInfo.ContentType := 'application/json';

0

2 месяца назад

Hemul GM

Катерина Свиридова
По простенькому получилось через Bridge ) va...

Если что, вот https://blogs.embarcadero.com/use-trestdatasetadapter-with-arbitrary-json/amp/

0

2 месяца назад

Alexey Gavrilov

Смотри в контехте DataSnap и FireDac.

0

2 месяца назад

Fasday

Hemul GM
Если что, вот https://blogs.embarcadero.com/use-tr...

Мне этот вариант не понравился потому что надо иметь Delphi Enterprise или выше. так как TAdapterJSONValue находится в EMS ну или самому реализовывать интерфейс IRESTResponseJSON

0

2 месяца назад

Hemul GM

Fasday
Мне этот вариант не понравился потому что надо име...

Разве? По-моему он и в Про есть

0

2 месяца назад

Fasday

Hemul GM
Разве? По-моему он и в Про есть

Проверил на 11.2 pro юнит RSConsole.Types.pas в поставку не входит

0

2 месяца назад