Перейти к содержанию
Fire Monkey от А до Я

Рагим

Пользователи
  • Постов

    31
  • Зарегистрирован

  • Посещение

  • Победитель дней

    1

Рагим стал победителем дня 9 апреля 2015

Рагим имел наиболее популярный контент!

Посетители профиля

1 255 просмотров профиля
  1. Доброго времени суток. Пишу мобильное приложение на Delphi Berlin. Добавил вибрацию при нажатии на кнопку. На Андроид 4.4.2 все работает нормально, на Андроид 6 при нажатии на кнопку приложение вылетает. Проблема точно в вибрации, так как при отсутствии вибрации все работает нормально. В качестве процедуры вибрации использую следующий код: procedure Vibr; //Процедура вибрации var VibratorObj: JObject; Vibrator: JVibrator; begin VibratorObj := SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE); Vibrator := TJVibrator.Wrap((VibratorObj as ILocalObject).GetObjectID); if Vibrator.hasVibrator() then Vibrator.vibrate(200); end; Как по Вашему, в чем может быть причина?
  2. на XE7 проблем не было. проблемы появились на XE 10.1 Berlin
  3. Не помогло. На телефоне TCPServer не получает ничего. проставил showmessage практически на все события, которые у него есть, но глухо. TCPClient нормально подключается к телефону и посылает сообщение.
  4. Добрый день. Решил сегодня сделать некоторые доработки в приложение написанное на XE7 под Андроид и столкнулся со следующей проблемой: приложение не получает информацию через связку TIdTCPClient/TIdTCPServer. До этого все работало. Отправляю сообщение с компьютера через TIdTCPClient: try form2.IdTCPClient1.Connect; form2.IdTCPClient1.IOHandler.WriteLn(ss,enUTF8); form2.IdTCPClient1.Disconnect; except showmessage('Error'); end; end;//try получаю (вернее не получаю) на телефоне под Андроид: procedure TForm1.IdTCPServer1Execute(AContext: TIdContext); begin l := AContext.Connection.IOHandler.ReadLn(enUTF8); showmessage(l); end; В чем может быть проблема и как решить?
  5. Спасибо за совет. Сделал следующим образом: Кинул на сервер TIdUDPClient. Поставил кнопку и при нажатии отрабатывает form2.IdUDPClient1.Active:=true; form2.IdUDPClient1.BroadcastEnabled:=true; form2.IdUDPClient1.Broadcast(ServerIP,8090); form2.IdUDPClient1.Active:=false; form2.IdUDPClient1.BroadcastEnabled:=false; На клиенте TIdUDPServer. var DataStringStream: TStringStream; ServIP: String; begin DataStringStream := TStringStream.Create(''); try DataStringStream.CopyFrom(AData, AData.Size); ServIP := DataStringStream.DataString; finally DataStringStream.Free; end; ShowMessage(ServIP);
  6. UDP пакет отправлять/получать при помощи TIdUDPClient/TIdUDPServer? насколько я помню там на конкретный IP отправляется. Т.е. мне надо отправить 254 пакета за раз? можете написать пример как это лучше сделать?
  7. Доброго времени суток. Есть приложение на Windows (сервер) и есть от 1 до 4 приложений (клиенты) на Андроид. Все устройства в сети. IP адреса клиентов не известны серверу, а адрес сервера клиентам. Приложения после того как узнают адреса друг друга, будут обмениваться сообщениями через TIdTcpClient и TIdTcpServer. Как лучше реализовать распознавание клиентов в сети? Делаю сейчас используя Tethering, но способ мне не нравится.
  8. Флеш не интерактивный. перегнать могу, но нужно чтобы он крутился постоянно. Пробовал через таймер реализовать, не получилось.
  9. Доброго времени суток. Имеется старый проект написанный на VCL. Хочу его перевести на FMX и столкнулся с тем, что не могу воспроизвести SWF. Компоненты Flash установлены и видны под VCL, а под FMX нет.
  10. Заменил процедуру воспроизведения звука на эту: uses MMSystem; procedure playsound; begin sndPlaySound(Pchar('ringin.wav'), SND_NODEFAULT Or SND_ASYNC); end; Проблема устранена.
  11. Доброго времени суток. Есть приложение которое на некоторые действия пользователей отвечает звонком. Приложение живет со времени Delphi 7. Для воспроизведения звука использую такую процедуру: Procedure Tform1.PlayRing; var s:string; begin s := 'ringin.wav'; if FileExists(s) then begin form1.MediaPlayer1.Stop; form1.MediaPlayer1.Clear; form1.MediaPlayer1.FileName:=s; form1.MediaPlayer1.Play; end else showmessage('Error 104: File not found: '+s); end; Звук воспроизводится нормально 50-60 раз. Потом либо выскакивает ошибка: Unsupported media file ringin.wav, либо приложение подвисает. Проблема появилась после перехода с VCL на FMX.
  12. Рагим

    Hotspot+Tethering

    Доброго времени суток. Столкнулся со следующей проблемой: есть два приложения на Андроид. Подключаются друг к другу через Tethering. Когда оба телефона подключены к одной сети, все работает без проблем. Если на одном из телефонов создать точку доступа и подключить второй к этой сети, то они не подключаются друг к другу через Tethering. В чем может быть проблема?
  13. Вот рабочий вариант. procedure TForm1.ShowPlus(a, b: byte); // a - Номер строки // b - Цвет команды begin case a of 1: begin form1.PlusGlyph1.ImageIndex:=b-1; form1.MinusGlyph1.ImageIndex:=b+3; end; 2: begin form1.PlusGlyph2.ImageIndex:=b-1; form1.MinusGlyph2.ImageIndex:=b+3; end; 3: begin form1.PlusGlyph3.ImageIndex:=b-1; form1.MinusGlyph3.ImageIndex:=b+3; end; 4: begin form1.PlusGlyph4.ImageIndex:=b-1; form1.MinusGlyph4.ImageIndex:=b+3; end; end; end;
  14. передаются два параметра: каждый это целое число от 1 до 4. С этим проблемы нет. Раньше ведь все работало.
×
×
  • Создать...