SQLRU.net: Delphi » Обработать результат функции, возвращаемый в виде интерфейса

Начало » Программирование » Delphi » Обработать результат функции, возвращаемый в виде интерфейса

Показать: Сегодняшние сообщения :: Голосования :: Навигатор по сообщениям
Отправить по e-mail

Обработать результат функции, возвращаемый в виде интерфейса [сообщение #2778]

Sat, 15 July 2023 21:10

rico_spb
Сообщений: 8
Зарегистрирован: July 2023

Junior Member

Добрый день, коллеги!
Волею судеб спустя много лет пришлось вновь вспоминать навыки в Delphi, но с интерфейсами ранее сталкиваться не приходилось, а на свежую немолодую голову врубиться в них пока не получается.
Нужно прикрутить к очень старому проекту бота Telegram. Пытаюсь разобраться с TelegaPI от rareMaxim

Бот объявлен так:

CODE: [Выделить все] [Показать / скрыть]

fBot: TTelegramBotApi;

Нужно обработать результат вызова

CODE: [Выделить все] [Показать / скрыть]

fBot.SendMessage(lMsg)

который объявлен так

CODE: [Выделить все] [Показать / скрыть]

function TTelegramBotApi.SendMessage(ASendMessageArgument: TtgSendMessageArgument): ItgResponse<TtgMessage>;

  ItgResponse<T> = interface(ItgResponseBase)
    ['{B98FE3AF-73DF-4A1D-BC25-C36EA264055B}']
    // private
    function GetResult: T;
    procedure SetResult(const Value: T);
    function GetResponse: IcaResponseBase;
    procedure SetResponse(const Value: IcaResponseBase);
    // public
    /// <summary>
    /// Gets the result object.
    /// </summary>
    property Result: T read GetResult write SetResult;
    property CloudResponse: IcaResponseBase read GetResponse write SetResponse;
  end;

  ItgResponseBase = interface
    ['{1657D8E5-0B41-4983-B1BE-443A266CFD40}']
    // private
    function GetDescription: string;
    function GetErrorCode: Integer;
    function GetOk: Boolean;
    procedure SetDescription(const Value: string);
    procedure SetErrorCode(const Value: Integer);
    procedure SetOk(const Value: Boolean);
    function GerParameters: TtgResponseParameters;
    // public
    property Description: string read GetDescription write SetDescription;
    property ErrorCode: Integer read GetErrorCode write SetErrorCode;
    property Ok: Boolean read GetOk write SetOk;
    property Parameters: TtgResponseParameters read GerParameters;
  end;

Как это сделать?

Известить модератора