Начало » Программирование » Delphi » Обработать результат функции, возвращаемый в виде интерфейса
Обработать результат функции, возвращаемый в виде интерфейса [сообщение #2778] |
Sat, 15 July 2023 21:10 |
rico_spb
Сообщений: 8 Зарегистрирован: July 2023
|
Junior Member |
|
|
Добрый день, коллеги!
Волею судеб спустя много лет пришлось вновь вспоминать навыки в Delphi, но с интерфейсами ранее сталкиваться не приходилось, а на свежую немолодую голову врубиться в них пока не получается.
Нужно прикрутить к очень старому проекту бота Telegram. Пытаюсь разобраться с TelegaPI от rareMaxim
Бот объявлен так:
Нужно обработать результат вызова
который объявлен так
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;
Как это сделать?
|
|
|
Переход к форуму:
Текущее время: Fri Nov 22 17:21:26 GMT+3 2024
Общее время, затраченное на создание страницы: 0.01026 секунд
|