-
Постов
553 -
Зарегистрирован
-
Посещение
-
Победитель дней
35
Ответы сообщества
-
Пост rareMax - сообщение в [Android] как вы решаете проблему с таймаутом? был отмечен как ответ
System.Net.HttpClient.THttpClient попробуй
-
Пост rareMax - сообщение в Как сделать плиточное меню в приложении? был отмечен как ответ
ModernListView
GridLayout(в названии мог ошибиться)
Либо на скроллБокс кидаешь нужные тебе компоненты.
-
Пост rareMax - сообщение в Проблемы с размерами компонентов. был отмечен как ответ
Помимо свойства Align используйте TLayout для группировки компонентов. Приложите простую демку - и возможно вам покажут как сделать пропорциональное изменение дизайна.
Еще обратите внимание на компонент TScaledLayout - он изменяет размеры всех дочерних контролов пропорционально изменению своих размеров
-
Пост rareMax - сообщение в Производительность отрисовки текста на мобильных платформах был отмечен как ответ
Тык тык https://github.com/zhaoyipeng/FMXComponents/blob/master/ComponentsSource/FMX.Graphics.NativeCanvas.pas
-
Пост rareMax - сообщение в Как узнать, что Android приложение свернуто? был отмечен как ответ
Прочитайте эту статью: http://delphifmandroid.blogspot.com/2016/09/delphi-android.html
-
Пост rareMax - сообщение в Предупреждение MessageDlg был отмечен как ответ
Вот пример:
procedure ShowMessage(const TheMessage:String); begin TDialogService.MessageDialog(TheMessage, TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOk], TMsgDlgBtn.mbOk, 0, nil); end;
-
Пост rareMax - сообщение в Обязателен ли AddObject? был отмечен как ответ
AddObject используйте если нужно добавить несколько объектов в другой объект. Например несколько MyLabel_N в MyRect/
И считайте что FParent.AddObject(FChild) и FChild.Parent := FParent это просто синонимы
-
Пост rareMax - сообщение в MD5 был отмечен как ответ
Для получения МД5 есть стандартный класс: http://docwiki.embarcadero.com/Libraries/XE8/en/System.Hash.THashMD5
uses System.Hash; ////////// ... md5param:='&q='+reqest+'&auto_complete=1&lyrics=0&performer_only=0&sort=0&search_own=0'; with fGeneral.RESTRequest1.Params.AddItem do begin name:='sig'; Value:=THashMD5.GetHashString('/method/'+fGeneral.RESTRequest1.Resource+'?v=5.28&https=1'+md5param+'&count=100&offset=1&access_token='+fGeneral.OAuth2Authenticator1.AccessToken+fGeneral.OAuth2Authenticator1.ClientSecret); end;
-
Пост rareMax - сообщение в Слежка за утечкой памяти. был отмечен как ответ
ReportMemoryLeaksOnShutdown := true;
-
Пост rareMax - сообщение в Через NetHTTPClient передать фотографию на сервер был отмечен как ответ
В общем рабочее время подходит к концу - поэтому держи:
Function SampleSendFile(Const Url, FileName: String): Boolean; var lHttp: THTTPClient; lSendData: TMultipartFormData; lResponse: IHTTPResponse; Begin lHttp := THTTPClient.Create; lSendData := TMultipartFormData.Create; try lSendData.AddFile('FileField', FileName); lResponse := lHttp.Post(Url, lSendData); Result := lResponse.StatusCode = 200; finally lSendData.Free; lHttp.Free; end; End;
-
Пост rareMax - сообщение в Как включать/выключать отображение пробок? был отмечен как ответ
Убрать трафик
MapView.LayerOptions:=MapView.LayerOptions-[TMapLayerOptions.Traffic]; Включить трафик
MapView.LayerOptions:=MapView.LayerOptions+[TMapLayerOptions.Traffic]; -
Пост rareMax - сообщение в Диаграмма ганта был отмечен как ответ
Есть - но только после покупки TeeChart
-
Пост rareMax - сообщение в Составление URL в HttpClient был отмечен как ответ
Ага, нашел, кажется
class function THello.AdvancedShort(const URL, APIkey: String; const AppID: Int64; Domen, Folder: String; AdvertType: TAdvertType): String; var HTTP: THTTPClient; URI: TURI; begin HTTP := THTTPClient.Create; try //---cut URI.AddParameter('key', APIkey); URI.AddParameter('uid', AppID.ToString); URI.AddParameter('url', URL); Result := HTTP.Execute('GET', URI).ContentAsString.Trim; finally HTTP.Free; end; end; -
Пост rareMax - сообщение в NetHTTPClient и SSL был отмечен как ответ
Ну тут ошибка разрабов.
Копируешь файл System.Net.HttpClient в папку с проектом (правишь оригинал) Открываешь его на строке с твоей ошибкой(у меня это 1965 строка) Перед ней добавляешь строку: if Result.Value.Length>0 then То есть у тебя получится так(1964-1966 строка):
Result.Value := Values[0].Substring(Pos + 1).Trim; if Result.Value.Length>0 then if (Result.Value.Chars[0] = '"') and (Result.Value[High(Result.Value)] = '"') then Удачи!
-
Пост rareMax - сообщение в Использование TSuperRecord был отмечен как ответ
Я в восторге от этой библиотеки. Такое ощущение что автор продумал все
Нашел как это сделать. Нужно всего лишь в нашем Record"е добавить атрибуты:
TvtAntiVirusItems = Packed Record public [ALIAS('CAT-QuickHeal')] CAT_QuickHeal: TvtAntiVirusItem; End; -
Пост rareMax - сообщение в Построение UML диаграмм и диаграмм классов был отмечен как ответ
Под структурой своего проекта жми Model, затем В дереве с диаграмами выбераешь нужные проект, жмешь ПКМ и OpenDiagram
-
Пост rareMax - сообщение в ListBoxGroupHeader.height перескакивает на 30 был отмечен как ответ
Думаю єто не баг, а фича: http://fire-monkey.ru/topic/38-android-ne-poluchaetsia-uvelichit-vysotu-tprogressbar/?hl=progress#entry101
-
Пост rareMax - сообщение в Редактор ресурсов был отмечен как ответ
Можно простым пеинтом или фотошопом делать. Как? смотри тут
-
Пост rareMax - сообщение в [TScrollBox] Возврат toolbar'a при лёгкой прокрутке вверх был отмечен как ответ
Source code e APK Link: Codice sorgente Delphi XE7
Link: Demo APK (da installare sul vostro dispositivo Android) -
Пост rareMax - сообщение в Крякнутая версия XE8 был отмечен как ответ
ой успокойтесь вы. Простых смертных трогать никто не будет. В Solid Works, например, знают приблизительное кол-во пользователей, которые пользуются пиратской версией. На обычных пользователей они не обращают внимание. А вот если в компании будут пиратки - тогда уже делают какие-то телодвижения. Так же думаю и в абракадабре - если у меня, к примеру, пиратка - я сомневаюсь, что то будут принимать по отношению ко мне. Но если бы я работал в какой то компании - тогда думаю они бы могли и предъявить за нелицензионный софт.
-
Пост rareMax - сообщение в Где можно взять версию TWebBrowser для Windows и OSX? был отмечен как ответ
TWebBrowser.7z - iOS+Win+MacOS+Android
-
Пост rareMax - сообщение в [JSON] Как выполнить парсинг массива в JSON? был отмечен как ответ
Со стандартной библиотекой JSON для Delphi только начал знакомится - возникла сложность как распарсить массив в структуре.
РЕШЕНИЕ ЕСТЬ ТУТ: Как получить доступ к значениям элементов TJSON?
-
Пост rareMax - сообщение в Почему у меня при старте приложения применяются все эффекты сразу, а не по триггеру? был отмечен как ответ
Ответ: Нужно было установить свойство для всех эффектов с заданными триггерами
Enabled := False;