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

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

Чем отличаются проекты [D6, Win2k]

Андрусь ©   (2002-09-27 12:22:00) 

Привет всем! Посоветуйте что мне делать:есть 2 проекта, к ним подцеплены одинаковые модули.Настройки проектов не трогаю - всё идет по умолчанию.В модулях: в главном TOraSession + кнопка для создания формы из 2-го модуля. Во втором - OraSession, Query,DataSourse,Grid.На криэте беру коннект и открываю Query.

unit Unit1;//fsMDIForm
.......................
type
TMainForm = class(TForm)
Button1: TButton;
MainOraSession: TOraSession;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

Uses Unit2;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
MainOraSession.Connect;
end;

procedure TMainForm.Button1Click(Sender: TObject);
var Form2:TForm2;
begin
Form2:=TForm2.Create(Application);
end;


{***********************************************}
unit Unit2;//fsMDIChild
.......................
type
TForm2 = class(TForm)
OraSession1: TOraSession;
SmartQuery1: TSmartQuery;
OraDataSource1: TOraDataSource;
dxDBGrid1: TdxDBGrid;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

implementation

Uses Unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
OraSession1.Assign(MainForm.MainOraSession);
With OraSession1 Do
Begin
ConnectPrompt:=False;
Connect;
End;
SmartQuery1.Open;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

end.

Так вот в одном проекте при закрытии вылетает CPU окно,в другом нет.
В чем может быть дело.Зараннее всем большое спасибо!

---

alena.svt   (2002-09-27 16:32:00) [1]

Извините если не в тему плиз, но у меня подобные траблы случаются в очень простеньких отработанных кодах. И причем только в Win2k окно cpu
Но вне среды разработки все нормально. Если конечно у вас и без дельфей ошибочка вылетает то извините за беспокойство.

---

Рыжик   (2002-09-27 16:17:00) [2]

Либо сами проекты друг от друга чем-то всё-таки отличаются, либо ошибка такова, что возникает не каждый раз. Если проект с ошибкой выдаёт ошибку всегда, а проект без ошибки всегда работает без ошибки, то "Найди 7 отличий"

---

Андрусь   (2002-09-27 16:11:00) [3]

Да мультисейсионный режим обязателен.

---

Рыжик   (2002-09-27 15:41:00) [4]

А использование во второй форме ещё одного TOraSession обязательно? Может можно обойтись обним?

---

Андрусь   (2002-09-27 15:33:00) [5]

Беру чистые(новые) формы,собераю всё снова - в нек. проектах получаю глюк, в нек. нет. Следовательно, скорей всего глючит компонент.

---

Cobalt   (2002-09-27 13:36:00) [6]

Попробуй пересобрать все *.dcu...

---

Наверх