Текущий архив: 2007.03.18;
Скачать: 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 вся ветка
Текущий архив: 2007.03.18;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.045 c