Вопросы по компонентам для Delphi, C++ Builder - [37] :: Прикладное программирование

leon76

Не помню где брал, давно это было. По-моему на том же торри-ру
Модуль (не компонент) TUtil32 и проект с его использованием.

program DTUtil32;

uses
Forms,
main in 'main.pas' {MainForm},
about in 'about.pas' {AboutForm},
TUtil32 in 'Tutil32.pas';
...

Вот кратко список функций модуля:

unit TUtil32;

{ TUtility functions }
function TUInit(var hTUSession: hTUses): DBIResult; stdcall;

function TUVerifyTable(hTUSession: hTUses;
pszTableName,
pszDriverType,
pszErrTableName,
pszPassword: PChar;
iOptions: integer;
var piErrorLevel: Integer): DBIResult; stdcall;

function TURebuildTable(hTUSession: hTUses;
pszTableName,
pszDriverType,
pszBackupTableName,
pszKeyviolName,
pszProblemTableName: PChar;
pCrDesc: pCRTblDesc): DBIResult; stdcall;

function TUGetCRTblDescCount(hTUSession: hTUses;
pszTableName: PChar;
var iFldCount,
iIdxCount,
iSecRecCount,
iValChkCount,
iRintCount,
iOptParams,
iOptDataLen: word): DBIResult; stdcall;

function TUFillCRTblDesc(hTUSession: hTUses;
pCrDesc: pCRTblDesc;
pszTableName,
pszPassword: PChar): DBIResult; stdcall;

function TUFillCURProps(hTUSession: hTUses;
pszTableName: PChar;
var tblProps: CURProps): DBIResult; stdcall;

function TUGetExtTblProps(hTUSession: hTUses;
pszTableName: PChar;
var pTS: TimeStamp;
var pbReadOnly: Boolean): DBIResult; stdcall;

function TUExit(hTUSession: hTUses): DBIResult; stdcall;

function TUGetErrorString(iErrorcode: DBIResult;
pszError: PChar): DBIResult; stdcall;

implementation

const
TU32 = 'TUTIL32.DLL';

function TUInit; external TU32 name 'TUInit';
function TUVerifyTable; external TU32 name 'TUVerifyTable';
function TURebuildTable; external TU32 name 'TURebuildTable';
function TUGetCRTblDescCount; external TU32 name 'TUGetCRTblDescCount';
function TUFillCRTblDesc; external TU32 name 'TUFillCRTblDesc';
function TUFillCURProps; external TU32 name 'TUFillCURProps';
function TUGetExtTblProps; external TU32 name 'TUGetExtTblProps';
function TUExit; external TU32 name 'TUExit';
function TUGetErrorString; external TU32 name 'TUGetErrorString';

Если нужно могу закинуть, давай мыло.

Добавлено
Есть ли аналог компонента Decesion Cube работающий без BDE?

Модерирует : ShIvADeSt
ShIvADeSt (06-04-2006 01:56): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=6607	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101