Martifan

не могу найти может у вас осталась ссылка скиньте пожалуйста

а как сделать чтобы кнопки были на русском а не английским?

это версия и так не корректно работал XE7 но сами разработчики советуют не использовать ниже 4.0 версии

у меня все работает как надо и скорее всего у вас что то не правильно установилось попробуйте переустановить Studio XE 8

У меня на Windows 8.1 Delphi XE8 дебаг и на девайсе работает даже лучше чем на XE7

а для Android: Uses Androidapi.JNI.Telephony, Androidapi.JNI.JavaTypes, Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText; function TfMain.GetMyImei: string; var TelephonyObj: JObject; TelephonyManager: JTelephonyManager; begin Result := ''; TelephonyObj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); TelephonyManager := TJTelephonyManager.Wrap((TelephonyObj as ILocalObject).GetObjectID); Result := JStringToString(TelephonyManager.getDeviceId); end;

Доброго времени сутки недавно для себя открыл что можно из микрофона получить данные потоками: Uses ..., Androidapi.JNI.Media; procedure TForm1.Button1Click(Sender: TObject); var bufferSize: integer; buffer: TJavaArray<Byte>; M: TMemoryStream; begin audioRecord := TJAudioRecord.JavaClass.init(TJMediaRecorder_AudioSource.JavaClass.MIC, 44100, TJAudioFormat.JavaClass.CHANNEL_IN_MONO, TJAudioFormat.JavaClass.ENCODING_PCM_16BIT, 44100 * 2); (audioRecord as JAudioRecord).startRecording; buffer := TJavaArray<Byte>.Create(8820); (audioRecord as JAudioRecord).read(buffer, 0, 8820); (audioRecord as JAudioRecord).stop; audioRecord.release; buffer заполняется данными я проверил все работает (можно код прописать чтобы этот buffer проигрывал) audioRecord := TJAudioRecord.JavaClass.init(TJMediaRecorder_AudioSource.JavaClass.MIC, 44100, TJAudioFormat.JavaClass.CHANNEL_IN_MONO, TJAudioFormat.JavaClass.ENCODING_PCM_16BIT, 44100 * 2); <--- как мне кажется здесь видно что это формат Wave я пытаюсь передать это все серверу: IdUDPClient1.SendBuffer(IdUDPClient1.Host, IdUDPClient1.Port, RawToBytes(buffer, buffer.Length)); сервер запущен на Windows но не получается я слышу только пикание Вопрос: как мне передать этот поток серверу (среды Windows) и как его проигрывать на сервере, может у кого есть опыт работы с этом сфере или какой нибудь документация имеется или какой нибудь предложение есть как все это сделать все совете и предложении очень важен Заранее спасибо согласитесь интересно использовать микрофон так и не дожидая пока он создаст файл всем удачи

там все просто было я не правильно создавал Google Api Key как исправил компонент заработал нормально

Доброго времени суток. У меня есть переменная типа Pointer, как мне получить TJavaArray<SmallInt> из неё и наоборот, получить Pointer из TJavaArray<SmallInt>? Заранее спасибо.

тему можно закрыть всем разобрался спасибо

UP

Доброго времени суток. Подскажите пожалуйста, как отправить TIdBytes с сервера на клиент используя Indy10 tcpClient/Server и как получить отправленный TIdBytes на стороне клиента. (Рассматривается вариант и по UDP). Заранее спасибо.

В интернете смотрел, есть примеры, но нет рабочих. Я открыл тему в группе Indy и я подумал что тут обсуждается компонент Indy

Большое спасибо. А не подскажете как вместо файла отправить поток TIdBytes

Доброго времени суток. Подскажите пожалуйста, как отправить файл с сервера на клиент используя Indy10 tcpClient/Server и как получить отправленный файл на стороне клиента. (Рассматривается вариант и по UDP). Заранее спасибо.

Спасибо большое у меня на 4.4 все сразу свернул то что надо

Можно переключиться на "рабочий стол", т.е. просто сменить активити, я уже где-то на форуме вроде отвечал на подобный вопрос, с примером. Но тут есть нюанс, после того как вы "свернёте" приложение, андроид будет сам решать, что с ним делать. Т.е. он может через 5 минут решить, что приложение нужно выгрузить из памяти и соответственно закроет его, чтобы такого не происходило, необходимо использовать Сервисы. дайте пример пожалуйста как это сделать?

я все сделал так как на сайте написана но у меня аппликация запускаться все видна но когда нажимаю кнопку GO ничего не грузится, при нажатия кнопок Normal, Satellite, Hybrid фон меняется то белым то серым становится и внизу написана Google а правом угле + и - но когда указываю координаты карта не грузится что не так? unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Layouts, FMX.Edit, FMX.Controls.Presentation, FMX.Maps; type TForm1 = class(TForm) MapView1: TMapView; ToolBar1: TToolBar; ArcDial1: TArcDial; edLat: TEdit; edLong: TEdit; Button1: TButton; ToolBar2: TToolBar; Layout1: TLayout; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure ArcDial1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure MapView1MapClick(const Position: TMapCoordinate); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.ArcDial1Change(Sender: TObject); begin MapView1.Bearing := ArcDial1.Value; end; procedure TForm1.Button1Click(Sender: TObject); var mapCenter: TMapCoordinate; begin mapCenter := TMapCoordinate.Create(StrToFloat(edLat.Text), StrToFloat(edLong.Text)); MapView1.Location := mapCenter; end; procedure TForm1.MapView1MapClick(const Position: TMapCoordinate); var MyMarker: TMapMarkerDescriptor; begin MyMarker := TMapMarkerDescriptor.Create(Position, 'MyMarker'); // Make a marker draggable MyMarker.Draggable := True; // Make a marker visible MyMarker.Visible :=True; MapView1.AddMarker(MyMarker); end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin MapView1.MapType := TMapType.Normal; ArcDial1.Value := 0.0; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin MapView1.MapType := TMapType.Satellite; ArcDial1.Value := 0.0; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin MapView1.MapType := TMapType.Hybrid; ArcDial1.Value := 0.0; end; end.

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

ну танки с бубном я уже слышал жаль что студио не умеет

может быть но разрабы должны хотя бы об этом сообщить

Спасибо! Сегодня попробую на устройствах с интелом. Очень заинтересовало! Если везде заработает - будет круто! (и очень интересно)) Еще раз спасибо! да не за что сначала я тоже удивился если не будет работать напиши там в Deployment e надо отключить 2 галочку

вот обещанная видео извините за качество просто все спят и свет не смог включить https://youtu.be/YhOy7sN2TOs в общем он работает я на него более сложную программу запускал и все ок

Доброго времени сутки кто разобрался как использовать MapView может поделитесь? заранее спасибо