| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Добавление своего метода в интерфейс сервера ?? [D7, IB6.x]
Yagoda © (2004-05-19 09:22:00)Уважаемые знатоки есть сервер (технология MIDAS), нужно добавить свой метод в сервер (ну к примеру функция которая бы возвращала строку клиенту) и вызвать его с клиента ? Не подскажете как это сделать ?
31512 (2004-05-19 09:52:00) [1]Да, и посмотри ещё тут
http://rsdn.ru/article/db/midas.xml/
+ Тейксейра с Пачекой - Глава 32 из DELPHI 5 Руководства разработчика, том 2
Goffman (2004-05-19 09:47:00) [2]Открываешь в Delphi свой DataModule и открываешь редактор библиотеки типов меню View -> Type Library. А там уж легко :)
31512 (2004-05-19 09:45:00) [3]Предлагаю:
Открываешь *_TLB.pas файл. Вместе с ним открывается форма для редактирования (дерево там такое ещё есть). Добавляешь метод, сохраняешь, регистрируешь. Для простоты копируешь *_TLB.pas файл к клиенту, прописываешь его в uses. На клиенте можно написать так:
function Server_MyMethod : string;
var
AServer : Iкак_там_это_у_тебя_называетсяDisp;
OutStr : string;
begin
AServer := Iкак_там_это_у_тебя_называетсяDisp(какой-то_Connection.GetServer);
AServer.MyMethod(OutStr);
Result := OutStr;
end;
много зависит от контекста задачи.
| |
