Интерфейсы

← →
Hammer1 © (2002-10-04 16:42) [0]

Имеются подключенные интерфейсы. Как присвоить переменной определенный интерфейс.

← →
Digitman © (2002-10-04 16:45) [1]

> подключенные интерфейсы

Как это понимать ?

← →
Hammer1 © (2002-10-04 17:07) [2]

Подключены библиотеки DLL в которых они определены.

← →
Digitman © (2002-10-04 17:22) [3]

>Hammer1

Что значит - "подключены библиотеки" ? OLB/TLB что ли ? Или - какие ?

Ты бы код привел ... который у тебя "подключает интерфейс" ..

← →
Hammer1 © (2002-10-04 17:43) [4]

Код ниже. смыс в том что server является наследником интерфейса servers. Для нормальной работы программы необходимо присвоить Server одино из значений Servers.
есть рабочий пример на VB на котором это реализовано в следующем виде
set s = servers.defaultserver.
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, pisdk_tlb, pitimeserver_tlb, OleCtrls, PISDKCtl_TLB; type TForm1 = class(TForm) Button1: TButton; PISrvPickList1: TPISrvPickList; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var s:server; sr:servers; begin try s:=sr.Get_DefaultServer; except ShowMessage("

← →
Digitman © (2002-10-04 17:55) [5]

Ну так ?

Строчка

s:=sr.Get_DefaultServer

и делает то, что заключено в твоем вопросе. Какая проблема-то ?

Программа выдает ошибку чтения по адресу "0000000"

А создавать sr разве не нужно?

Всем спосибо за помощь. После совета МВо немного подумав я разрешил эту проблему.

Интерфейсы Найти похожие ветки