A_l_ex
-
Постов
10 -
Зарегистрирован
-
Посещение
-
Победитель дней
1
Активность репутации
-
A_l_ex отреагировална gonzales в не могу скомпилить проект в delphi 11
Я разобрался, откуда вылезли эти грабли. У меня почему-то прописалось прямо в файле проекта (dproj файл), что Андроид64 использует SDK 25.2.5. После того, как я удалил эту привязку, все скомпилилось.
А вообще 26 SDK у меня нормально существует)))
-
A_l_ex отреагировална enatechno в И снова про ориентацию экрана. Запрет поворота экрана.
Задавайте свойство главной формы FormFactor.Orientations для различных представлений (View).
-
A_l_ex отреагировална Brovin Yaroslav в И снова про ориентацию экрана. Запрет поворота экрана.
В настройках проекта выведены эти опции:
Menu -> Project -> Project options Application -> Orientation -
A_l_ex отреагировална Andrew в И снова про ориентацию экрана. Запрет поворота экрана.
var ScreenService: IFMXScreenService; begin ScreenService:= TPlatformServices.Current.GetPlatformService(IFMXScreenService) as IFMXScreenService; ScreenService.SetScreenOrientation([TScreenOrientation.Landscape]); end; -
A_l_ex отреагировална umkes в И снова про ориентацию экрана. Запрет поворота экрана.
Project -> Options -> Application -> Orientation -> Enable custom orientation
-
A_l_ex отреагировална enatechno в И снова про ориентацию экрана. Запрет поворота экрана.
В файле dpoj :
begin Application.Initialize; Application.FormFactor.Orientations := [TScreenOrientation.Portrait]; Application.CreateForm(.....); Application.Run; end. -
A_l_ex получил реакцию от Ingalime в Андроид 9 и Интернет
Если кто-то когда-то столкнется с подобной проблемой, обязательно добавляйте в манифест эту строчку, она спасет Вам дни или Недели тупого бездумного кодинга, в надежде понять почему TWebBrowser не в силах отобразить фрейм(iframe в котором как оказалось потом есть обращение к HTTP). А вы сидите на Андройде 8.1 или ниже а заказчик например на 9 и выше.
-
A_l_ex получил реакцию от Ingalime в Нативные контролы
Вопрос снят. Решение нашлось:
procedure TForm1.Button1Click(Sender: TObject);
begin
CallInUIThreadAndWaitFinishing(
procedure
function BitmapToJBitmap(const ABitmap: TBitmap): JBitmap;
var LSurface: TBitmapSurface;
begin
Result := TJBitmap.JavaClass.createBitmap(ABitmap.Width, ABitmap.Height, TJBitmap_Config.JavaClass.ARGB_8888);
LSurface := TBitmapSurface.Create;
try
LSurface.Assign(ABitmap);
SurfaceToJBitmap(LSurface, Result);
finally
LSurface.Free;
end;
end;
var AStream: TMemoryStream;
ABitmap: TBitmap;
FImage: JImageView;
Container: JRelativeLayout;
LP: JRelativeLayout_LayoutParams;
begin
AStream := TMemoryStream.Create;
ABitmap := TBitmap.Create;
try
with THTTPClient.Create do begin
Get('URL до картинки', AStream);
AStream.Position := 0;
ABitmap.LoadFromStream(AStream);
Free;
end;
FImage := TJImageView.JavaClass.init(TAndroidHelper.Activity);
FImage.setLayoutParams(LP);
FImage.setImageBitmap(BitmapToJBitmap(ABitmap));
Container := TJRelativeLayout.JavaClass.init(TAndroidHelper.Context);
LP := TJRelativeLayout_LayoutParams.JavaClass.init(Round(Width * 1), Round(Height * 1));
LP.addRule(TJRelativeLayout.JavaClass.ALIGN_PARENT_TOP, TJRelativeLayout.JavaClass.TRUE);
LP.addRule(TJRelativeLayout.JavaClass.ALIGN_PARENT_BOTTOM, TJRelativeLayout.JavaClass.TRUE);
LP.addRule(TJRelativeLayout.JavaClass.ALIGN_PARENT_LEFT, TJRelativeLayout.JavaClass.TRUE);
LP.addRule(TJRelativeLayout.JavaClass.ALIGN_PARENT_RIGHT, TJRelativeLayout.JavaClass.TRUE);
Container.addView(FImage, LP);
MainActivity.setContentView(Container);
finally
AStream.Free;
ABitmap.Free;
end;
end);
end;
-
A_l_ex получил реакцию от Ingalime в Номер версии андроид
Возможно кому-то будет нужно:
C:\Users\Public\Documents\Embarcadero\Studio\(версия студии)\Samples\Object Pascal\Mobile Snippets\DeviceInfo
Хорошее решение плясать не от SDK а от OSVersion.
-
A_l_ex отреагировална slav_z в Номер версии андроид
if TOSVersion.Check(8,0) then // Версия 8 и выше