Поиск сообщества

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

Доброе время суток . Я только начал знакомится с потоками , не судите строго . Вот код . Смысл которого через отдельный поток загружать изображение с сервера . unit Unit5; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,iduri,idhttp, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects, FMX.Controls.Presentation, FMX.StdCtrls; type ThreadHTTP=class(TThread) private Stream:TMemoryStream; bmp:tbitmap; url:string; public constructor Create(abmp:tbitmap; aurl: String); procedure Execute;override; // procedure ShowResult; end; type TForm5 = class(TForm) Button1: TButton; Image1: TImage; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure getpic(pic: string; img: Tbitmap); end; var Form5: TForm5; implementation {$R *.fmx} constructor ThreadHTTP.Create(abmp:tbitmap;aurl:string); begin inherited Create(false); bmp := abmp; url:=aurl; end; procedure ThreadHTTP.Execute; var j:integer; idhttp : TIdHTTP; ms:tmemorystream; png:tbitmap; begin ms := TMemoryStream.Create; IdHTTP := TIdHTTP.Create(nil); url:=TIdURI.URLEncode(url); try idhttp.Get(url,ms); ms.Position := 0; finally bmp.LoadFromStream(ms); idhttp.Free; ms.Free; end; end; procedure TForm5.Button1Click(Sender: TObject); begin getpic('krovat1',form5.Image1.Bitmap); end; procedure TForm5.getpic(pic: string; img: Tbitmap); var zapros:string; idhttp:tidhttp; MyHTTP:ThreadHTTP; begin zapros:='http://127.0.0.1/getimage_'+pic; MyHTTP:=ThreadHTTP.Create(img,zapros); MyHTTP.FreeOnTerminate := true; MyHTTP.resume; end; end. Код корявый , но работает в win32 . В Android ничего не происходит . Помогите разобраться , пожалуйста .

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

Добрый день! Ищем программиста для работы над созданием Desktop CRM системы на Delphi (FireMonkey). Есть уже разработанный прототип, оболочка приложения. Система будет кросс-платформенной, сперва выпущена Desktop версия, а затем издана мобильная версия под Android и iOS. Требуется знание: Pascal(Delphi), PHP, MySQL Работа: возможно совмещение. Есть и реализовано: 1. 1.Опыт в создании однотипного продукта a. Созданая CRM-системы, выведенная на рынок (старая версия) b. Разработка технических заданий на доработку и разработку CRM-систем c. Внедрение и интеграция CRM-систем 2. 2.Опыт в реализации и продажи CRM-систем a. Знание рынка b. Знание потребностей целевой аудитории c. Выстроенная ценовая политика d. Разработанные ключи продаж e. Ведение переговоры с первыми лицами компаний 3. 3.Прототипы a. Описанные модули, требования к ним и их функциональные возможности b. Разработанный и свёрстанный дизайн на Embarcadero XE10.1 Berlin) 4. 4.Действующий и раскрученный сайт a. Действующий сайт с уровнем конвертации посетителя в «лид» 8-10% 5. 5.Разработанная маркетинговая продукция (КП, Документы, HTML-письма, и.т.д.) ППо всем вопросам пишите на почту: wasd.tech@mail.ru или в личные сообщения! Спасибо!

В связи с недавней акцией по бесплатной раздачи Delphi Starter, как мне кажется, это не сильно отразится на рынке труда Delphi программистов. А как хочется, что бы Delphi опять стал «Первым в мире». У меня предложение. Почему бы не допустить, что бы Delphi захватил весь мир? Что для этого нужно, по моему мнению. Для начала: для редакции архитект берлин версии, снизить цену на именную лицензию до 100-200 $ МАКСИМУМ. Для учебных заведений за эту же цену на все рабочие места. Для данной редакции разрешить любое свободное коммерческое использование произведенной на ней программ. Заключить договор с компаниями DevArt и DevExpress на предоставлении значительных (90%) скидок для владельцев данной версии. Какая цена будет на обновление с это версии, это уже не важно. Через пол года, Delphi программисты, будут самыми востребованными в мире. Зато, что будет дальше ? ….

