ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Интерфейс с перегруженными функциями и его реализация
21 сообщений из 21, страница 1 из 1
Интерфейс с перегруженными функциями и его реализация
    #39565685
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
Доброго дня, коллеги.
первый вариант интерфейса
Код: pascal
1.
2.
3.
4.
IConfigController = interface(IInterface)
    procedure Load(const AType: string; ADest: TMemIniFile); stdcall;
    function Save(const AType: string; ASource: TMemIniFile): boolean;  stdcall;
  end;


и объявление в классе
Код: pascal
1.
2.
3.
4.
5.
{IConfigController}
    procedure IConfigController.Load = LoadConfigFile;
    function IConfigController.Save =  SaveConfigFile;
    procedure LoadConfigFile(const AType: string; ADest: TMemIniFile); stdcall;
    function SaveConfigFile(const AType: string; ASource: TMemIniFile): boolean;  stdcall;


Второй вариант интерфейса
Код: pascal
1.
2.
3.
4.
5.
6.
IConfigController = interface(IInterface)
    procedure Load(const AType: string; ADest: TStrings);overload; stdcall;
    function Save(const AType: string; ASource: TStrings): boolean; overload; stdcall;
    procedure Load(const AType: string; ADest: TMemIniFile);overload; stdcall;
    function Save(const AType: string; ASource: TMemIniFile): boolean; overload; stdcall;
  end;


и объявление в классе
Код: pascal
1.
2.
3.
4.
5.
6.
7.
{IConfigController}
    procedure IConfigController.Load = LoadConfigFile;
    function IConfigController.Save =  SaveConfigFile;
    procedure LoadConfigFile(const AType: string; ADest: TStrings);overload; stdcall;
    function SaveConfigFile(const AType: string; ASource: TStrings): boolean; overload; stdcall;
    procedure LoadConfigFile(const AType: string; ADest: TMemIniFile);overload; stdcall;
    function SaveConfigFile(const AType: string; ASource: TMemIniFile): boolean; overload; stdcall;


Понятно, что компилятор пошлет в пеший тур ибо замыкание функций на интерфейс не корректно.
Именование функций в интерфейсе нужно оставить именно таким. В классе тоже, т.к. он здоровый и всяких load/save там куча
Без костыля в виде отдельного класса никак?
...
Рейтинг: 0 / 0
07.12.2017, 11:41
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565691
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Что мешает вместо Load использовать более осмысленное название процедуры (ConfigLoad)?
...
Рейтинг: 0 / 0
07.12.2017, 11:45
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565700
AX-Class
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AX-Class
Участник
Олег Третьяков,
Т.е., как заменить
Код: pascal
1.
procedure IConfigController.Load = LoadConfigFile;

на
Код: pascal
1.
2.
3.
4.
5.
6.
procedure Load(const AType: string; ADest: TStrings);overload; stdcall;
...
procedure Load(const AType: string; ADest: TStrings);
begin
  LoadConfigFile(AType, ADest);
end;


но, чтоб было меньше букв?
...
Рейтинг: 0 / 0
07.12.2017, 11:52
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565724
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
wadman,
на мой взгляд не комильфо далее будет ConfigController.configLoad. дважды config - как то не айс
AX-Class,
Речь идет о синтаксисе замыкания перегруженных функций в интерфейсе на их псевдонимы реализации в классе. И да, чтоб меньше букв)
...
Рейтинг: 0 / 0
07.12.2017, 12:08
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565767
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
Олег Третьяков, а зачем в классе нужен именно overload Load/SaveConfigFile?
...
Рейтинг: 0 / 0
07.12.2017, 12:49
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565791
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
GunSmoker,
Именно overload?.. В классе?....
Мм.. не уловил изюмину вопроса.
Я правда уже поломал код и нарисовал класс-костыль.
...
Рейтинг: 0 / 0
07.12.2017, 13:07
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565800
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
GunSmoker,
Пес ними, именами, но сигнатуры разве не должны совпадать в интерфейсе и в классе?
...
Рейтинг: 0 / 0
07.12.2017, 13:17
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565831
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
Олег Третьяков, я, мож, вопрос не уловил, но:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
    procedure LoadConfigFile1(const AType: string; ADest: TStrings); stdcall;
    function SaveConfigFile1(const AType: string; ASource: TStrings): boolean; stdcall;
    procedure LoadConfigFile2(const AType: string; ADest: TMemIniFile); stdcall;
    function SaveConfigFile2(const AType: string; ASource: TMemIniFile): boolean; stdcall;
    procedure IConfigController.Load = LoadConfigFile1;
    function IConfigController.Save =  SaveConfigFile1;
    procedure IConfigController2.Load = LoadConfigFile2;
    function IConfigController2.Save =  SaveConfigFile2;
