Скачать: CL | DM;

10g Express edition & DOA 4.0.7 - проблема с коннектом.   Найти похожие ветки 

← →
tytus ©   (2006-12-25 11:53) [0]

Удалено модератором
Примечание: Восстановление закрытой ветки

---

← →
Sergey13 ©   (2006-12-25 13:13) [1]

ну так нашел же проблему - ворованная версия.
http://delphimaster.net/view/3-1166797458/

---

← →
tytus ©   (2006-12-25 13:20) [2]

>Sergey13 [1]
Поставил НЕ ворованную версию - Unlimited.
Та же фигня. Может снести делфи и поновой все с новой версией?

---

← →
zdm ©   (2006-12-25 13:21) [3]

> tytus ©   (25.12.06 13:20) [2]

:)

---

← →
zdm ©   (2006-12-25 13:24) [4]

> tytus ©   (25.12.06 11:53) 

код проекта предоставь! до Application.Run

---

← →
zdm ©   (2006-12-25 13:29) [5]

ОР-а в обще интересная вещь :) но думаю, что трабла в неправильном распределении момента коннекта или обращаении запросами к таблицам. Отследи пошагово, на каком моменте возникает ошибка!

---

← →
tytus ©   (2006-12-25 13:30) [6]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Oracle, ComCtrls;

type
 TForm1 = class(TForm)
   SB1: TStatusBar;
   OS1: TOracleSession;
   OL1: TOracleLogon;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OL1.Execute then
 SB1.Panels[0].Text:="Connected"
else
 Sb1.Panels[0].Text:="Failed";
end;

end.

//
program Project1;

uses
 Forms,
 Unit1 in "Unit1.pas" {Form1};

{$R *.res}

begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.

---

← →
zdm ©   (2006-12-25 13:34) [7]

у тебя на клик кнопки ошибка? или при запуске приложения?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c