Коллеги, прошу прощенья за возможный офф топ, но он все таки касается студии. Я имею мак, для программирования на Delphi держу виртуальную машину VirtualBox. В ней стоит windows. Все работает как часы. Но заметил не большую странность. Дело в том, что сама виртуализация требует ресурсов, поэтому запущенная винда потребляет процессорное время. Но! Когда в ней ничего не запущено или просто какие нибудь офисные программы, профессор мака показывает 10-15 %: Причем это даже когда я не работаю в офисной программе, то есть virualbox свернут. Но стоит запустить Delphi (причем даже не открывая в нем никакие приложения), как потребление процессора в маке раза в 4-е повышается и доходит да 50-60%: И это тоже в свернутой VB! Может кто знает, чем это Delphi занимается? С какой целью потребляет ресурсы? От версии это не зависит: пробовал и на 7 и на 8 и на Сиэтле и Берлине! Одинаково! PS Если запускаю монитор процессов в самой винде, Delphi ничего не потребляет, процессорное время самой винды на нуле.

Всем привет, кто может объяснить куда сохраняет класс SharedPreference значения, и может ли кто извне легко считать от туда данные. Таким образом var Prefs: JSharedPreferences; Editor: JSharedPreferences_Editor; Prefs := SharedActivity.getPreferences(0); Editor:= Prefs.edit; //сохраняю данные Editor.putString(StringToJString('ключ'), StringToJString('значение')); Editor.apply; //беру данные result:=JStringToString(Prefs.getString(StringToJString('ключ'), StringToJString('по умолчанию значение'))); происходит сохранение к примеру важного значение из программы, которое пользователю не нужно знать, и в нужный момент прога их берет для своих манипуляций.

как создать чат между людьми Android Делфи? может кто-нибудь помочь?

Задача отбить\завершить звонок. uses FMX.Memo, FMX.Memo.Types, FMX.Media, FMX.Helpers.Android, System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.IOUtils, Androidapi.Helpers, Androidapi.JNI.JavaTypes, Androidapi.JNI.Os, Androidapi.JNI.App, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText, System.Threading, Androidapi.JNI.Telephony, Androidapi.JNI.Provider, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText; function getdeclaredMethod(Cls: Jlang_class; const Name: JString): JMethod; var Arr: TJavaObjectArray<JMethod>; Meth: JMethod; I: Integer; begin Result := nil; Arr := Cls.getDeclaredMethods; for I := 0 to Arr.Length-1 do begin Meth := Arr.Items[I]; if Meth.getName.compareTo(Name) = 0 then begin Result := Meth; Exit; end; end; raise Exception.CreateFmt('method not found: %s', [Name]); end; function killCall(context: JContext): Boolean; var obj: JObject; telephonyManager: JTelephonyManager; classTelephony: Jlang_Class; methodGetITelephony: JMethod; telephonyInterface: JObject; telephonyInterfaceClass: Jlang_Class; methodEndCall: JMethod; begin try // Get the boring old TelephonyManager obj := context.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); telephonyManager := TJTelephonyManager.Wrap((obj as ILocalObject).GetObjectID); // Get the getITelephony() method classTelephony := TJlang_Class.JavaClass.forName(telephonyManager.getClass.getName); methodGetITelephony := getDeclaredMethod(classTelephony, StringToJString('getITelephony')); // Ignore that the method is supposed to be private // methodGetITelephony.setAccessible(True); JAccessibleObject(methodGetITelephony).setAccessible(True); // Invoke getITelephony() to get the ITelephony interface telephonyInterface := methodGetITelephony.invoke(telephonyManager); // Get the endCall method from ITelephony telephonyInterfaceClass := TJlang_Class.JavaClass.forName(telephonyInterface.getClass.getName); methodEndCall := getDeclaredMethod(telephonyInterfaceClass, StringToJString('endCall')); // Invoke endCall() methodEndCall.invoke(telephonyInterface); Result := True; except on E: Exception do // Many things can go wrong with reflection calls begin // Result := False; end; end; end; Это я нешел отсюда: stackoverflow Соответственно вопрос с invoke(): telephonyInterface := methodGetITelephony.invoke(telephonyManager); в вышеуказанной теме остался открытым. Как отловить входящий звонок (необходимый момент) через BroadcastReceiver понятно. Как решить задачу с завершением текущего звонка? P.S.: Как писать на JAVA и экспортировать функции что бы использовать их из Delphi представляю себе весьма туманно.

Может кто-то поделиться Хотфиксом утечки памяти для Rad Studio 10 Seattle Update 1 с Embarcadero Developer Network? Нигде не могу найти Ссылка с хотфиксом: http://cc.embarcadero.com/item/30453

Привет. Delphi Berlin iso установка проблема. coredelphi russian.7zip

