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

Вниз

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;
Скачать: CL | DM;

Наверх

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