Лидеры

Кроме работ со строками может потребоваться и память выделять в DLL... Если и приложение и DLL на Delphi то лучше использовать SimpleShareMem Тогда никаких borlndmm.dll не требуется.

Для идентификации устройства мы используем IMEI для Android и некий "номер устройства" (не помню как он правильно называется) для iOS. Возможно ваш IDFV и есть этот идентификатор. С андроидом нет никаких проблем, IMEI уникален по определению. С iOS есть подводные камни но мы их преодолели.

Здравствуйте. К сожалению, есть некоторые ошибки. 1) К сожалению, компонент Align и Anchor не реагирует. 2) Распространяйте объекты в Layouta и это не работает должным образом. 3) Если размер видео небольшой, он остается черным, как на картинке. if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, FScreenService) then FScale := FScreenService.GetScreenScale else FScale := 1; procedure Load; begin {$IFDEF ANDROID} CallInUIThreadAndWaitFinishing( procedure begin { VideoView } FJVideoParams := TJViewGroup_LayoutParams.JavaClass.init(Round(Width * FScale), Round(Height * FScale)); FJVideoView := TJVideoView.JavaClass.init(TAndroidHelper.Context); FJVideoView.setLayoutParams(FJVideoParams); FJVideoView.setBackgroundColor(TJColor.JavaClass.BLACK); if Visible = True then begin Visible := False; FJVideoView.setVisibility(TJView.JavaClass.VISIBLE); end else begin FJVideoView.setVisibility(TJView.JavaClass.INVISIBLE); end; { Control } FJNativeLayout := TJNativeLayout.JavaClass.Init(TAndroidHelper.Activity, MainActivity.getWindow.getDecorView.getWindowToken); FJNativeLayout.setControl(FJVideoView); FJNativeLayout.setPosition(Round(Position.X * FScale), Round(Position.Y * FScale)); FJNativeLayout.setSize(Round(Width * FScale), Round(Height * FScale)); end); {$ENDIF} end; // http://techslides.com/demos/sample-videos/small.3gp 4) Trackbar не меняет позицию. procedure TMain.TrackBar1Change(Sender: TObject); begin Label1.Text := MSToTime(TrackBar1.Value); //V.setPosition(TrackBar1.Value); // Когда вы его активируете, это создает проблемы. end;

Привет. Поддерживает прямая и m3u видео ссылку.