Как получить уровень приема сотовой сети? Google пользоваться умею, а вот отсутствие опыта дает о себе знать. Буду благодарен за ссылки, что почитать для общего понятия написания по android c учетом специфики Delphi. Нашел: TelephonyManager tm = (TelephonyManager)context.getSystemService(Context.TELEPHONY_SERVICE); int dbm = 0; if ( tm.getNetworkType() == TelephonyManager.NETWORK_TYPE_LTE){ dbm = Integer.parseInt(parts[8])*2-113; } else{ if (signalStrength.getGsmSignalStrength() != 99) { int intdbm = -113 + 2 * signalStrength.getGsmSignalStrength(); dbm = Integer.toString(intdbm); } } Вот что пытаюсь сделать: function GetLevel: string; var TelephonyObj: JObject; TelephonyManager: JTelephonyManager; Listner: JPhoneStateListener; begin TelephonyObj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); TelephonyManager := TJTelephonyManager.Wrap((TelephonyObj as ILocalObject).GetObjectID); Listner := TelephonyManager.listen(Listner, 2); result := JStringToString(Listner.toString); //ПОЛАГАЮ ПОЛУЧУ НАЗВАНИЕ КОМПОНЕНТА ВМЕСТО РЕЗУЛЬТАТА??? )) end; Пытаюсь и вот так function GetSim1Level: integer; var TelephonyObj: JObject; TelephonyManager: JTelephonyManager; cellinfogsm: JCellInfoGsm; CellSignalStrengthGsm: jcellSignalStrengthGsm; Level: integer; begin TelephonyObj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); TelephonyManager := TJTelephonyManager.Wrap((TelephonyObj as ILocalObject).GetObjectID); cellinfogsm:= (TelephonyManager.getAllCellInfo.get(0) as JCellInfoGsm); CellSignalStrengthGsm := cellinfogsm.getCellSignalStrength(); Result := cellSignalStrengthGsm.getLevel; end; В на выходе конечно же получаю ошибку... Как я понимаю тут надо создать какой то ресивер? Он используется постоянно и вызываетя при событии описываемой в Delphi процедурой? Или к нему разовый доступ и получение текущей информации при обращении к его свойствам? Прошу больше помочь не готовым кодом, а что почитать. Поскольку есть желание понять.

Привет всем! Кто-нибудь сталкивался с проблемой запуска приложения с использованием 3D компонентов на Android эмуляторе? Приложение написано на Delphi. На iOS эмуляторе всё в порядке - запускается и работает без проблем, а вот Android эмуляторе не хочет. Точнее приложение только начинает запускаться и эмулятор падает. Подчёркиваю - не приложение а сам эмулятор падает! Если убрать 3D компоненты, то всё будет нормально работать, но стоит только добавить хотя бы один 3D компонент, то всё... Delphi 10 Seattle, Android API 22 для 5.1.1. Такое же было и на прежних версиях студии - XE7, XE8. Решение не находил и забивал, т.к. под Android приложение не требовалось - чисто для интереса пробовал запустить, а сейчас потребовалось. Буду очень благодарен за помощь!

Разработчик: Александр Бирюков Ссылки на приложения: iOS и Android Описание: Алгоритм работы: Пользователь попавший в ДТП создает заявку или нажатием кнопки SOS в экстренной ситуации отправляет экстренное сообщение на сервер. Модераторы получают СМС уведомления о произошедшей аварии. После модерации пользователи системы получают СМС уведомления с адресом аварии и Push уведомления.

Здравствуйте, коллеги. Интересует следующий вопрос. При первой компиляции проекта при наличии предупреждений (warnings) все они вываливаются во вкладку Messages. Однако, если откомпилировать проект еще раз, то список уже пустой. Как принудительно заставить среду всегда выводить список этих предупреждений. Закрывать и повторно открывать проект не вариант. Использую Delphi XE5 Enterprise Edition.

Здравствуйте, коллеги. Использую Delphi XE5 Enterprise Edition. Имею группу проектов из 17-ти проектов. При попытке компиляции сразу всех проектов где-то после 7-8 проекта среда выкидывает ошибку: [Fatal Error] Exception of type 'System.OutOfMemoryException' was thrown. Если компилировать по одному проекту, то примерно также к 7-8-му проекту вылетает таже ошибка. Что делать? Как исправить?

Добрый день, Знает ли кто-либо адекватный способ для чтения QR кодов на IOS используя XE8 или выше, желательно с рабочими примерами. ZBar и ZXing - не работают (черный экран)

Возможно ли запустить из приложения на Delphi сервис написанный на JAVA, в которм запускается поток, который запускает метод из кода Delphi? Как описать в Delphi-JNI метод Delphi, для вызова из JAVA кода если можно с примером... ?

Можно ли перенести проект созданный для iOS из Delphi в XCode?