ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Дженерики: передача процедуры в качестве параметра
25 сообщений из 108, страница 4 из 5
  4  все
Дженерики: передача процедуры в качестве параметра
    #39729862
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
X-CiteЕсли метод не public или published то по умолчанию их в RTTI нет, вроде бы..

Я про это читал, но думал, что это только старой self.GetProcAddress касается.

Ок, ладно, но почему условие срабатывает, если имя метода не находит?
...
Рейтинг: 0 / 0
08.11.2018, 11:59
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729888
Cobalt747
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cobalt747
Участник
X11Ок, ладно, но почему условие срабатывает, если имя метода не находит?
Скорее всего. косяк отладчика.
Сделай вывод в лог, наверняка там будет все правильно.
...
Рейтинг: 0 / 0
08.11.2018, 13:22
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729891
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
нифигасебе косяк... это довольно серьёзно
...
Рейтинг: 0 / 0
08.11.2018, 13:30
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729897
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Ок, я перенес нужные методы в public.
Теперь нужный метод найден, но...

exceptionProject raised exception class EInvalidCast with message 'Invalid class typecast'
на вот этой строке
Код: pascal
1.
rmethod.Invoke(Self, TArray<TValue>.Create(TValue.From<string>(AMessage.Text), TValue.From<string>(AMessage.From.ID.ToString)));
...
Рейтинг: 0 / 0
08.11.2018, 13:34
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729899
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Наглядное пособие переинженеринга -- как вот эта простая конструкция:
Код: pascal
1.
bot.Callback(params);


превратилась вот в этого монстра:
Код: pascal
1.
rmethod.Invoke(Self, TArray<TValue>.Create(TValue.From<string>(AMessage.Text), TValue.From<string>(AMessage.From.ID.ToString)));
...
Рейтинг: 0 / 0
08.11.2018, 13:38
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729903
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
JaDi, сперва нужно сделать, чтобы "заработало" пусть даже и в виде монстра, а потом уже и причесать можно.
...
Рейтинг: 0 / 0
08.11.2018, 13:46
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729917
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
X11Ок, я перенес нужные методы в public.
Теперь нужный метод найден, но...

exceptionProject raised exception class EInvalidCast with message 'Invalid class typecast'
на вот этой строке
Код: pascal
1.
rmethod.Invoke(Self, TArray<TValue>.Create(TValue.From<string>(AMessage.Text), TValue.From<string>(AMessage.From.ID.ToString)));


У вас в вашем методе, оба параметра типа string ?
Передавайте те значения параметров и того типа, что в методе
...
Рейтинг: 0 / 0
08.11.2018, 14:03
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729921
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
X11,

видимо, я что-то пропустил -- чем не устроила универсальная модель, когда на вход обработчику подаются параметры в универсальном виде типа строки/списка/json'а?
...
Рейтинг: 0 / 0
08.11.2018, 14:08
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729923
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
JaDiчем не устроила универсальная модель, когда на вход обработчику подаются параметры в универсальном виде типа строки/списка/json'а?
Поддерживаю.
Первое слово всегда команда, остальное, если есть, параметры.
В обработчик команды передаются только параметры.

К чему эти огороды?
...
Рейтинг: 0 / 0
08.11.2018, 14:11
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729936
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
X-CiteУ вас в вашем методе, оба параметра типа string ?

блиииииииииииииин

Код: pascal
1.
PcmdStart(const sCmd: string; User: ItgUser);
...
Рейтинг: 0 / 0
08.11.2018, 14:26
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729940
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
переделал на
From: ItgUser

Код: pascal
1.
2.
3.
    if Assigned(rmethod) then
      rmethod.Invoke(rmethod.CodeAddress, TArray<TValue>.Create(TValue.From<string>(AMessage.Text),
                                              TValue.From<ItgUser>(AMessage.From)));



всё равно Invalid class typecast
...
Рейтинг: 0 / 0
08.11.2018, 14:31
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729942
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
wadmanJaDiчем не устроила универсальная модель, когда на вход обработчику подаются параметры в универсальном виде типа строки/списка/json'а?
Поддерживаю.
Первое слово всегда команда, остальное, если есть, параметры.
В обработчик команды передаются только параметры.

К чему эти огороды?

1. Первым словом может быть не /команда, а просто текст какой-нибудь. И тоже нужно обработать.
2. Если всё же /команда, то нужно понять, что именно за команда и вызвать соответствующую процедуру, передав ей ВЕСЬ текст, например, "/Показать 15973".

Вроде бы я никуда не отклонялся. Пытаюсь сделать универсальную масштабируемую модель.
...
Рейтинг: 0 / 0
08.11.2018, 14:35
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729946
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
X11И тоже нужно обработать.
Боты без команд не работают. По меньшей мере я не сталкивался.

Ну или пример "какого-нибудь" текста? Из жизни, по возможности.
...
Рейтинг: 0 / 0
08.11.2018, 14:37
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729952
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
wadman, работают ещё как


Что такое "команда боту"? Это то, что ты САМ, как программист, запрограммируешь в бота, т.е. любое сочетание любых символов. Это же просто текст. Просто есть какие-то общепринятые нормы и понятия.

Бот ведь работает не на их стороне, т.е. не на стороне Вайбера или Телеграма, а на твоей. Сервер тебе просто пересылает то, что напечатал/выбрал пользователь.

Никто не запрещает сделать так, что команды будут начинаться не чертой /, а * звёздочкой, например. Или вообще без таковых. Например, боты с ИИ: ты ему пишешь текст, а он отвечает, разобрав текст предварительно. Например, пишешь "какая сейчас погода в Харькове", а бот лезет в сеть, получает данные и отвечает "такая-то погода". И нет никаких команд, разве не так?

