umysqlhelpers.pas

RO模拟器!!适合玩仙境传说的玩家们呦~

{--------------------------------------------------------------------------------
Licencing issues:
09-January-2002      〤ristian Nicola
Note:
 Mysql is copyright by MySQL AB. Refer to their site ( http://www.mysql.com )
for licencing issues.
 Zlib is copyright by Jean-loup Gailly and Mark Adler. Refer to their site for
licencing issues. ( http://www.info-zip.org/pub/infozip/zlib/ )

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

NOTES:
  1. The origin of this software must not be misrepresented; you must not
     claim that you wrote the original software. If you use this software
     in a product, an acknowledgment in the product documentation would be
     appreciated.
  2. Altered source versions must be plainly marked as such, and must not be
     misrepresented as being the original software.
  3. If you are using it for a commercial software it must be open source and
     it must include full source code of this library in an unaltered fashion
     or you would need to ask for permission to use it. This library will be
     considered donationware which means if you want to contribute with any money
     or hardware you are more than welcome.
  4. This notice may not be removed or altered from any source distribution.

  Cristian Nicola
  [e-mail]

If you use the mysqldirect library in a product, i would appreciate *not*
receiving lengthy legal documents to sign. The sources are provided
for free but without warranty of any kind.  The library has been
entirely written by Cristian Nicola after libmysql of MYSQL AB.
--------------------------------------------------------------------------------}
unit uMysqlHelpers;
////////////////////////////////////////////////////////////////////////////////
// Various functions to make your life easyer
// - all types of refresh
// - client/server flag checking
// - field definition flags checking
// - escape function (for using binary data in queryes)

interface
{$I mysqlinc.inc}

uses sysutils, uMysqlClient, uMysqlCT;

//refresh
function REF_GRANT(aMysql:TMysqlClient):boolean;
function REF_LOG(aMysql:TMysqlClient):boolean;
function REF_TABLES(aMysql:TMysqlClient):boolean;
function REF_HOSTS(aMysql:TMysqlClient):boolean;
function REF_STATUS(aMysql:TMysqlClient):boolean;
function REF_THREADS(aMysql:TMysqlClient):boolean;
function REF_SLAVE(aMysql:TMysqlClient):boolean;
function REF_MASTER(aMysql:TMysqlClient):boolean;
function REF_READ_LOCK(aMysql:TMysqlClient):boolean;
function REF_FAST(aMysql:TMysqlClient):boolean;

//client flags
function HasLONGPASSWORD(aFlag:longint):boolean;
function HasFOUNDROWS(aFlag:longint):boolean;
function HasLONGFLAG(aFlag:longint):boolean;
function HasCONNECTWITHDB(aFlag:longint):boolean;
function HasNOSCHEMA(aFlag:longint):boolean;
function HasCOMPRESS(aFlag:longint):boolean;
function HasODBC(aFlag:longint):boolean;
function HasLOCALFILES(aFlag:longint):boolean;
function HasIGNORESPACE(aFlag:longint):boolean;
function HasCHANGEUSER(aFlag:longint):boolean;
function HasINTERACTIVE(aFlag:longint):boolean;
function HasSSL(aFlag:longint):boolean;
function HasIGNORESIGPIPE(aFlag:longint):boolean;
function HasTRANSACTIONS(aFlag:longint):boolean;

function SetLONGPASSWORD(aFlag:longint; aValue:boolean):longint;
function SetFOUNDROWS(aFlag:longint; aValue:boolean):longint;
function SetLONGFLAG(aFlag:longint; aValue:boolean):longint;
function SetCONNECTWITHDB(aFlag:longint; aValue:boolean):longint;
function SetNOSCHEMA(aFlag:longint; aValue:boolean):longint;
function SetCOMPRESS(aFlag:longint; aValue:boolean):longint;
function SetODBC(aFlag:longint; aValue:boolean):longint;
function SetLOCALFILES(aFlag:longint; aValue:boolean):longint;
function SetIGNORESPACE(aFlag:longint; aValue:boolean):longint;
function SetCHANGEUSER(aFlag:longint; aValue:boolean):longint;
function SetINTERACTIVE(aFlag:longint; aValue:boolean):longint;
function SetSSL(aFlag:longint; aValue:boolean):longint;
function SetIGNORESIGPIPE(aFlag:longint; aValue:boolean):longint;
function SetTRANSACTIONS(aFlag:longint; aValue:boolean):longint;


//fields
function IsNOTNULL(aFieldDef:PMysql_FieldDef):boolean;
function IsPRIKEY(aFieldDef:PMysql_FieldDef):boolean;
function IsUNIQUEKEY(aFieldDef:PMysql_FieldDef):boolean;
function IsMULTIPLEKEY(aFieldDef:PMysql_FieldDef):boolean;
function IsBLOB(aFieldDef:PMysql_FieldDef):boolean;
function IsUNSIGNED(aFieldDef:PMysql_FieldDef):boolean;
function IsZEROFILL(aFieldDef:PMysql_FieldDef):boolean;
function IsBINARY(aFieldDef:PMysql_FieldDef):boolean;
function IsENUM(aFieldDef:PMysql_FieldDef):boolean;
function IsAUTOINCREMENT(aFieldDef:PMysql_FieldDef):boolean;
function IsTIMESTAMP(aFieldDef:PMysql_FieldDef):boolean;
function IsSET(aFieldDef:PMysql_FieldDef):boolean;
function IsNUM(aFieldDef:PMysql_FieldDef):boolean;
function IsPARTKEY(aFieldDef:PMysql_FieldDef):boolean;
function IsGROUP(aFieldDef:PMysql_FieldDef):boolean;
function IsUNIQUE(aFieldDef:PMysql_FieldDef):boolean;

//binary fields (blobs) functions)
function EscapeStr(aString: string): string;

implementation
////////////////////////////////////////////////////////////////////////////////
//different type of refresh if one does not want to read the docs

//attempt to execute a refresh grant
function REF_GRANT(aMysql:TMysqlClient):boolean;
begin
     result:=false;
     if Assigned(aMysql) then
        result:=aMysql.refresh(REFRESH_GRANT);
end;

//attempt to execute a refresh logs
function REF_LOG(aMysql:TMysqlClient):boolean;
begin
     result:=false;
     if Assigned(aMysql) then
        result:=aMysql.refresh(REFRESH_LOG);
end;

//attempt to execute a refresh tables
function REF_TABLES(aMysql:TMysqlClient):boolean;
begin
     result:=false;
     if Assigned(aMysql) then
        result:=aMysql.refresh(REFRESH_TABLES);
end;

//attempt to execute a refresh hosts
function REF_HOSTS(aMysql:TMysqlClient):boolean;
begin
     result:=false;
     if Assigned(aMysql) then
        result:=aMysql.refresh(REFRESH_HOSTS);
end;

//attempt to execute a refresh status
function REF_STATUS(aMysql:TMysqlClient):boolean;
begin
     result:=false;
     if Assigned(aMysql) then
        result:=aMysql.refresh(REFRESH_STATUS);
end;

//attempt to execute a refresh threads
function REF_THREADS(aMysql:TMysqlClient):boolean;
begin
     result:=false;
     if Assigned(aMysql) then
        result:=aMysql.refresh(REFRESH_THREADS);
end;

//attempt to execute a refresh slave
function REF_SLAVE(aMysql:TMysqlClient):boolean;
begin
     result:=false;
     if Assigned(aMysql) then
        result:=aMysql.refresh(REFRESH_SLAVE);
end;

//attempt to execute a refresh master
function REF_MASTER(aMysql:TMysqlClient):boolean;
begin
     result:=false;
     if Assigned(aMysql) then
        result:=aMysql.refresh(REFRESH_MASTER);
end;

//attempt to execute a refresh read lock
function REF_READ_LOCK(aMysql:TMysqlClient):boolean;
begin
     result:=false;
     if Assigned(aMysql) then
        result:=aMysql.refresh(REFRESH_READ_LOCK);
end;

//attempt to execute a refresh fast
function REF_FAST(aMysql:TMysqlClient):boolean;
begin
     result:=false;
     if Assigned(aMysql) then
        result:=aMysql.refresh(REFRESH_FAST);
end;

////////////////////////////////////////////////////////////////////////////////
//different type of flags check for client/server flags

//returns true if a client flag has long password
function HasLONGPASSWORD(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_LONG_PASSWORD = CLIENT_LONG_PASSWORD;
end;

//returns true if a client flag has found rows
function HasFOUNDROWS(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_FOUND_ROWS = CLIENT_FOUND_ROWS;
end;

//returns true if a client flag has long flag
function HasLONGFLAG(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_LONG_FLAG = CLIENT_LONG_FLAG;
end;

//returns true if a client flag has connect with db
function HasCONNECTWITHDB(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_CONNECT_WITH_DB = CLIENT_CONNECT_WITH_DB;
end;

//returns true if a client flag has no schema
function HasNOSCHEMA(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_NO_SCHEMA = CLIENT_NO_SCHEMA;
end;

//returns true if a client flag has compress
function HasCOMPRESS(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_COMPRESS = CLIENT_COMPRESS;
end;

//returns true if a client flag has ODBC
function HasODBC(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_ODBC = CLIENT_ODBC;
end;

//returns true if a client flag has local files
function HasLOCALFILES(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_LOCAL_FILES = CLIENT_LOCAL_FILES;
end;

//returns true if a client flag has ignore spaces
function HasIGNORESPACE(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_IGNORE_SPACE = CLIENT_IGNORE_SPACE;
end;

//returns true if a client flag has change user
function HasCHANGEUSER(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_CHANGE_USER = CLIENT_CHANGE_USER;
end;

//returns true if a client flag has interactive
function HasINTERACTIVE(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_INTERACTIVE = CLIENT_INTERACTIVE;
end;

//returns true if a client flag has ssl
function HasSSL(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_SSL = CLIENT_SSL;
end;

//returns true if a client flag has ignore sigpipe
function HasIGNORESIGPIPE(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_IGNORE_SIGPIPE = CLIENT_IGNORE_SIGPIPE;
end;

//returns true if a client flag has transcations
function HasTRANSACTIONS(aFlag:longint):boolean;
begin
     result:=aFlag and CLIENT_TRANSACTIONS= CLIENT_TRANSACTIONS;
end;

//takes aflags as imputs and sets/resets into the result : long password