...
Рейтинг: 0 / 0
07.12.2017, 13:55
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565841
Фотография Dimonka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimonka
Участник
Ещё можно подумать в другом направлении, например можно сделать класс-адаптер для разных типов источника данных, а Load/Save сделать работающим с адаптером. Тогда в классе достаточно оставить методы Load/Save:
Код: pascal
1.
2.
3.
4.
IConfigController = interface(IInterface)
    procedure Load(const AType: string; ADest: TMyDataSource); stdcall;
    function Save(const AType: string; ASource: TMyDataSource): boolean;  stdcall;
  end;

А уже в TMyDataSource прописать работу с разными источниками данных.
...
Рейтинг: 0 / 0
07.12.2017, 13:59
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565849
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
GunSmoker,
Это разнос на два интерфейса.
Ну да, не уловил.
Хочу реализовать в одном интерфейсе более одного вариантов функции. В классе именовать с префиксом имени интерфейса.
...
Рейтинг: 0 / 0
07.12.2017, 14:06
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565889
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
Dimonka,
Не хотел городить адаптер, видимо придется, с маршрутизацией через QueryInterface. Благо используемого функционала, теперь уже владельца, не много.
офф: торможу с участием, т.к. сегодня баги с электричеством офисе, бесперебойники пищат, приходится выключаться.
...
Рейтинг: 0 / 0
07.12.2017, 14:32
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565908
Кар-Кар
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кар-Кар
Участник
Очевидно не работает.
Может хаком тогда, дублирование. Внутри юнита, где класс реализовывается делаем копипаст здорового интерфейса и..

Код: pascal
1.
2.
3.
4.
5.
6.
7.
IConfigController = interface(IInterface)
['{F4BAACCE-328C-4038-8184-DE1ACECF881E}']
  procedure Load_Strings(const AType: string; ADest: TStrings);overload; stdcall;
  function Save_Strings(const AType: string; ASource: TStrings): boolean; overload; stdcall;
  procedure Load_Ini(const AType: string; ADest: TMemIniFile);overload; stdcall;
  function Save_Ini(const AType: string; ASource: TMemIniFile): boolean; overload; stdcall;
end;

Его и реализуем, наружу хард кастим. Главное чтоб GUID был одинаковым!
...
Рейтинг: 0 / 0
07.12.2017, 14:50
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565931
Кар-Кар
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кар-Кар
Участник
Т.е. будет внутри скрытый интерфейс с тем же GUID и нужным именованием методов:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
IConfigControllerInternal = interface(IInterface)
['{F4BAACCE-328C-4038-8184-DE1ACECF881E}']
  procedure IConfigController_Load(const AType: string; ADest: TStrings);overload; stdcall;
  function IConfigController_Save(const AType: string; ASource: TStrings): boolean; overload; stdcall;
  procedure IConfigController_Load(const AType: string; ADest: TMemIniFile);overload; stdcall;
  function IConfigController_Save(const AType: string; ASource: TMemIniFile): boolean; overload; stdcall;
end;

TMyClass = class(TInterfacedObject, IConfigControllerInternal)
public
  procedure IConfigController_Load(const AType: string; ADest: TStrings);overload; stdcall;
  function IConfigController_Save(const AType: string; ASource: TStrings): boolean; overload; stdcall;
  procedure IConfigController_Load(const AType: string; ADest: TMemIniFile);overload; stdcall;
  function IConfigController_Save(const AType: string; ASource: TMemIniFile): boolean; overload; stdcall;
end;

function CreateConfigController:IInterface;
begin
TConfigController.Create.QueryInterface(IConfigController{IConfigControllerInternal},Result);
end;

exports
CreateConfigController;


А снаружи для человеков будет:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
IConfigController = interface(IInterface)
['{F4BAACCE-328C-4038-8184-DE1ACECF881E}']
  procedure Load(const AType: string; ADest: TStrings);overload; stdcall;
  function Save(const AType: string; ASource: TStrings): boolean; overload; stdcall;
  procedure Load(const AType: string; ADest: TMemIniFile);overload; stdcall;
  function Save(const AType: string; ASource: TMemIniFile): boolean; overload; stdcall;
end;

function CreateConfigController:IConfigController;external 'MyLib.dll';


VMT совпадает, главное держать синхронно оба в случае изменений.
...
Рейтинг: 0 / 0
07.12.2017, 15:07
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565967
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
Кар-Кар,
В топку поддержание синхронности)
Вынес в отдельный класс, имхо меньшее зло
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
TConfigController = class(TComponent,
                            IConfigController)
   public
    procedure Load(const AType: string; ADest: TMemoryStream);overload; stdcall;
    function Save(const AType: string; ASource: TMemoryStream): boolean; overload; stdcall;
    procedure Load(const AType: string; ADest: TStrings);overload; stdcall;
    function Save(const AType: string; ASource: TStrings): boolean; overload; stdcall;
    procedure Load(const AType: string; ADest: TMemIniFile);overload; stdcall;
    function Save(const AType: string; ASource: TMemIniFile): boolean; overload; stdcall;
  end;


