Рагим

Пользователи
  • Публикаций

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

  • Посещение

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

    1

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

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

Информация о Рагим

  • Звание
    Продвинутый пользователь

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

529 просмотров профиля
  1. Рагим

    Не работает с вибрацией

    Да, права есть.
  2. Рагим

    Не работает с вибрацией

    Доброго времени суток. Пишу мобильное приложение на 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; Как по Вашему, в чем может быть причина?
  3. Рагим

    TIdTCPClient на Android

    на XE7 проблем не было. проблемы появились на XE 10.1 Berlin
  4. Рагим

    TIdTCPClient на Android

    Не помогло. На телефоне TCPServer не получает ничего. проставил showmessage практически на все события, которые у него есть, но глухо. TCPClient нормально подключается к телефону и посылает сообщение.
  5. Рагим

    TIdTCPClient на Android

    Добрый день. Решил сегодня сделать некоторые доработки в приложение написанное на 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; В чем может быть проблема и как решить?
  6. Рагим

    Поиск клиентов в сети

    Спасибо за совет. Сделал следующим образом: Кинул на сервер 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);
  7. Рагим

    Поиск клиентов в сети

    UDP пакет отправлять/получать при помощи TIdUDPClient/TIdUDPServer? насколько я помню там на конкретный IP отправляется. Т.е. мне надо отправить 254 пакета за раз? можете написать пример как это лучше сделать?
  8. Рагим

    Поиск клиентов в сети

    Доброго времени суток. Есть приложение на Windows (сервер) и есть от 1 до 4 приложений (клиенты) на Андроид. Все устройства в сети. IP адреса клиентов не известны серверу, а адрес сервера клиентам. Приложения после того как узнают адреса друг друга, будут обмениваться сообщениями через TIdTcpClient и TIdTcpServer. Как лучше реализовать распознавание клиентов в сети? Делаю сейчас используя Tethering, но способ мне не нравится.
  9. Флеш не интерактивный. перегнать могу, но нужно чтобы он крутился постоянно. Пробовал через таймер реализовать, не получилось.
  10. Доброго времени суток. Имеется старый проект написанный на VCL. Хочу его перевести на FMX и столкнулся с тем, что не могу воспроизвести SWF. Компоненты Flash установлены и видны под VCL, а под FMX нет.
  11. Рагим

    Проблема с воспроизведением wav

    Заменил процедуру воспроизведения звука на эту: uses MMSystem; procedure playsound; begin sndPlaySound(Pchar('ringin.wav'), SND_NODEFAULT Or SND_ASYNC); end; Проблема устранена.
  12. Рагим

    Проблема с воспроизведением wav

    Доброго времени суток. Есть приложение которое на некоторые действия пользователей отвечает звонком. Приложение живет со времени 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.
  13. Рагим

    Hotspot+Tethering

    Доброго времени суток. Столкнулся со следующей проблемой: есть два приложения на Андроид. Подключаются друг к другу через Tethering. Когда оба телефона подключены к одной сети, все работает без проблем. Если на одном из телефонов создать точку доступа и подключить второй к этой сети, то они не подключаются друг к другу через Tethering. В чем может быть проблема?
  14. Рагим

    Проблема с прорисовкой несколько Image

    Вот рабочий вариант. 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;
  15. Рагим

    Проблема с прорисовкой несколько Image

    передаются два параметра: каждый это целое число от 1 до 4. С этим проблемы нет. Раньше ведь все работало.