Лидеры

А если решитесь писать свой, то присмотретьсь к App Tethering

Ну, из всех вопросов - важен только первый. Остальное уже есть неоднократно. Пропиарю себя: https://github.com/kami-soft/SimpleTCPComponents

Может вам не писать тогда свой мессенджер а использовать что то готовое? Я в свей конторе использую http://www.commfort.com/ru/

вот там и посмотреть. делаем edit custom style, находим там элемени ANI. у него есть свойство AnimationBitmap. Двойной клик. Там есть кнопки Load и Save

Как уже выше сказали нужно установить Билд конфигурацию - Release, и конфигурацию платформы - Application Store. Assertions не влияет, его можно оставить в любом состоянии, хотя среда по умолчанию его включает для релизной конфигурации: Assertions - Enables or disables the generation of code for assertions in a Delphi source file. The option is enabled (equivalent to {$C+}) by default. Since assertions are not usually used at run time in shipping versions of a product, compiler directives that disable the generation of code for assertions are provided. Deselect this option to disable assertions. Ошибка возникает когда в конфигурации платформы выставить "Development". На картинке выделено жирным

Здравствуйте ребята. Может кто подскажет как реализовать в своём приложении посылку сообщений по локальной сети с ПК с OS Win XP на ПК с OS Win 7 средствами Win или по другому. С Уважением. Олег.

Друзья, нашел тут интересную статью, где тестируются разные jSON парсеры. Ссылка: http://www.webdelphi.ru/2016/10/ishhem-samyj-bystryj-parser-json-v-delphi/ Автор: Владислав Баженов Описание (26/10/2016):

В описании русским по экрану написано: " Классы-обертки над TClient|TServerSocket, работоспособны Delphi 2009 и выше "

да, сделайте стиль по аналогии с родным. N'ое кол-во кадров/картинок которые будут меняться по кругу

На билдере проблема в том что GSMService не инициализируется, хотя реализация идёт Делфовая (сгенерированный пасник для плюсов) в чем причина так и не выяснил, настройка проекта полностью совпадает с аналогичным на делфи

обратиться к Bitmap TImage.Bitmap.Width/Height

В GetHTTP отправляю токен и id на свой сервер procedure TFormMain.GetHTTP(ACommand : String; AIndex : Integer; AImageURL : String); Var FHTTPRec : THTTPRec; AFileName, APath : String; begin .... FHTTPRec.Query:=APIURL+'?cmd='+ACommand+'&region='+Setting.RegionCode+ '&DeviceID='+HDevicePushParams.DeviceID+'&DeviceToken='+HDevicePushParams.DeviceToken; ....... FQueueRequest.PushItem(FHTTPRec); end;

TimeEdit1.OpenPicker ?

Вот мой код из работающего проекта, может поможет разобраться interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Generics.Collections, System.JSON, FMX.TextLayout, System.IOUtils, FMX.Surfaces, System.Math, System.Net.URLClient, // SyncObjs, {$IFDEF ANDROID} FMX.Platform.Android, System.PushNotification, uVedroProcess, FMX.VirtualKeyboard, FMX.Platform, androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.JavaTypes, Androidapi.JNI.Net, Androidapi.Helpers, {$ENDIF ANDROID} UnitGetHttpThread, UnitSettingPage, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Advertising, FMX.Objects, UnitTypesAndFunction, FMX.Notification, FMX.Layouts, FMX.TabControl, FMX.ListView.Types, FMX.ListView, FGX.ApplicationEvents, FMX.Ani, FMX.ExtCtrls, FMX.ListBox, FMX.MultiView, FMX.Edit; ..... implementation {$IFDEF ANDROID} uses FMX.PushNotification.Android; Var APushService : TPushService; AServiceConnection : TPushServiceConnection; {$ENDIF ANDROID} {$R *.fmx} procedure TFormMain.FormCreate(Sender: TObject); begin ........ PushServiceInit; ........ end; procedure TFormMain.PushServiceInit; begin // if Debug then // Exit; try APushService:=TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.GCM); APushService.AppProps[TPushService.TAppPropNames.GCMAppID]:='568*********'; AServiceConnection:=TPushServiceConnection.Create(APushService); AServiceConnection.Active:=True; AServiceConnection.OnChange:=ServiceConnectionOnChange; AServiceConnection.OnReceiveNotification:=ServiceConnectionOnReceiveNotification; HDevicePushParams.DeviceID:=APushService.DeviceIDValue[TPushService.TDeviceIDNames.DeviceID]; HDevicePushParams.DeviceToken:=APushService.DeviceTokenValue[TPushService.TDeviceTokenNames.DeviceToken]; finally NotificationCenter:=TNotificationCenter.Create(Self); NotificationCenter.OnReceiveLocalNotification:=NotificationCenterOnReceiveLocalNotification; end; end; procedure TFormMain.ServiceConnectionOnChange(Sender: TObject; AChange: TPushService.TChanges); begin FAppStage:='ServiceConnectionOnChange start'; if AChange=[TPushService.TChange.DeviceToken] Then GetHTTP(CommandActions, -1, ''); FAppStage:='ServiceConnectionOnChange stop'; end; procedure TFormMain.ServiceConnectionOnReceiveNotification(Sender: TObject; const ANotification: TPushServiceNotification); Var JSONValue : TJSONValue; begin if ANotification.Json.TryGetValue('message',JSONValue) Then if Not JSONValue.Value.IsEmpty then begin // GetHTTP(CommandActions, -1, ''); // Memo.Lines.Add(JSONValue.Value); // ShowMessage(JSONValue.Value); end end; procedure TFormMain.NotificationCenterOnReceiveLocalNotification(Sender: TObject; ANotification: TNotification); begin // ShowMessage(ANotification.AlertBody); end; Еще забыл объявление: type TFormMain = class(TForm) ......... private { Private declarations } ...... HDevicePushParams : TDevicePushParams; .......

А если нужно будет указать длительность 24 или 25 часов? Сделай обычный TLabel и рядом кнопки + - которые будут прибавлять убавлять единицу, или можно использовать TSpinBox

Могу ошибаться, но по моему это