Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

10g Express edition & DOA 4.0.7 - проблема с коннектом. [D7]

tytus © (2006-12-25 11:53:00)
Удалено модератором
Примечание: Восстановление закрытой ветки

zdm (2006-12-25 13:34:00) [1]
у тебя на клик кнопки ошибка? или при запуске приложения?

tytus (2006-12-25 13:30:00) [2]
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:29:00) [3]
ОР-а в обще интересная вещь :) но думаю, что трабла в неправильном распределении момента коннекта или обращаении запросами к таблицам. Отследи пошагово, на каком моменте возникает ошибка!

zdm (2006-12-25 13:24:00) [4]

> tytus © (25.12.06 11:53)

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

zdm (2006-12-25 13:21:00) [5]

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

:)

tytus (2006-12-25 13:20:00) [6]
>Sergey13 [1]
Поставил НЕ ворованную версию - Unlimited.
Та же фигня. Может снести делфи и поновой все с новой версией?

Sergey13 (2006-12-25 13:13:00) [7]
ну так нашел же проблему - ворованная версия.
http://www.delphimaster.ru/cgi-bin/forum.pl?n=1&id=1166797458

Наверх

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