Текущий архив: 2002.10.17;
Скачать: CL | DM;

Вниз

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

← →
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

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

---

← →
Hammer1 ©   (2002-10-04 18:46) [6]

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

---

← →
MBo ©   (2002-10-04 18:58) [7]

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

---

← →
Hammer1 ©   (2002-10-07 11:45) [8]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.17;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.018 c