Antonyan

Пользователи
  • Публикаций

    68
  • Зарегистрирован

  • Посещение

  • Победитель дней

    1

Весь контент Antonyan

  1. Antonyan

    Использование SSL

    Благодарю всех ответивших !
  2. Antonyan

    Использование SSL

    Добрый день ! Можно ли к TRestClient прикрутить Open SSL ? Либо альтернативные варианты ?
  3. Добрый день ! Есть Listbox состоящий из ListBoxItem, которые содержат стили из множества объектов. По событию onTap на Listbox определяем по координатам Item. Как определить именно тот объект стиля этого Item(а), что оказался под пальцем ? Заранее благодарю.
  4. Добрый день ! Не поделитесь "определить по координатам, есть ли объект под пальцем, и запустить, что там надо запускать по клику" ?
  5. Доброго времени суток ! Вопрос #1 Как назначить обработчик событий OnTap, OnGesture элементу стиля ? Либо, как еще отловить событие нажатие на элемент стиля, не путая скроллинг и tap? Подозреваю, что подобный подход не приемлем : ListBoxItem.StylesData['Rectangle.OnTap'] := TValue.From<TNotifyEvent>(..Myprocedure_OnTap...) ListBoxItem.StylesData['Rectangle.OnGesture'] := TValue.From<TNotifyEvent>(..Myprocedure_OnGesture...) Потому как, TNotifyEvent = procedure(Sender:TObject) of object; Вопрос #2. Насколько известно, android не различает скроллинг и tap. А как с этим в IOS ? Заранее благодарю
  6. Antonyan

    Firebird. Ошибка

    Спасибо всем. Проблема устранена. Скачал кривоватый билд FB. Тему можно закрывать.
  7. Antonyan

    Firebird. Ошибка

    Добрый день, коллеги ! Заранее извиняюсь, если разместил вопрос не в той ветке - в таком, случае прошу перенести в соответствующую (не нашел). Вопрос следующий. Использую XE7 и FireBird 2.5.7. Иногда возникает ошибка [FireDAC][Phys][FB]Error reading data from the connection при запросе Select. Подскажите пожалуйста, как победить и почему она возникает ?
  8. Antonyan

    Firebird. Ошибка

    Try FDConnection1.Params.Database:=Pchar(Extractfilepath(paramstr(0))+'TEST.FDB'); FDConnection1.Connected:=true; except Showmessage('Error'); Exit; end; If FDConnection1.Connected then Temp.Open('Select Field1 from TableName') - вот здесь возникает непостоянная ошибка, о чем и писал выше else Showmessage('No Connected'); Благодарю всех откликнувшихся
  9. Antonyan

    Firebird. Ошибка

    Благодарю. Тут ошибка не платформы и не FireDac (поэтому версия XE скорее всего не при чем), тут чисто ошибка Firebird. Вопрос именно к знатокам InterBase и Firebird.
  10. Добрый день ! Как передать фокус элементу стиля, например, Edit ?
  11. И еще один вопрос : Как программно передать фокус элементу Edit ?
  12. Добрый вечер ! Создал стиль для итемов Listbox. Одними из элементов стиля являются Edit и Button. И если событие Button.OnClick работает без проблем,то с Edit.OnKeyDown не получается. Как это поправить ? Var aItem: TListboxItem; aItem.StylesData['Button.OnClick'] := TValue.From<TNotifyEvent>(ButtonClick); - работает aItem.StylesData['Edit.OnKeyDown'] := TValue.From<TNotifyEvent>(EditKeyDown(Self,key,KeyChar,Shift)) - не работает
  13. Если речь идет о таблицах Visual Dbase7 - указанные выше методы не помогут, рекомендую бесплатный компонент TDBF.
  14. Как вариант, можно просто скрыть его Procedure XXX; Var LItem : TListViewItem; begin LItem := YourListView.Items.Add; LItem.Objects.AccessoryObject.Visible:=false; end;
  15. Проблему устранил. Помогло Edit.ApplyStyleLookup.
  16. Добрый день ! Кидаю на форму Edit, создаю в нем EditButton. Запускаю. Периодически (или эпизодически, плавающий глюк) EditButton почему то меняет позицию и мигрирует за пределы Edit. В чем может быть дело ?
  17. У EditButton выставил ClipChildren и ClipParent в true, странно, глюк пока не проявляется. Буду тестить дальше...
  18. В проекте около 10 тыс строк, думаю, утомительно будет в нем копаться. Буду благодарен за направление, в какую сторону размышлять
  19. Antonyan

    FastReport +DLL - проблема

    По п.1 - попробую, но маловероятно что поможет, а вот п.2 - интересный вариант, спасибо
  20. Antonyan

    FastReport +DLL - проблема

    Добрый день, коллеги ! Неожиданно столкнулся с проблемой при использовании FastReport5 в XE7. Суть : Создаю отчет test.fr3, в котором в одно единственное поле из БД выводится информация об адресе. Создаю VCL проект, кидаю на форму : FDConnection1, Temp: TFDQuery, FDGUIxWaitCursor1 Далее, коннект к базе FB. Под кнопкой пишу код: procedure TForm3.Button2Click(Sender: TObject); var frxReport1 : TfrxReport; frxDBDataset1 : TfrxDBDataset; begin frxReport1:=TfrxReport.Create(nil); frxDBDataset1:=TfrxDBDataset.Create(nil); frxDBDataset1.UserName:='Rekv'; frxDBDataset1.DataSet:=Temp; { // В VCL - работает без этих строк, в DLL - разумеется, нет. frxReport1.DataSets.Clear; frxReport1.DataSets.Add(frxDBDataset1); frxReport1.DataSet:=frxDBDataset1; frxReport1.DataSetName:=frxDBDataset1.UserName; } frxReport1.LoadFromFile('e:\test.fr3'); frxReport1.ShowReport(True); end; Этот код работает прекрасно, отчет формируется, информация из БД присутствует в отчете. Вопросов к нему нет. Проблемы начинаются, когда я пытаюсь использовать формирование и вызов отчета из DLL Вызов : PrintData(MyQuery); function PrintData(Temp: TFDQuery): Integer; stdcall; var frxReport1 : TfrxReport; frxDBDataset1 : TfrxDBDataset; begin Result := 0; frxReport1:=TfrxReport.Create(nil); frxDBDataset1:=TfrxDBDataset.Create(nil); frxDBDataset1.UserName:='Rekv'; frxDBDataset1.DataSet:=Temp; frxReport1.DataSets.Clear; frxReport1.DataSets.Add(frxDBDataset1); frxReport1.DataSet:=frxDBDataset1; frxReport1.DataSetName:=frxDBDataset1.UserName; frxReport1.LoadFromFile('e:\test.fr3'); frxReport1.ShowReport(True); end; В итоге, отчет формируется и запускается, информация из БД присутствует в отчете, но возникает сообщение об ошибке : Были обнаружены следующие ошибки : Memo1 : Поле не найдено : Rekv."Adress" Как победить эту ошибку ?
  21. Antonyan

    FastReport +DLL - проблема

    Вопрос то этот решился через костыль. У них есть штатный режим "тишины", когда ошибки копятся, но на экран не выводятся. Я все же думаю, где то есть мое упущение, да и любопытство разбирает ))