Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Вниз
Интерфейсы Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
