severin696

wb: TWebBrowser; получение ответа из браузера в приложение: procedure TMainForm.wbDidFinishLoad(ASender: TObject); var i:integer; begin // вызывается несколько раз, поэтому кэшируем if lastCommand=wb.URL then exit; lastCommand:=wb.URL; i:=wb.URL.IndexOf('#action='); if i>0 then TActionThread.Create(wb.URL.Substring(i+1)); end; // на IOS wbDidFinishLoad не срабатывает procedure TMainForm.wbShouldStartLoadWithRequest(ASender: TObject; const URL: string); {$IF DEFINED(IOS) OR DEFINED(MACOS)} var i:integer; {$ENDIF} begin {$IF DEFINED(IOS) OR DEFINED(MACOS)} if lastCommand=URL then exit; lastCommand:=URL; i:=URL.IndexOf('#action='); if i>0 then TActionThread.Create(URL.Substring(i+1)); {$ENDIF} end; запрос из приложения в браузер: {$IFDEF ANDROID} wb.EvaluateJavaScript1(s); {$ELSE} wb.EvaluateJavaScript(s); {$ENDIF} посылаем ответ из браузера: document.location.href = '#action=' + name + '&ts=' + (+new Date) + Math.random()

в конце 2019 года на версии Rio 10.3.3 я уже делал .aab так как google не принимал в публикацию apk. то есть aab появился в 10.3.3

https://htmldom.dev/drag-to-scroll/ скролл мышью работает, клики не блокируются.

не учёл static... смотри Multimedia Timer на MSDN. или вот: uses MMSystem; // подключаем Win32 multimedia API (Winapi.MMSystem) mmResult: Integer; // ID таймера procedure TimeCallBack(TimerID, Msg: word; dwUser, dw1, dw2: DWORD); stdcall; // callback функция begin form1.Timer1Timer(nil); // рисуем end; mmResult:=TimeSetEvent(20, 0, @TimeCallBack, 0, TIME_PERIODIC); // создаём таймер TimeKillEvent(mmResult); // удаляем таймер и идеально, если step не вычислять ( step:=0.02; )

static DWORD LastTick=0; //из-за неравномерного срабатывания таймера DWORD Tick; float step; Tick=GetTickCount(); if(LastTick!=0) { step=(float)(Tick-LastTick)/1000; // столько секунд прошло } else { step=(float)Timer1->Interval/1000; } LastTick=Tick; с логикой LastTick ошибок нету?