Перейти к содержанию
  • Регистрация

Slym

Пользователи
  • Публикаций

    37
  • Зарегистрирован

  • Посещение

  • Победитель дней

    5

Весь контент Slym

  1. У меня IPhone6 вдулся от постоянного висения на шнурке... Теперь правило вечером отключить... но нет! нет отладки - нет зарядки и садится в ноль! Теперь правило в понедельник всегда на зарядку...
  2. а so бинари под правельный cpu? so - это нативная либа собранная под конкретный cpu, а не байткод докомпилируемый на месте
  3. А руками uses FireDAC.Phys.Oracle; TFDPhysOracleDriverLink.Create(form); не? все мышкой привыкли...
  4. Не делайте слепое приведение типов... var JObj:TJSONObject; begin JObj:=TJSONObject(TJSONObject.ParseJSONValue('0')); try try if assigned(JObj) then JObj.AddPair('Access','violation'); except ShowMessage('Surprise MF!: '+JObj.ClassName); end; finally JObj.Free; end; end; ParseJSONValue возвращает TJSONValue, и необходима или проверка типа или использование только в рамках TJSONValue чего в большинстве случаев вполне достаточно.
  5. procedure TForm2.Button1Click(Sender: TObject); var Iters:integer; begin Iters:=100000000; TThread.CreateAnonymousThread( procedure var i:integer; a:real; begin for i := 0 to Iters do begin a:=i/3; if i mod 1000000 = 0 then begin TThread.Queue(nil, procedure begin ProgressBar1.Value:=ProgressBar1.Value+1; end); end; end; end).Start; end; и не надо никаких доп классов... еще есть TTask... тоже полезно
  6. PerspEffect1.TopLeft := PerspEffect1.TopLeft+ TPointF.Create(5,0);
  7. Procedure TServerConnectionTH.RecieveData(); // сюда приходя данные со сканера //Data - это данные в виже TBytes //str - строка со считанным штрихкодом var Intent: JIntent; str:String; begin str:=TEncoding.UTF8.GetString(Data); Form1.DisplayR.Lines.Add(Str); Form1.DisplayR.GoToTextEnd; Intent := TJIntent.Create; Intent.setAction(StringToJString('com.google.android.c2dm.intent.RECEIVE')); Intent.putExtra(StringToJString('text'),StringToJString('1')); Intent.putExtra(StringToJString('title'),StringToJString('1C')); Intent.putExtra(StringToJString('data'),StringToJString(str)); TAndroidHelper.Context.sendBroadcast(Intent); end;
  8. основное решение: оставить основной поток для gui... все что тормозит основной поток должно из него уйти в доп потоки или таски - и там "зависайте" сколько угодно. асинхронное выполнение с калбеками...
  9. procedure TForm1.LoadImage(const AItem: TListViewItem; const AListItemImage : TListItemImage); Var AAsyncResult : IAsyncResult; begin if Not Assigned(AItem) or Not Assigned(AListItemImage) then exit; if AItem.Data['ImageState'].AsInteger <> ListViewItemImageEmpy then exit; if AItem.Data['ImageURL'].AsString.IsEmpty then exit; AItem.Data['ImageState']:=ListViewItemImageLoading; if not assigned(FHTTPClient) then exit; TMonitor.Enter(listview1); try AItem.TagObject:= FHTTPClient.BeginGet( procedure (const ASyncResult: IAsyncResult) Var AHTTPResponse : IHTTPResponse; begin if assigned(AItem.TagObject) then begin TMonitor.Enter(listview1); try AItem.TagObject:=nil; finally TMonitor.exit(listview1); end; end; if ASyncResult.IsCancelled then exit; AHTTPResponse:=THTTPClient.EndAsyncHTTP(ASyncResult); if AHTTPResponse.StatusCode <> 200 then exit; TThread.Queue(nil, procedure begin if Not Assigned(AItem) or Not Assigned(AListItemImage) then exit; AListItemImage.BeginUpdate; AListItemImage.Bitmap:=TBitmap.Create; AListItemImage.Bitmap.LoadFromStream(AHTTPResponse.ContentStream); AListItemImage.EndUpdate; AItem.Data['ImageState']:=ListViewItemImageLoaded; end); end, AItem.Data['ImageURL'].AsString) as TBaseAsyncResult; finally TMonitor.Exit(listview1); end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var i:integer; IResult:IAsyncResult; begin TMonitor.Enter(listview1); try for i:=0 to listview1.Items.Count-1 do if assigned(listview1.Items[i].TagObject) then (listview1.Items[i].TagObject as TBaseAsyncResult).Cancel; finally TMonitor.Exit(listview1); end; TMonitor.Enter(listview1); try for i:=0 to listview1.Items.Count-1 do if assigned(listview1.Items[i].TagObject) then begin IResult:=TBaseAsyncResult(listview1.Items[i].TagObject) as IAsyncResult; TMonitor.Exit(listview1); try THTTPClient.EndAsyncHTTP(IResult); except end; TMonitor.Enter(listview1); end; finally TMonitor.Exit(listview1); end; end;
  10. Логика асинхронности принимает на вход анонимную процедуру для обработки результата, анонимная процедура захватывает переменные в зоне своего определения, а там хоть итем, хоть индекс, хоть блэкджек с простихоспаде чем попало...
  11. умрет потому что используется TThread.CreateAnonymousThread, 500 потоков это не шутка... переделать на TTask. TTask плодит ограниченное кол-во потоков. или вовсе отказаться от собственных потоков и отдать на откуп асинхронному запросу THTTPClient 1 экземпляр THTTPClient может одновременно обслуживать несколько асинхронных запросов (4-8) HTTPClient.BeginGet
  12. https://docs.microsoft.com/en-us/windows/desktop/api/wingdi/nf-wingdi-addfontresourcea Minimum supported client Windows 2000 Professional [desktop apps only] Minimum supported server Windows 2000 Server [desktop apps only]
  13. Боролись как-то с артефактами отображения (мы их прозвали "крокодилами" из-за сходства на первом скриншоте с этим багом)... Могли отображаться также левые спрайты, или обрезки скролившихся контролов... Коллега выяснил что не надо трогать Form.Fill, из-за переключения в недрах FMX нативной и не нативной канвы: если нужен фон - брось Rect по контенту и в нем делай заливку...
  14. 1. для упрощения кода работы с JSON давно можно использовать сложные пути ABase64:=JSON.GetValue<string>('body.nextStep.pdf'); 2. ну нельзя так: AStreamSource.WriteBuffer(Pointer(ABase64)^, Length(ABase64) * 2); так безопасней AStreamSource:=TBytesStream.Create(TEncoding.UTF8.GetBytes(ABase64)); 3. И сохранять лучше сразу в TFileStream - меньше расход памяти 4. не забываем finally Free (их выше нету)... хоть оно и может AUTOREFCOUNT (а может и нет!), но правила хорошего тона никто не отменял
  15. FStylesData в strict private - имхо никак не клонировать
  16. Проблема в том что есть 2 TScrollContent, один в FMX.Layouts, другой в FMX.ScrollBox... поскольку пользуете TPresentedScrollBox, то разворачивайте неймспейс вручную и пишите if (Parent is FMX.ScrollBox.TScrollContent) then
  17. я на подсознательном уровне понимаю что анимашки вшитые в TButtonStyleTextObject - в моем проекте это лишний CPU и mem... но все встроенные стили активно ими пользуются... и трудно мотивировать что "не как у всех" будет быстрее... тут мне говорили что вырезать из TBitmapLinks чуть ли не быстрее чем менять Fill.Color в ColorAnimation - но я то не дурак, чтоб на слово верить, да и чушь это полная чтоб Bitmap выиграл у Fill.Color попробую тест накидать...
  18. Мда... один я беспокоюсь за производительность кода... еще вброс: то быстрее и менее накладно по ресурсам на мобильной платформе (при условии статичности цвета шрифта, все цвета одинаковы, и без использования Shadow): TButtonStyleTextObject или TLabel / TText
  19. Как реализовать "притягивание" скрола, т.е. скрол останавливается не где угодно, а в определенных местах, например по середине контрола находящегося в середине скрола по типу TScrollBox в стиле 'барабана' из iOS Другими словами чтоб контрол центрировался. Как то добавлять нужный Target в AniCalculations.OnStart или как то дотягивать в AniCalculations.OnStop?
  20. на мобильной платформе отношение к ресурсам строже... когда 1 кнопка - то можно терпеть, а когда десятки то начинаешь задумываться - а не уменьшится потребление памяти если заменить контрол на что-нибудь попроще а не шустрее будет скролитяся если убрать картинки (TBitmapLinks) и делать заливку цветом (Rectangle)
×
×
  • Создать...