R.is

Спасибо за ответ. 

Установил 10.3, там добавили System.Permissions, который решает проблему. 

Господа, нужна помощь.

Запилил приложение, протестировал, все работает на ура и радостный иду загружать в Google Play, по требованию Google Play перед загрузкой в  AndroidManifest.template.xml нужно поставить targetSdkVersion не ниже 26.

Как только ставлю targetSdkVersion="26", то  некоторые функции приложения перестают работать, а если обратно изменить  targetSdkVersion на 16, то все начинает работать.

В чем может быть проблема?

 

1) Кнопка "Поделиться" - использую стандартный ActionList

procedure TForm2.ShowShareSheetAction1BeforeExecute(Sender: TObject);
begin
  ShowShareSheetAction1.Bitmap.Assign(Image1.Bitmap);
end;

 и получаю вот что: 

2) Кнопка "Сохранить" - сохраняю картинку в папку Pictures:

Uses Permissions:

Read external storage = true

Write external storage = true

procedure TForm2.Button2Click(Sender: TObject);
begin
Image1.Bitmap.SaveToFile(TPath.Combine(TPath.GetSharedPicturesPath,'phone.jpg'));
end;

и получаю следующую ошибку

 

Прикрепляю тестовый проект.

demo.rar

Использовать TListBox или TListView

В 10.03.2018 в 16:04, wamaco сказал:

Я имею ввиду значение переменной F2, после

F2 := TPath.Combine(TPath.GetDocumentsPath, '1.pdf');

/storage/emulated/0/Android/data/com.embarcadero.Project2/files/1.pdf

Прикрепил проект

OpenPDF.zip

1 час назад, wamaco сказал:

переменную f2 покажите пожалуйста...

F2: string;

F2 := TPath.Combine(TPath.GetDocumentsPath, '1.pdf');

 

36 минут назад, Dev сказал:

https://www.gnostice.com/XtremeDocumentStudio_Delphi.asp

Спасибо, но хотелось бы бесплатного решения

22 минуты назад, wamaco сказал:

попробуйте вот так

WebBrowser1.Navigate(F2);

 

Так тоже пробовал, но не работает, он пытается открыть F2 как вебссылку

Добрый день господа!

Искал на форуме, но ответа не нашел. Кто нибудь открывал локальный pdf  webbrowser-ом?

В Deployment есть два файла: '1.pdf' и '2.html', расположение assets\internal

  F1, F2: string;
begin
  F2 := TPath.Combine(TPath.GetDocumentsPath, '1.pdf');
  WebBrowser1.Url := ('file://' + F2);
end;

begin
  F1 := TPath.Combine(TPath.GetDocumentsPath, '2.html');
  WebBrowser1.Url := ('file://' + F1);
end;

HTML страница загружается без проблем а вот pdf не загружается, в чем может быть проблема? 

При открытии intent-ом предлагает выбрать читалку для открытия, что не очень красиво.

Кто чем пользуется/открывает pdf?

Help!

Никак не могу разобраться с проблемой.

Нужно воспроизводить аудиоподкаст, который находится на сайте, если сделать так:

MediaPlayer1.FileName :='http://ol7.mp3party.net/online/8514/8514311.mp3';

то все работает, но программа зависает на пару секунд.

а если сделать в потоке, то ничего не происходит 

procedure MyThread.Execute;
begin
  inherited;
   Form4.MediaPlayer1.FileName :='http://ol7.mp3party.net/online/8514/8514311.mp3';
end;

