-
Постов
1 204 -
Зарегистрирован
-
Посещение
-
Победитель дней
26
Весь контент Rusland
-
Программно. LiveBindings удобен, но не стабилен ИМХО.
-
В редакторе связей настроил отображение полей из базы в ListView1. Лучше не использовать эти LiveBinding-и, а заполнять все руками
-
Как правильно раз в минуту мониторить (http) в сервисе?
Rusland ответил fsdb вопрос в Сервис(служба)
После рестарта ОС сервис сам по себе не перезапуститься. Прочтите статью Андрея Ефимова -
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)
- 55 ответов
-
- Android
- Delphi XE8
-
(и ещё 1 )
C тегом:
-
Планшет месяца два не включался, пришлось заряжать... но как выяснилось PlayMarket на нем не работает (Ошибка при получении данных с сервера [DF-DFERH-01]), пока проверить не получается.
- 55 ответов
-
- Android
- Delphi XE8
-
(и ещё 1 )
C тегом:
-
Еще бы не плохо в Последние сообщения видеть дату последнего сообщения в теме, а не дату создания.
-
Интересно В каких браузерах это поддерживается?
-
Есть планшет Asus на Intel Atom (Android 4.2). Снимал галочки с libnative-activity.so - не помогло запустить скомпилированный проект
- 55 ответов
-
- Android
- Delphi XE8
-
(и ещё 1 )
C тегом:
-
Adm123, я к сожалению плохо разобрался в этой теме, много чего мне самому непонятно. Может быть другие участники форума подскажут...
- 12 ответов
-
В данном случае координаты выводятся в 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 отличается от моего?