Rusland

Программно. LiveBindings удобен, но не стабилен ИМХО.

В редакторе связей настроил отображение полей из базы в ListView1. Лучше не использовать эти LiveBinding-и, а заполнять все руками

После рестарта ОС сервис сам по себе не перезапуститься. Прочтите статью Андрея Ефимова

haword, не подскажете где скачать для Delphi 10 Seattle? Тут файл отсутствует.

Перекомпилировал сишный код с помощью bcc32 из Studio\17.0\bin, но это не помогло. Ищу любой помощи. aes.zip

Вон оно что, значит я сначала не понял вопроса. Дизайнер довольно глючный, сам сталкивался с его проблемами. Тут вижу выход только сохранить его на диск, руками подправить свойство Visible, загрузить обратно и посмотреть исправит ли это видимость.

Полагаю что так и задумано.

Все-таки, не корректно работают Последние сообщения. Я просмотрел уже все темы и как только появляется новый ответ в какой-нибудь теме, то большинство уже прочитанных мною тем снова становятся жирными.

Есть старый проект на Delphi 7, в нем используется dll. Решил в частности эту dll перевести на Delphi RX. После танцев с бубном она скомпилировалась и вроде как работает... за исключением одного момента: в ней используется AES-128 - шифруются/дешифруются TCP пакеты и видимо после переноса в RX шифруются неправильно. Используются obj-файлы, скомпилированные в BCC55 (исходники на C имеются) unit UAES; interface const BlockSize = 16; KsLength = 4*BlockSize; AesContextSize = 4*KsLength+4*3; type TAesContext = packed array[0..AesContextSize-1] of byte; function aes_set_encrypt_key (const Key : PChar; KeyLen : cardinal; var AesContext : TAesContext) : cardinal; external; function aes_encrypt_block (const Ib; var Ob; const AesContext : TAesContext) : cardinal; external; function aes_set_decrypt_key (const Key : PChar; KeyLen : cardinal; var AesContext : TAesContext) : cardinal; external; function aes_decrypt_block (const Ib; var Ob; const AesContext : TAesContext) : cardinal; external; implementation {$L fileenc.obj} {$L aescrypt.obj} {$L aeskey.obj} {$L aestab.obj} {$L pwd2key.obj} {$L prng.obj} {$L hmac.obj} {$L sha1.obj} procedure _memset (var Dest; Value,Count : integer); cdecl; begin FillChar (Dest,Count,chr(Value)); end; procedure _memcpy (var Dest; const Source; Count : integer); cdecl; begin Move (Source,Dest,Count); end; end. Вопросы: 1. Почему шифрование перестало работать после переноса в RX? 2. Где найти библиотеку для шифрования пакетов в AES-128? PS. Интересно C++Builder может скомпилировать C-код в obj?

Понятно. Можно наверно сократить минут до 2-3, не? Тогда ладно )

С одной стороны верно, но тогда выделенных 100мб на долго не хватит. Картинки - это все же не текст. Или их сжимать jpg ужасного качества?

Посетил все темы из списка Последние сообщения, но часть из них отображается не прочитанными - жирными.

Приложение установилось. При запуске пишет: "В приложении Only ads произошла ошибка". PS. Asus MeMO Pad FHD 10 ME302C (Intel Inside)

Планшет месяца два не включался, пришлось заряжать... но как выяснилось PlayMarket на нем не работает (Ошибка при получении данных с сервера [DF-DFERH-01]), пока проверить не получается.

Еще бы не плохо в Последние сообщения видеть дату последнего сообщения в теме, а не дату создания.

Интересно В каких браузерах это поддерживается?

Есть планшет Asus на Intel Atom (Android 4.2). Снимал галочки с libnative-activity.so - не помогло запустить скомпилированный проект

Adm123, я к сожалению плохо разобрался в этой теме, много чего мне самому непонятно. Может быть другие участники форума подскажут...

В данном случае координаты выводятся в Caption (см. переменные i и j), но вы можете сохранять их куда вам нужно Caption:='i='+i.ToString+',j='+j.ToString+' кол-во='+cnt.ToString;

Определить координату по цвету пикселя можно так: 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.Controls.Presentation, FMX.StdCtrls, FMX.Objects, FMX.ScrollBox, FMX.Memo; type TForm1 = class(TForm) Image1: TImage; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); var bd: TBitmapData; bm:TBitmap; i,j,cnt:integer; ac:TAlphaColor; begin cnt:=0; // количество bm:=Image1.MultiResBitmap.Items[0].Bitmap; bm.Map(TMapAccess.Read, bd); for i:=0 to bd.Width do for j:=0 to bd.Height do begin ac:=bd.GetPixel(i,j); if ac=TAlphaColorRec.Red then //4294901760=$FFFF0000 begin cnt:=cnt+1; Caption:='i='+i.ToString+',j='+j.ToString+' кол-во='+cnt.ToString; Sleep(300); end; end; Bm.Unmap(bd); end; end. Использовал TImage, а не TImageViewer (думаю не принципиально). Загрузил картинку, на которой поставлены в графическом редакторе красные точки (цвет FFFF0000). Склеить два битмапа наверное можно так: http://docwiki.embarcadero.com/CodeExamples/Seattle/en/CreateFromBitmapAndMask_(Delphi)

http://fire-monkey.ru/topic/2421-sostavlenie-url-v-httpclient/#entry13868

Кстати, Uses Permissions для Release могут быть не заданы. Проверьте.

Как?

Вставка кода заработала sStream := TStringStream.Create(); sList:=TStringList.Create; sList.Add('Lat='+Lat); sList.Add('Lon='+Lon); sList.Add('Alt='+Alt); aResponse:=aHttpClient.Post(sURL,sList,sStream);

Vitaldj, чем ваш TStringList отличается от моего?