1. Kell tudni az F1Book hoz szukseges fajlokat lasd F1Book Help
idezet:
Please read the license agreement that was shipped with this
package. You are bound by the licensing restrictions contained in that document.
Redistributing Files
You can use all the files accompanying this product for development of an application. You can redistribute the run time version of the software according to the terms of the license agreement.
You can ship the following files with your application:
File
Note These DLLs must be present on a system for Formula One to function correctly. In addition if you intend to connect to an ODBC database, ODBC32.DLL must be present. This file is not distributed with Formula One.
2. ISW ben Specify Component and files nél
a Groups and files nél New
Groupe
Groupe name : akarmi (System files nek hivom én)
Destination
Directory: WINSYSDIR
InsertFiles a fentnevezettek
mas extra nem kell... es mar mukxik is :-)
program Dpr;
uses
Forms,
Dialogs,
SysUtils,
DBTables
{$R *.RES}
type
TMyExceptionObject=class
public
procedure MyExceptionHandler(Sender : Tobject; MyException : Exception);
end;
var
MyExceptionObject : TMyExceptionObject;
procedure TMyExceptionObject.MyExceptionHandler(Sender : Tobject;
MyException : Exception);
var lErrorMessage : String;
begin
lErrorMessage:=lowercase(MyException.Message);
// SQL utasitas timeout-ra futott, valoszinuleg foglaltsag
if Pos('timed out',lErrorMessage)<>0 then begin
MessageDlg('Tartos foglaltsag.'+#13#10+'Probalja kesobb ujra.',
mtInformation, [mbOK], 0);
end;
//itt folytathatod, a sajat szad ize szerint
end;
begin
MyExceptionObject:=TMyExceptionObject.Create;
Application.OnException:=MyExceptionObject.MyExceptionHandler;
Application.Initialize;
Application.CreateForm...
Application.Run;
end.
DBase, Fox, Paradox tablakra mukodik a BbiPackTable, ill Paradoxnal a DbiDoRestructure.
A BDE online Reference-bol (csak a lenyeg):
Description
DbiPackTable optimizes table space by rebuilding the table associated with hCursor and releasing any free space.
Delphi syntax
function DbiPackTable (hDb: hDBIDb; hCursor: hDBICur; pszTableName: PChar; pszDriverType: PChar; bRegenIdxs: Bool): DBIResult stdcall;
This example will pack a Paradox or dBASE table therfore removing already deleted rows in a table. This function will also regenerate all out-of-date indexes (maintained indexes). This example uses the following input:
PackTable(Table1)
The function is defined as follows:
// Pack a Paradox or dBASE table
// The table must be opened execlusively before calling this function...
procedure PackTable(Table: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
// Make sure the table is open exclusively so we can get the db handle...
if not Table.Active then raise EDatabaseError.Create('Table must be opened to pack');
if not Table.Exclusive then raise EDatabaseError.Create('Table must be opened exclusively to pack');
// Get the table properties to determine table type...
Check(DbiGetCursorProps(Table.Handle, Props));
// If the table is a Paradox table, you must call DbiDoRestructure...
if Props.szTableType = szPARADOX then
begin
// Blank out the structure...
FillChar(TableDesc, sizeof(TableDesc), 0);
// Get the database handle from the table's cursor handle...
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, Table.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// Set the Pack option in the table descriptor to TRUE...
TableDesc.bPack := True;
// Close the table so the restructure can complete...
Table.Close;
// Call DbiDoRestructure...
Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
end
else
// If the table is a dBASE table, simply call DbiPackTable...
if (Props.szTableType = szDBASE) then
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else
// Pack only works on PAradox or dBASE; nothing else...
raise EDatabaseError.Create('Table must be either of Paradox or dBASE' + 'type to pack');
Table.Open;
end;
uses rxshell ;
If FileExecuteWait('valami.exe', esNormal) = -1 then
ShowMessage('Nem indult el a valami program.') ;