BDE

← →
Shrek © (2002-08-26 17:16) [0]

Как проверить инстлировано ли BDE? С меня пиво.

← →
Skier © (2002-08-26 17:18) [1]

>Shrek
Реестр ?

← →
Shrek © (2002-08-26 17:27) [2]

> Skier ©

Об этом я знаю, может существует болие простой способ который скажет что оно есть и работает. Я сталкивался с такой проблемой BDE есть но не работает!

← →
Skier © (2002-08-26 17:28) [3]

>Shrek

← →
Skier © (2002-08-26 17:29) [4]

>Shrek

> BDE есть но не работает!

Это может относится к любой программе : программа есть,
но не работает ! Или что ты имел ввиду ?

← →
Anatoly Podgoretsky © (2002-08-26 17:30) [5]

Var
SV : SysVersion;
..
If (dbiGetSysVersion(SV)<>DBIERR_None)

> Anatoly Podgoretsky

Да есть такое, но модуль то какой SysVersion?

Сорри.

> Anatoly Podgoretsky

Это BDE.

← →
TRN (2002-08-26 23:45) [8]

unit mainform;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBITypes, StdCtrls, Registry;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function GetFileVersion(FileName : String) : String;
var
InfoSize : DWORD;
Len : Cardinal;
VerHandle : Cardinal;
InfoBuffer : PChar;
FileVerPtr : PChar;
begin
{ Retrieves the "file version" of the specified file. }
InfoSize := GetFileVersionInfoSize(LPSTR(FileName), VerHandle);
If (InfoSize > 0) Then
begin
InfoBuffer := StrAlloc(InfoSize);
GetFileVersionInfo(LPSTR(FileName), VerHandle, InfoSize, InfoBuffer);
VerQueryValue(InfoBuffer, "\StringFileInfo\040904E4\FileVersion", Pointer(FileVerPtr), Len);
Result := StrPas(FileVerPtr);
StrDispose(InfoBuffer);
end
Else
Result := EmptyStr;
end;

function GetCurrentBDEPath : String;
var
Reg : TRegistry;
const
BDE_KEY = "\Software\Borland\Database Engine";
begin
Screen.Cursor := crHourglass;

Result := EmptyStr;

Reg := TRegistry.Create;
With Reg Do
begin
Access := KEY_QUERY_VALUE;
RootKey := HKEY_LOCAL_MACHINE;

If (KeyExists(BDE_KEY)) Then
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(BDE_KEY, False);

Result := ReadString("DLLPATH");
If (Result <> EmptyStr) Then Result := Result + "\idapi32.dll";
end;
end;

Screen.Cursor := crDefault;
end;

procedure GetBDEVersionInfo(var BDEVersion, BDELevel, BDEDate, BDETime, IDAPIVersion, IDAPIPath : String);
var
SysVer : DBITypes.SYSVersion;
D, M : Word;
Y : SmallInt;
H, N, S : Word;
begin
IDAPIPath := GetCurrentBDEPath;
If (Trim(IDAPIPath) <> EmptyStr)
Then IDAPIVersion := GetFileVersion(IDAPIPath)
else
begin
IdapiVersion:="Not installed";
IDAPIPath:="Not installed";
Exit;
end;
DbiGetSysVersion(SysVer);
DbiDateDecode(SysVer.dateVer, M, D, Y);
DbiTimeDecode(SysVer.timeVer, H, N, S);
BDEVersion := IntToStr(SysVer.iVersion);
BDELevel := IntToStr(SysVer.iIntfLevel);
BDEDate := FormatDateTime("mm/dd/yy", EncodeDate(Y, M, D));
BDETime := TimeToStr(EncodeTime(H, N, S Div 1000, S Div 1000));

end;

procedure TForm1.FormCreate(Sender: TObject);
var
BDEVersion, BDELevel, BDEDate, BDETime, IDAPIVersion, IDAPIPath : String;
begin
GetBDEVersionInfo(BDEVersion, BDELevel, BDEDate, BDETime, IDAPIVersion, IDAPIPath);
Edit1.Text := IDAPIVersion;
Edit2.Text := IDAPIPath;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

end.

BDE Найти похожие ветки