ну как-то так
...
Рейтинг: 0 / 0
08.11.2018, 14:47
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729955
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
wadmanНу или пример "какого-нибудь" текста? Из жизни, по возможности.

Есть идея запилить приём текстовых объявлений на какой-нибудь портал: автомобильный или по недвижимости типа вашего Авито или нашего OLX, хотя это одно и то же (владелец из Южной Африки - Насперс).

Распарсил текст, разбил на части: тип, цена, район, площади, коробка передач, размер трусов, фокусное расстояние объектива и т.д.
И не надо никаких команд.
...
Рейтинг: 0 / 0
08.11.2018, 14:50
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729961
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
X11Например, пишешь "какая сейчас погода в Харькове", а бот лезет в сеть, получает данные и отвечает "такая-то погода". И нет никаких команд, разве не так?
Тогда и не нужно никакого списка с командами и методами?

Изначально-то тема касалась именно списка команд. А тут уже и ИИ вылез и скоро тело прикрутим. Женское. :)
...
Рейтинг: 0 / 0
08.11.2018, 14:54
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729962
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
X111. Первым словом может быть не /команда, а просто текст какой-нибудь. И тоже нужно обработать.
2. Если всё же /команда, то нужно понять, что именно за команда и вызвать соответствующую процедуру, передав ей ВЕСЬ текст, например, "/Показать 15973".

Вроде бы я никуда не отклонялся. Пытаюсь сделать универсальную масштабируемую модель.

Было еще в самом начале 21717308

Менеджер определяет, что за команда и отправляет ее нужному боту:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
procedure TBotsManager.ProcessCommand(const ACommandLine: string);
var
  commandName: string;
  commandParams: string;
  foundedWorker: TBotWorker;
  s: string;
  res: string;
begin
  s := Trim(ACommandLine);
  if s.IndexOf(' ') >= 0 then
  begin
    commandName := AnsiLowerCase(trim(s.Substring(0, s.IndexOf(' '))));
    commandParams := trim(s.Substring(commandName.Length + 1));
  end
  else
  begin
    commandName := AnsiLowerCase(s);
    commandParams := '';
  end;

  if Self.CommandsList.TryGetValue(commandName, foundedWorker) then
  begin
    res := '';
    foundedWorker(commandParams, res);
    ShowMessage(res);
  end
  else
  begin
    ShowMessage('unknown command: ' + commandName);
  end;
end;
...
Рейтинг: 0 / 0
08.11.2018, 14:55
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729968
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
wadmanТогда и не нужно никакого списка с командами и методами?

это уже сам программист решает, мне - нужно
...
Рейтинг: 0 / 0
08.11.2018, 15:01
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729970
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
JaDiБыло еще в самом начале 21717308

Менеджер определяет, что за команда и отправляет ее нужному боту:

да не проблема....
проблема в том, когда пользователь скажет, что "я хочу, чтобы бот выполняет вот это запрограммированное действие на три похожие команды" и что, мне каждый раз добавлять и перекомпилировать?
...
Рейтинг: 0 / 0
08.11.2018, 15:03
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729975
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
X11переделал на
From: ItgUser

Код: pascal
1.
2.
3.
    if Assigned(rmethod) then
      rmethod.Invoke(rmethod.CodeAddress, TArray<TValue>.Create(TValue.From<string>(AMessage.Text),
                                              TValue.From<ItgUser>(AMessage.From)));



всё равно Invalid class typecast

Код: pascal
1.
rmethod.Invoke(rmethod.CodeAddress


Вы читали хелп? Что идет первым параметром?
Если у вас метод класса, то надо передать Указатель на экземпляр класса в контексте которого будет вызываться метод
Если у вас классовый метод, то надо передать сам класс
...
Рейтинг: 0 / 0
08.11.2018, 15:06
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729982
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
X11и что, мне каждый раз добавлять и перекомпилировать?
Есть иные способы? Разве что на сервер отправлять, вот и весь бот.
...
Рейтинг: 0 / 0
08.11.2018, 15:11
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729983
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
X-Cite, т.е. просто self вписать?
...
Рейтинг: 0 / 0
08.11.2018, 15:15
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729984
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
X-Cite, спасибо, теперь дошло

Код: pascal
1.
2.
3.
    if Assigned(rmethod) then
      rmethod.Invoke(self, TArray<TValue>.Create(TValue.From<string>(AMessage.Text),
                                              TValue.From<ItgUser>(AMessage.From)));
...
Рейтинг: 0 / 0
08.11.2018, 15:16
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729985
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
wadman,

да, я же уже запилил.
...
Рейтинг: 0 / 0
08.11.2018, 15:17
| Ответить | Цитировать | Написать  
Дженерики: передача процедуры в качестве параметра
    #39729990
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
wadman, на предыдущих страницах я показывал скрины. Идея в том, что у дерева есть корневые узлы - это действия, к которым привязаны методы (процедуры), т.е. то, что умеет бот. Дочерние узлы - это команды. Команды пользователь может редактировать (добавлять, удалять, переименовывать, отключать, включать)



т.е. можно сделать так, что если первое или единственное слово, полученное ботом, будет не "/старт", а "старт", то его тоже можно обработать, так же, как и "/start". Для этого пользователь просто добавляет узел см текстом "старт" в качестве дочернего к корневому "СТАРТ".
...
Рейтинг: 0 / 0
08.11.2018, 15:24
| Ответить | Цитировать | Написать  
25 сообщений из 108, страница 4 из 5
  4  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Дженерики: передача процедуры в качестве параметра
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39729955&tid=2038887]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 155ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 83ms
get tp. blocked users:
 1ms
others: 210ms
total:  488ms
созд. / загр.: 488ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]