в классе-владельце
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
function TBaseClass.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if IsEqualGUID(IID, IConfigController) then
  begin
    if Assigned(fConfigController) then
      Result := fConfigController.QueryInterface(IID, Obj)
    else
      Result := E_NOINTERFACE;
    Exit;
  end else
    Result := inherited QueryInterface(IID, Obj);
end;

...
Рейтинг: 0 / 0
07.12.2017, 15:34
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39565980
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Олег Третьяковв классе-владельцеА почему бы не сделать через property implements? Смысл тот же, а кода меньше. И в новых делфях QueryInterface будет работать в обе стороны
...
Рейтинг: 0 / 0
07.12.2017, 15:42
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39566010
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
_Vasilisk_,
Привычка.
Да, можно, согласен.
_Vasilisk_ И в новых делфях QueryInterface будет работать в обе стороны
Эм, интересно. Даже рекурсии не возникает? Можно ссылко с деталями?
...
Рейтинг: 0 / 0
07.12.2017, 16:04
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39566127
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Олег ТретьяковМожно ссылко с деталями? тынц
...
Рейтинг: 0 / 0
07.12.2017, 17:53
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39568144
Hammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hammer
Участник
Типа так?:
 

Код: 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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
unit UConfigController;

interface

uses Classes, IniFiles;

type
  IConfigController = interface(IInterface)
    ['{0D874EC8-386A-4CB8-B37B-34FD485BEC98}']
    procedure LoadMemIniFile(const AType: string; ADest: TMemIniFile); stdcall;
    function SaveMemIniFile(const AType: string; ASource: TMemIniFile): boolean; stdcall;
    procedure LoadStrings(const AType: string; ADest: TStrings); stdcall;
    function SaveStrings(const AType: string; ASource: TStrings): boolean; stdcall;
    procedure Load(const AType: string; ADest: TObject); stdcall;
    function Save(const AType: string; ASource: TObject): boolean; stdcall;
  end;

  TConfigController = class(TInterfacedObject,
                            IConfigController)
  private
    procedure LoadMemIniFile(const AType: string; ADest: TMemIniFile); stdcall;
    function SaveMemIniFile(const AType: string; ASource: TMemIniFile): boolean; stdcall;
    procedure LoadStrings(const AType: string; ADest: TStrings); stdcall;
    function SaveStrings(const AType: string; ASource: TStrings): boolean; stdcall;
  public
    procedure Load(const AType: string; ADest: TObject); stdcall;
    function Save(const AType: string; ASource: TObject): boolean; stdcall;
  public
    class function GetConfigController: IConfigController;
  end;

implementation

{ TConfigController }

class function TConfigController.GetConfigController: IConfigController;
begin
  Result := TConfigController.Create;
end;

procedure TConfigController.Load(const AType: string; ADest: TObject);
begin
  if ADest.InheritsFrom(TMemIniFile) then
    LoadMemIniFile(AType, TMemIniFile(ADest))
  else
    if ADest.InheritsFrom(TStrings) then
      LoadStrings(AType, TStrings(ADest))
end;

procedure TConfigController.LoadMemIniFile(const AType: string;
  ADest: TMemIniFile);
begin
//
end;

procedure TConfigController.LoadStrings(const AType: string; ADest: TStrings);
begin
//
end;

function TConfigController.Save(const AType: string; ASource: TObject): boolean;
begin
  Result := False;
  if ASource.InheritsFrom(TMemIniFile) then
    Result := SaveMemIniFile(AType, TMemIniFile(ASource))
  else
    if ASource.InheritsFrom(TStrings) then
      Result := SaveStrings(AType, TStrings(ASource))
end;

function TConfigController.SaveMemIniFile(const AType: string;
  ASource: TMemIniFile): boolean;
begin
  Result := False;
end;

function TConfigController.SaveStrings(const AType: string;
  ASource: TStrings): boolean;
begin
  Result := False;
end;

end.


...
Рейтинг: 0 / 0
12.12.2017, 10:39
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39568474
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
Hammer,
Нет. см. выше.
...
Рейтинг: 0 / 0
12.12.2017, 16:56
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39568624
Hammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hammer
Участник
Олег ТретьяковHammer,
Нет. см. выше.
Хозяин-барин.
Надеюсь, что он в курсе того, что TComponent не поддерживает подсчет ссылок.
...
Рейтинг: 0 / 0
12.12.2017, 19:37
| Ответить | Цитировать | Написать  
Интерфейс с перегруженными функциями и его реализация
    #39568671
Олег Третьяков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег Третьяков
Участник
Hammer,
Есно)
...
Рейтинг: 0 / 0
12.12.2017, 21:00
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Интерфейс с перегруженными функциями и его реализация
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=122&tid=2041442]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 81ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 237ms
total:  425ms
созд. / загр.: 425ms
x
x
Закрыть


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