и в логах ничего(

прикрепил проект на всякий случай.

mp.zip

Решили вопрос? 

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

Все устройство на которых будет использоваться программка одинаковые 

Lenovo Tab 7 

Android 4.4.2

Странно, у меня всё работает... У кого-то ещё есть такая проблема?

Примерно месяц назад было такое весь вечер мучился, а на утро все было хорошо.

R.is, версия тоже XE8?

Нет у меня DX10

Во-первых, он должен быть (для интереса сделайте поиск в папке C:\Program Files (x86)\Embarcadero\Studio\16.0).

Во-вторых, заменить  TAndroidHelper.Activity можно SharedActivity, как вы и делали.

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

У меня тоже самое появляется квадрат и там показывает видо, его размер и положение не полчается изменить

и еще почему то внизу квадрата появляется значок fmx

Можете дать ссылку на видео? А-то у меня она что то не открывается

Добрый день

Помогите разобраться с перетаскиванием компонента, маленький простой пример как перемещать Button или Image по Panel или по любому другому компоненту.

Нижеприведенный код работает для VCL, а вот как сделать тоже самое для FMX?

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source = Panel1 then Accept := True else Accept := False;
end;

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
Panel1.Left := X;
Panel1.Top := Y;
end;

какой сайт?

Вы снова ответили сами, убрать инди нужно. Из хелпера теперь...

даа...... нужно было всего то в 3-х местах заменить IdHttp на TNetHTTPClient а я два дня уже как не мог додуматься 

еще раз вам спасибо с низким поклоном)

ну... контент не загружался потому что сервер выдавал 404 в indy ))) и я не смог разобраться с этим

а как вы это сделали? поделитесь? 

И снова прошу помощи у вас 

делаю парсинг этого сайта и собираю ссылки на нужные картинки в Listbox, пользуюсь вот этим хелпером http://fire-monkey.ru/topic/2185-dinamicheskaia-podgruzka-kartinok-v-listview/ чтобы загрузить картинки в ListView 

картинки не загружаются т.к сервер выдает 404 

как быть?

Прикрепляю исходник https://drive.google.com/file/d/0B10br05z6dsAaHhya1hrR1JKZE0/view?usp=sharing

Да пожалуйста, пользуйтесь.

У Itema же есть Bitmap. Если нужно через инет, то нужно через хелпер тут не раз выкладывали

Есть тема от меня в разделе TListView про динамическую загрузку картинок, посмотрите там.

Нашел тему, спасибо буду пробовать

что-то типа этого?

2015-12-07 11-53-17 Скриншот экрана.png

demoLV.zip

Добрый вечер господа 

во первых спасибо ZuBy за исходник

скачал данный исходник и прям в нем начал делать свой проект но возникла проблема, есть Listbox в котором динамически создаются Item-ы в них хранятся ссылки на картинки из сайта, картинки разные в формате .bmp количество Item-ов у Litbox и Listview одинаковы 

как загрузить эти картинки в Listview?

function idHttpGet(const aURL: string): string;
// uses  System.Net.HttpClient, System.Net.HttpClientComponent, System.Net.URLClient;
var
  Resp: TStringStream;
  Return: IHTTPResponse;
begin
  Result := '';
  with TNetHTTPClient.Create(nil) do
  begin
    Resp := TStringStream.Create('', TEncoding.ANSI);
    Return := Get( { TURI.URLEncode } (aURL), Resp);
    Result := Resp.DataString;
    Resp.Free;
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(idHttpGet('http://airnav.tj/ru/online/utdd'));
end;

Держи

 

Большое вам спасибо все отлично работает))

Удалите из User Agent данные о Indy.

Многие сайты блочат и глючат видя такой User Agent, ибо очень много ботов всяко-разных пишется с их использованием.

Напишите, например:

Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/41.0.2228.0 Safari/537.36

Нет это не поможет, дело не в Indy а в самом сайте как уже сказал Андрей 

Может стоит прописать полный URL http://www.airnav.tj/ru/online/utdd ?

У тебя сейчас www. пропущен..

В браузере похоже автоматическая переадресация идёт в случае ненахождения по краткому имени, а в Indy такой переадресации или нет, или она не задействована..

Это я первым делом сделал но результата нет(

В браузере. Сервер возвращает ответ 404 Not Found, но при этом отдаёт контент. Пока не додумался как обойти этот косяк, впервые с таким сталкиваюсь....

Странно у меня в браузере все без ошибок а в дельфи 

http/1.1 404 not found