Телеграмм чат группы Delphi

А, а если все на дельфи, зачем тогда dll? Если конечно не система плагинов....ну да это не моё дело-)) Согласен, все должно быть путём, если либу не планируется потом в другом ЯП пользовать-))

источник

22:07пожаловаться #5

Kass in Delphi & Lazarus

Да упоритесь вы json :) отлайте массив и не нужен лишний парсинг

источник

22:07пожаловаться #6

Dmitry Belkevich in Delphi & Lazarus

Roman Roman

А датасет возможно как то заполнить потом из json?

в обе стороны там пара строк кода

источник

22:07пожаловаться #7

Roman Roman in Delphi & Lazarus

Александр В

Firedac в 10й и миллион строк кода во второй

источник

22:08пожаловаться #8

Roman Roman in Delphi & Lazarus

Dmitry Belkevich

в обе стороны там пара строк кода

Можно статейку плз?

источник

22:08пожаловаться #9

Dmitry Belkevich in Delphi & Lazarus

Kass

Да упоритесь вы json :) отлайте массив и не нужен лишний парсинг

ну ты код кинь array of array of string в обе стороны, посмотрим

источник

22:08пожаловаться #10

Kass in Delphi & Lazarus

Dmitry Belkevich

в обе стороны там пара строк кода

Можно пример?

источник

22:09пожаловаться #11

Dmitry Belkevich in Delphi & Lazarus

function GetDataSetAsJSON(DataSet: TDataSet): TJSONObject;
var
  f: TField;
  o: TJSOnObject;
  a: TJSONArray;
begin
  a := TJSONArray.Create;
  DataSet.Active := True;
  DataSet.First;
  while not DataSet.EOF do begin
    o := TJSOnObject.Create;
    for f in DataSet.Fields do
      o.AddPair(f.FieldName, VarToStr(f.Value));
    a.AddElement(o);
    DataSet.Next;
  end;
  DataSet.Active := False;
  Result := TJSONObject.Create;
  Result.AddPair(DataSet.Name, a);
end;