-
Постов
553 -
Зарегистрирован
-
Посещение
-
Победитель дней
35
Сообщения, опубликованные rareMax
-
-
12 часов назад, wamaco сказал:
TBar = class private FValue1: Integer; // FFoo: TFoo; public Value2: Integer; property Value3: Integer read FValue1 write FValue1; // property Foo: TFoo read FFoo write FFoo; end;
Попробуй так...
Ну на самом деле FFoo в приватной секции мне нужна.
12 часов назад, r@di0 сказал:TFoo = class(TObject)
private
[JSONMarshalled(False)]
FAge: Byte;
public
FName : string;
FSurname : string;
end;Отлично, то что нужно
-
Как убрать поле класса из сериализации через Rest.Json?
Вот как я пробую избавиться от поля Foo:
program Project1; {$APPTYPE CONSOLE} {$R *.res} uses REST.Json, System.JSON.Serializers, System.SysUtils; type TFoo = class private FValue1: Integer; public Value2: Integer; property Value3: Integer read FValue1 write FValue1; end; [JsonSerialize(TJsonMemberSerialization.&Public)] TBar = class private FValue1: Integer; FFoo: TFoo; public Value2: Integer; property Value3: Integer read FValue1 write FValue1; // property Foo: TFoo read FFoo write FFoo; end; procedure Test; var LBar: TBar; begin LBar := TBar.Create; try Writeln(TJson.ObjectToJsonString(LBar)); finally LBar.Free; end; end; begin try { TODO -oUser -cConsole Main : Insert code here } Test; Readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.
Но на выходе все равно есть поле Foo.
Цитата{"value1":0,"foo":null,"value2":0}
-
Пропустили символ ;
-
1 час назад, haword сказал:
А вот что реально бы меня заинтересовало, очень причем, это фреймворк, который смог бы все что ты налабал на делфи, переводить в нативный код и потом этот код можно было бы собрать уже нативными студиями. например написал прогу на делфи, делаешь сборку для андроида и тадам, появляется папка java а в ней проект для android studio, который там же собирается и работает так как ты задумывал это в делфи. или собираешь а там папка apple а там проект для XCode и все собиралось бы для ios и macos. ВОТ!! где было бы счастье
Тогда учи Яву и ХуКод
1 час назад, haword сказал:а это очередной клон который будет так же глючить как и fmx.
Клон чего?
-
Не обязательно выносить в отдельный тред этот класс. Достаточно воспользоваться асинхронными методами. Ознакомиться с ним возможно в демке от Идеры:
ЦитатаD:\Users\Public\Documents\Embarcadero\Studio\19.0\Samples\Object Pascal\RTL\HttpAsyncDownload
-
В первом варианте можно немного управлять выполнением кода.
-
Зависит от сервера. Возможно параметром передается, возможно в заголовке
-
У меня во время установки приложения через ИДЕ мобильное устройство спрашивает разрешение на это действие, и если я не соглашусь в течении нескольких(10) секунд - идет отказ и выдает ошибку как у тебя. Попробуй так же по-наблюдать за поведением мобильного устройства во время установки приложения на него. Возможно нужно дать на это разрешение и тебе?
-
Какая модель телефона?
-
Прочитайте эту статью: http://delphifmandroid.blogspot.com/2016/09/delphi-android.html
- Andrey Efimov и DMS
- 1
- 1
-
Функционал заявлен. Можно и через ДатаСурсы работать и руками(например, с помощью ORM библиотеки). Когда-то были лаги, как сейчас - не знаю
-
Цитата
А что нужно в uses добавить чтоб не подчеркивал TDialogService.MessageDialog?
FMX.Dialogs
ЦитатаНаберусь еще наглости попросить пример диалога [Да] [Нет]
procedure ShowMsgYesNo; begin { Show a multiple-button alert that triggers different code blocks according to your input } TDialogService.MessageDialog('Choose a button:', System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], System.UITypes.TMsgDlgBtn.mbYes, 0, // Use an anonymous method to make sure the acknowledgment appears as expected. procedure(const AResult: TModalResult) begin case AResult of { Detect which button was pushed and show a different message } mrYES: ShowMessage('You chose Yes'); mrNo: ShowMessage('You chose No'); end; end); end;
-
-
Сетка не плохая(но для серьезных вещей ее стремно использовать). Исходники раньше были, если нужно - могу старую версию дать. И перенеси тему в другую ветку форума(http://fire-monkey.ru/forum/8-сторонние-компоненты/)
-
Вызов этого метода происходит немного другим способом. Ознакомиться можно тут: http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/FMX.MessageAlerts_Sample
-
-
Запущен канал в мессенджере Telegram, в котором оповещается о новых темах этого форума. На данный момент могут быть некоторые сбои, будьте терпеливы
Предложения пишите тут, в комментариях.
Канал: https://t.me/FMonkeyX
-
-
-
-
48 минут назад, wamaco сказал:
С сайта скачиваю файл. Он может быть маленьким, может быть большим.
Вопрос: каким образом осуществить докачку файла?
Например, сегодня есть связь, начали скачивать файл в потоке при запуске приложения, связь оборвалась или закрыли приложение,часть файла уже скачена, при следующем запуске докачиваем файл и т.д. пока не получим весь файл.
Смотрите методы:
- THTTPClient.CheckDownloadResume();
- THTTPClient.GetRange()
ну и обратите внимание на их асинхронные аналоги
-
-
Получаем call-stack в iOS - https://blog.grijjy.com/2017/02/09/build-your-own-error-reporter-part-1-ios/
Получаем call-stack в Android - https://blog.grijjy.com/2017/02/21/build-your-own-error-reporter-part-2-android/
Библиотека для Windows(и не только call-stack): DebugEngine
-
Есть TGrid с колонкой-календарем. Можно ли получить экземпляр вызванного календаря для работы с его моделью?
Что я хочу сделать: нужно в этом всплывающем календаре зарисовать некоторые даты
Детский вопрос про область видимости переменной
в Вопросы по языку Object Pascal и RTL
Опубликовано
Вынеси эту переменную в отдельный модуль 'MyVariableUnit.pas' и добавь его во все места, где нужно обращаться к переменной