| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Интерфейсы

Hammer1 ©   (2002-10-04 16:42:00) 

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

---

Hammer1   (2002-10-07 11:45:00) [1]

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

---

MBo   (2002-10-04 18:58:00) [2]

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

---

Hammer1   (2002-10-04 18:46:00) [3]

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

---

Digitman   (2002-10-04 17:55:00) [4]

Ну так ?

Строчка

s:=sr.Get_DefaultServer

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

---

Hammer1   (2002-10-04 17:43:00) [5]

Код ниже. смыс в том что 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:22:00) [6]

>Hammer1

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

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

---

Hammer1   (2002-10-04 17:07:00) [7]

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

---

Digitman   (2002-10-04 16:45:00) [8]

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


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

---

Наверх