Dozent

Переделал код из темы http://fire-monkey.ru/topic/330-tmediaplayer-ne-zapuskaet-video-v-nekotorykh-versiiakh-andro/page-2 uses ActivityManager, Androidapi.JNI.JavaTypes, Androidapi.Helpers, Androidapi.JNI.Net, Androidapi.JNI.GraphicsContentViewText; procedure TForm1.Button3Click(Sender: TObject); var PackageName: Jstring; ActiveManager: JActivityManager; sFile, exe: string; Intent: JIntent; Data: Jnet_Uri; begin try sFile := '/sdcard/publicity/video_8.mp4'; // MX player: https://sites.google.com/site/mxvpen/api PackageName := StringToJString('com.mxtech.videoplayer.ad'); ActiveManager := GetActivityManager(); ActiveManager.killBackgroundProcesses(PackageName); exe := Tpath.GetExtension(sFile); ListView1.Items.Add.Text := 'exe: ' + exe; Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW); Data := StrToJURI(sFile); ListView1.Items.Add.Text := 'data: ' + JURIToStr(Data); Intent.setDataAndType(Data, StringToJString(PWideChar('video/') + exe)); Intent.setPackage(PackageName); Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_CLEAR_TOP and TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK and TJIntent.JavaClass.FLAG_ACTIVITY_NO_HISTORY); SharedActivity().startActivity(Intent); finally end; end; А как вы отслеживаете что файл закончился играться?

не понятный компонент, после установки вылезло куча ошибок, бороться с ними времени нет, не советую, хотя если комуто интересно или кто то победит отпишите плз) Переписка с техподом: 1:Hello. Install the trial version of the component "Android Native Player For Delphi & C ++ Builder Component 1.10". I can not understand how to use it? Delphi XE7. Where can I find a demo of using component? 2:Open the example D3Player.dproj under Trial version install root\Examples\XE7 folder. Then run it , and make sure you have put some video on your phone rom such as /sdcard/Movies/test.mp4, then input the file name in the edit and click the play button to play it.

чото не могу найти демо на него, как его использовать?)

Я так понимаю вы нашли для себя решения через MX плеер? Что - то мне не хочется зависить от старонего приложения, мб вы нашли решение через стандартные приложения? Ведь в андройде вроде есть какойто стандартный плеер?

Кто нибудь может помочь в переводе этого кода на делфи?

Что за pas файл? где его взять нужно? Увидел!

Здравствуйте! RoverPad 3w7, Android 4.0.3 Запускаю видео, звук есть, картинки нет... воспроизвожу так procedure TForm1.Button2Click(Sender: TObject); var s: string; begin // s := '/sdcard/publicity/1.mp3'; s := '/sdcard/publicity/video_8.mp4'; if FileExists(s) then begin ListView1.Items.Add.Text := s; MediaPlayer1.FileName := s; // '/sdcard/publicity/video_8.mp4'; MediaPlayer1.Play; end else ListView1.Items.Add.Text := 'File not Found'; end; Эта проблема как-то решается? И с чем это связано? Думал проблема в кодеках... Установился VPlayer и VPlayer COdec Arm7. Видео через другие плееры воспроизводятся... Но картинка так и не появилась... Прошу подскажите как с этим бороться? Спасибо

А знаете ещё чо заметил) если к вам подключится ктонибудь по тимвиверу то ошибка не вылетает)) Походу тимвивер прослушивает много портов, а при соединении отваливается нужный нам порт...

не та значит нета Есть экранная клавиатура, а есть сенсорная и ехе файлы разные для этих приложений... а я и неговорю что придумал это сам... за ссылку спасибо

Вообщем реализация такая //добавляем в uses ShellApi, Winapi.Windows, Winapi.messages; // вызов сенсорной клавиатуры function ExpandEnvironmentVar(var Value: string): Boolean; var R: Integer; Expanded: string; procedure StrResetLength(var S: string); var I: Integer; begin for I := 0 to Length(S) - 1 do if S[I + 1] = #0 then begin SetLength(S, I); Exit; end; end; begin SetLength(Expanded, 1); R := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), 0); SetLength(Expanded, R); Result := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), R) <> 0; if Result then begin StrResetLength(Expanded); Value := Expanded; end; end; procedure TForm1.Edit2Click(Sender: TObject); var S: string; begin S := '%CommonProgramW6432%\microsoft shared\ink\tabtip.exe'; if ExpandEnvironmentVar(S) then Caption := S else Caption := S; { :-) } ShellExecute(0, PChar('open'), PChar(Caption), nil, nil, SW_SHOWNORMAL); end; //закрытие procedure TForm1.Button1Click(Sender: TObject); var MyHandle1: THandle; begin MyHandle1 := FindWindow('IPTip_Main_Window', nil); if MyHandle1 <> 0 then begin PostMessage(MyHandle1, WM_SYSCOMMAND, SC_CLOSE, 0); Label2.Text := IntToStr(MyHandle1); end; end;

по этой ссылке не подходит, вызывается не та клавиатура... http://habrahabr.ru/...el/blog/163333/ по этой ссылке чото не могу перевести сишный код на делфи

Винда

http://www.pwcode.net/programming/delphi/221-delphifiremonkeyfmxvirtual-keyboard.html пока не проверял но говорят работает

День добрый! Как вызвать клавиатуру при попадании фокуса в эдит, приложение под 8.1? Я кинул на форму эдит указал тип клавиатуры, запускаю проект, тыкаю на эдит но клавиатура не появляется....

http://fire-monkey.ru/topic/479-ne-rabotaet-otladka/?p=3348

Была такая же проблема. Решил проблему. Нужно запустить Android SDK Tools и установить пакеты которые он предлагает (Google USB Driver и т.п.). Изначально мне предложил установить 4 пакета потом сказал перезапусти меня. Потом ещё 20 пекетов. И всё заработало...

Добрый день! Если у формы выставить формы свойство FullScreen не показывается видео, если скинуть галку всё отлично (Delphi XE6). Както лечится?

День добрый! Ситуация такая: при удалении итема выбранным должен стать первый в списке итем lvDrugList.ItemIndex := 0; Да действительно от подсвечивается, но событие onChange не срабатывает. Подскажите что нужно сделать?

я думаю с появлением компилятора под линукс, банкоматы все переидут на линукс! да и другие железные шарманки

TabControl1.SetActiveTabWithTransition(TabItem2, TTabTransition.Slide, TTabTransitionDirection.Reversed); с обратной анимацией

TabControl1.SetActiveTabWithTransition(TabItem2, TTabTransition.Slide);

День добрый! Такая проблемка, нашёл в инете как перелистывать красиво закладки табконтрола. Есть TActionList в нём создаём 2 события из разряда стандартных, указываем на какую будет перелистываться, тут всё отлично. Проблема возникает когда я указываю у кнопки в Action, ChangeTabAction1 (стиль кнопки documentbuttontext). И тут надпись у кнопки меняется, как мне оставить нужную мне надпись в кнопки, но и чтобы срабатывало события из акшинлиста? Текст кнопки в дизайнере поменять можно но в рантайме он сново станет Go to <Имя закладки>

Спасибо

ну так и должно быть? В райнтайме отображается 0,3! Мне его обрезать нужно?

Какая-то ерунда в этом компоненте Что за значение такое интересное?