Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
ВнизCannot load package ! Найти похожие ветки
← →
Dimedrol (2003-05-27 12:31) [0]Коллеги, вот делаю packages...
В 1 package загружается формочка, там жму кнопочку
и делается простенький селект из IB базы.
Все ОК. Все работает. Загружается-выгружается.
Делаю 2-й package для того же самого только из MSSQL,
а прога говорит -
Cannot load package "mssql".
It contains unit "Controls", which also contained in package "vcl60"
Что за фигня ???
Я проверил секции USES в обоих packages.
Там все идентично.
1-я package во время этой ошибки не загружена,
то есть гружу один пакет в 1 и тот же момент времени.
Что делать ?
← →
Dimedrol (2003-05-27 13:28) [1]Вот шапка первого- нормального пакета, где все ОК !
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, CommonInterfaces;
type
Ttestiface1 = class(TForm,IModuleInit)
DoSelect: TButton;
FindObject: TButton;
QMain: TButton;
procedure DoSelectClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FindObjectClick(Sender: TObject);
procedure QMainClick(Sender: TObject);
private
{ Private declarations }
// ITERFACE !!!
function NeedShow:shortint;
function ModalShow:integer;
public
{ Public declarations }
end;
var
testiface1: Ttestiface1;
implementation
uses Unit2;
{$R *.dfm}
function Ttestiface1.NeedShow:shortint;
begin
Result:=1; // yes! show this form ! (Interface realization)
end;
Вот конец первого- нормального пакета, где все ОК !
initialization
RegisterClass(Ttestiface1);
finalization
UnRegisterClass(Ttestiface1);
end.
Вот шапка второго пакета, который не грузиться:
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, CommonInterfaces;
type
TMSSQL1 = class(TForm,IMSSQL)
Database1: TDatabase;
Query11: TQuery;
private
{ Private declarations }
// ITERFACE !!!
function DB1_Init(const Alias,Login,Password,DB:string):boolean;
function DB1_Connect:boolean;
procedure DB1_DisConnect;
function DB1_Get1Value1(const SQL:string):Variant;
function DB1_ExecSQL(const SQL:string):boolean;
procedure DB1_OpenSQL(const SQL:string);
procedure DB1_CloseSQL;
function DB1_GetValue(Row,Column:integer):Variant;
public
{ Public declarations }
end;
var
MSSQL1: TMSSQL1;
implementation
{$R *.dfm}
function TMSSQL1.DB1_Init(const Alias,Login,Password,DB:string):boolean;
begin
try
Database1.AliasName:=Alias;
Database1.DatabaseName:=DB;
Database1.LoginPrompt:=false;
Database1.Params.Values["USER NAME"] := Login;
Database1.Params.Values["PASSWORD"] := Password;
Query11.DatabaseName:=DB;
Result:=true;
except
on E:Exception do
begin
MessageBox(0,PCHAR(E.Message), "MSSQL returned error:", MB_OK+MB_ICONERROR+MB_SYSTEMMODAL);
Result:=false;
end;
end;
end;
Вот конец второго пакета, который не грузиться:
initialization
RegisterClass(TMSSQL1);
finalization
UnRegisterClass(TMSSQL1);
end.
Вот общий модуль CommonInterfaces.pas:
unit CommonInterfaces;
interface
type
IModuleInit = interface
["{F64A7A46-5040-4551-A276-1E98E8F67F13}"]
function NeedShow:shortint;
function ModalShow:integer;
end;
IMainApp = interface
["{F64A7A47-5040-4551-A276-1E98E8F67F13}"]
procedure Touch(const s:string);
end;
IMSSQL = interface
["{79AE580C-655D-4242-B330-D60F855595EA}"]
function DB1_Init(const Alias,Login,Password,DB:string):boolean;
function DB1_Connect:boolean;
procedure DB1_DisConnect;
function DB1_Get1Value1(const SQL:string):Variant;
function DB1_ExecSQL(const SQL:string):boolean;
procedure DB1_OpenSQL(const SQL:string);
procedure DB1_CloseSQL;
function DB1_GetValue(Row,Column:integer):Variant;
end;
implementation
end.
Где же я накозлил ?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c