Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  1 690

•  TDictionary Custom Sort  4 277

•  Fast Watermark Sources  3 945

•  3D Designer  6 110

•  Sik Screen Capture  4 209

•  Patch Maker  4 756

•  Айболит (remote control)  4 670

•  ListBox Drag & Drop  3 810

•  Доска для игры Реверси  90 580

•  Графические эффекты  5 004

•  Рисование по маске  4 035

•  Перетаскивание изображений  3 375

•  Canvas Drawing  3 690

•  Рисование Луны  3 480

•  Поворот изображения  3 010

•  Рисование стержней  2 632

•  Paint on Shape  2 025

•  Генератор кроссвордов  2 792

•  Головоломка Paletto  2 214

•  Теорема Монжа об окружностях  2 913

•  Пазл Numbrix  1 973

•  Заборы и коммивояжеры  2 571

•  Игра HIP  1 592

•  Игра Go (Го)  1 521

•  Симулятор лифта  1 801

•  Программа укладки плитки  1 546

•  Генератор лабиринта  1 915

•  Проверка числового ввода  1 674

•  HEX View  1 855

•  Физический маятник  1 687

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Перевод ODS API mssql2000 на Delphi (написание extended stored procedures)



Автор: Wicked

{ **** UBPFD *********** by delphibase.endimus.com ****
>> перевод ODS API mssql2000 на Delphi (написание extended stored procedures)

перевод (как я понял, один из многих) заголовочных файлов
ODS API mssql2000 на object pascal.... для успешной работы необходима opends60.dll...
выполнен с помощью утилиты c2p, её комментарии я оставил...
часть функций, помеченные как устаревшие, не были переведены...
имхо перевод не лишен недостатков, поэтому используйте as is...
добавлю, что у меня всё работает... :)

Зависимости: windows
Автор:       wicked, wilk@ua.fm, ICQ:92356239, Тернополь
Copyright:   (1) Microsoft (srv.h), (2) Oleg Bulychov, (3) wicked aka Andy Wilk
Дата:        15 ноября 2002 г.
***************************************************** }

{*********************************}
{ Generated by c2pas32 v0.9b }
{ (c) 2001 Oleg Bulychov }
{ Gladiators Software }
{ http://www.astonshell.com/ }
{*********************************}
{(c) 2002 corrections by andy wilk }

unit srv_h;

interface

uses windows;

//------------------------------------------------------------
// Open Data Services header file: srv.h
// Copyright (c) 1989, 1990, 1991, 1997 by Microsoft Corp.
//
// Avoid double inclusion

// ODS uses pack(4) on all CPU types
{$A+ }

// define model

//dll name
const
  opends_dll = 'opends60.dll';

  //------------------------------------------------------------
  // Formats of data types
type
  DBBOOL = boolean;
  DBBYTE = byte;
  DBTINYINT = byte;
  DBSMALLINT = smallint;
  DBUSMALLINT = word;
  DBINT = integer;
  DBCHAR = char;
  pDBCHAR = ^DBCHAR;
  DBBINARY = byte;
  DBBIT = byte;
  DBFLT8 = double;
  pinteger = ^integer;
  USHORT = word;

  srv_datetime = record // Format for SRVDATETIME
    dtdays: integer; // number of days since 1/1/1900
    dttime: UINT; // number 300th second since mid
  end;
  DBDATETIME = srv_datetime;

  srv_money = record // Format for SRVMONEY
    mnyhigh: integer;
    mnylow: UINT;
  end;
  DBMONEY = srv_money;

  DBFLT4 = single;
  DBMONEY4 = integer;

  dbdatetime4 = record // Format for SRVDATETIM4
    numdays: word; // number of days since 1/1/1900
    nummins: word; // number of minutes sicne midnight
  end;
  DBDATETIM4 = dbdatetime4;

const
  MAXNUMERICLEN = 16;
type
  dbnumeric = record // Format for SRVNUMERIC,SRVNUMERICN,SRVDECIMAL,SRVDECIMALN
    precision: BYTE;
    scale: BYTE;
    sign: BYTE;
    val: array[0..Pred(MAXNUMERICLEN)] of BYTE;
  end;
  //DBNUMERIC = dbnumeric;
  DBDECIMAL = DBNUMERIC;

  //------------------------------------------------------------
  // Constants used by APIs
  // Type Tokens
const
  SRV_TDS_NULL = {!!!a type cast? =>} {BYTE(} $1F;
  SRV_TDS_TEXT = {!!!a type cast? =>} {BYTE(} $23;
  SRV_TDS_GUID = {!!!a type cast? =>} {BYTE(} $24;
  SRV_TDS_VARBINARY = {!!!a type cast? =>} {BYTE(} $25;
  SRV_TDS_INTN = {!!!a type cast? =>} {BYTE(} $26;
  SRV_TDS_VARCHAR = {!!!a type cast? =>} {BYTE(} $27;
  SRV_TDS_BINARY = {!!!a type cast? =>} {BYTE(} $2D;
  SRV_TDS_IMAGE = {!!!a type cast? =>} {BYTE(} $22;
  SRV_TDS_CHAR = {!!!a type cast? =>} {BYTE(} $2F;
  SRV_TDS_INT1 = {!!!a type cast? =>} {BYTE(} $30;
  SRV_TDS_BIT = {!!!a type cast? =>} {BYTE(} $32;
  SRV_TDS_INT2 = {!!!a type cast? =>} {BYTE(} $34;
  SRV_TDS_DECIMAL = {!!!a type cast? =>} {BYTE(} $37;
  SRV_TDS_INT4 = {!!!a type cast? =>} {BYTE(} $38;
  SRV_TDS_DATETIM4 = {!!!a type cast? =>} {BYTE(} $3A;
  SRV_TDS_FLT4 = {!!!a type cast? =>} {BYTE(} $3B;
  SRV_TDS_MONEY = {!!!a type cast? =>} {BYTE(} $3C;
  SRV_TDS_DATETIME = {!!!a type cast? =>} {BYTE(} $3D;
  SRV_TDS_FLT8 = {!!!a type cast? =>} {BYTE(} $3E;
  SRV_TDS_NUMERIC = {!!!a type cast? =>} {BYTE(} $3F;
  SRV_TDS_SSVARIANT = {!!!a type cast? =>} {BYTE(} $62;
  SRV_TDS_NTEXT = {!!!a type cast? =>} {BYTE(} $63;
  SRV_TDS_BITN = {!!!a type cast? =>} {BYTE(} $68;
  SRV_TDS_DECIMALN = {!!!a type cast? =>} {BYTE(} $6A;
  SRV_TDS_NUMERICN = {!!!a type cast? =>} {BYTE(} $6C;
  SRV_TDS_FLTN = {!!!a type cast? =>} {BYTE(} $6D;
  SRV_TDS_MONEYN = {!!!a type cast? =>} {BYTE(} $6E;
  SRV_TDS_DATETIMN = {!!!a type cast? =>} {BYTE(} $6F;
  SRV_TDS_MONEY4 = {!!!a type cast? =>} {BYTE(} $7A;
  SRV_TDS_INT8 = {!!!a type cast? =>} {BYTE(} $7F;
  SRV_TDS_BIGVARBINARY = {!!!a type cast? =>} {BYTE(} $A5;
  SRV_TDS_BIGVARCHAR = {!!!a type cast? =>} {BYTE(} $A7;
  SRV_TDS_BIGBINARY = {!!!a type cast? =>} {BYTE(} $AD;
  SRV_TDS_BIGCHAR = {!!!a type cast? =>} {BYTE(} $AF;
  SRV_TDS_NVARCHAR = {!!!a type cast? =>} {BYTE(} $E7;
  SRV_TDS_NCHAR = {!!!a type cast? =>} {BYTE(} $EF;

  // Datatypes
  // Also: values of symbol parameter to srv_symbol when type = SRV_DATATYPE
  SRVNULL = SRV_TDS_NULL;
  SRVTEXT = SRV_TDS_TEXT;
  SRVGUID = SRV_TDS_GUID;
  SRVVARBINARY = SRV_TDS_VARBINARY;
  SRVINTN = SRV_TDS_INTN;
  SRVVARCHAR = SRV_TDS_VARCHAR;
  SRVBINARY = SRV_TDS_BINARY;
  SRVIMAGE = SRV_TDS_IMAGE;
  SRVCHAR = SRV_TDS_CHAR;
  SRVINT1 = SRV_TDS_INT1;
  SRVBIT = SRV_TDS_BIT;
  SRVINT2 = SRV_TDS_INT2;
  SRVDECIMAL = SRV_TDS_DECIMAL;
  SRVINT4 = SRV_TDS_INT4;
  SRVDATETIM4 = SRV_TDS_DATETIM4;
  SRVFLT4 = SRV_TDS_FLT4;
  SRVMONEY = SRV_TDS_MONEY;
  SRVDATETIME = SRV_TDS_DATETIME;
  SRVFLT8 = SRV_TDS_FLT8;
  SRVNUMERIC = SRV_TDS_NUMERIC;
  SRVSSVARIANT = SRV_TDS_SSVARIANT;
  SRVNTEXT = SRV_TDS_NTEXT;
  SRVBITN = SRV_TDS_BITN;
  SRVDECIMALN = SRV_TDS_DECIMALN;
  SRVNUMERICN = SRV_TDS_NUMERICN;
  SRVFLTN = SRV_TDS_FLTN;
  SRVMONEYN = SRV_TDS_MONEYN;
  SRVDATETIMN = SRV_TDS_DATETIMN;
  SRVMONEY4 = SRV_TDS_MONEY4;
  SRVINT8 = SRV_TDS_INT8;
  SRVBIGVARBINARY = SRV_TDS_BIGVARBINARY;
  SRVBIGVARCHAR = SRV_TDS_BIGVARCHAR;
  SRVBIGBINARY = SRV_TDS_BIGBINARY;
  SRVBIGCHAR = SRV_TDS_BIGCHAR;
  SRVNVARCHAR = SRV_TDS_NVARCHAR;
  SRVNCHAR = SRV_TDS_NCHAR;

  // values for srv_symbol type parameter
  SRV_ERROR = 0;
  SRV_DONE = 1;
  SRV_DATATYPE = 2;
  SRV_EVENT = 4;

  // values for srv_symbol symbol parameter, when type = SRV_ERROR
  SRV_ENO_OS_ERR = 0;
  SRV_INFO = 1;
  SRV_FATAL_PROCESS = 10;
  SRV_FATAL_SERVER = 19;

  // Types of server events
  // Also: values for srv_symbol symbol parameter, when type = SRV_EVENT
  SRV_CONTINUE = 0;
  SRV_LANGUAGE = 1;
  SRV_CONNECT = 2;
  SRV_RPC = 3;
  SRV_RESTART = 4;
  SRV_DISCONNECT = 5;
  SRV_ATTENTION = 6;
  SRV_SLEEP = 7;
  SRV_START = 8;
  SRV_STOP = 9;
  SRV_EXIT = 10;
  SRV_CANCEL = 11;
  SRV_SETUP = 12;
  SRV_CLOSE = 13;
  SRV_PRACK = 14;
  SRV_PRERROR = 15;
  SRV_ATTENTION_ACK = 16;
  SRV_CONNECT_V7 = 16;
  // TDS type for TDS 7 clients. Overloaded with SRV_ATTENTION_ACK
  SRV_SKIP = 17;
  SRV_TRANSMGR = 18;
  SRV_PRELOGIN = 19;
  SRV_OLEDB = 20;
  SRV_INTERNAL_HANDLER = 99;
  SRV_PROGRAMMER_DEFINED = 100;

  // values for srv_sfield field parameter
  SRV_SERVERNAME = 0;
  SRV_VERSION = 6;

  // Length to indicate string is null terminated
  SRV_NULLTERM = -1;

  // values of msgtype parameter to srv_sendmsg
  SRV_MSG_INFO = 1;
  SRV_MSG_ERROR = 2;

  // values of status parameter to srv_senddone
  // Also: values for symbol parameters to srv_symbol when type = SRV_DONE
  SRV_DONE_FINAL = {!!!a type cast? =>} {USHORT(} $0000;
  SRV_DONE_MORE = {!!!a type cast? =>} {USHORT(} $0001;
  SRV_DONE_ERROR = {!!!a type cast? =>} {USHORT(} $0002;
  SRV_DONE_COUNT = {!!!a type cast? =>} {USHORT(} $0010;
  SRV_DONE_RPC_IN_BATCH = {!!!a type cast? =>} {USHORT(} $0080;

  // return values of srv_paramstatus
  SRV_PARAMRETURN = $0001;
  SRV_PARAMDEFAULT = $0002;
  SRV_PARAMSORTORDER = $0004;
  // This is sent by clients in RPC, unset in processRPC
// return values of srv_rpcoptions
  SRV_RECOMPILE = $0001;
  SRV_NOMETADATA = $0002;

  // values of field parameter to srv_pfield
  //#define SRV_LANGUAGE 1 already defined above
  //#define SRV_EVENT 4 already defined above
  SRV_SPID = 10;
  SRV_NETSPID = 11;
  SRV_TYPE = 12;
  SRV_STATUS = 13;
  SRV_RMTSERVER = 14;
  SRV_HOST = 15;
  SRV_USER = 16;
  SRV_PWD = 17;
  SRV_CPID = 18;
  SRV_APPLNAME = 19;
  SRV_TDS = 20;
  SRV_CLIB = 21;
  SRV_LIBVERS = 22;
  SRV_ROWSENT = 23;
  SRV_BCPFLAG = 24;
  SRV_NATLANG = 25;
  SRV_PIPEHANDLE = 26;
  SRV_NETWORK_MODULE = 27;
  SRV_NETWORK_VERSION = 28;
  SRV_NETWORK_CONNECTION = 29;
  SRV_LSECURE = 30;
  SRV_SAXP = 31;
  SRV_UNICODE_USER = 33;
  SRV_UNICODE_PWD = 35;
  SRV_SPROC_CODEPAGE = 36;
  SRV_MSGLCID = 37;
  SRV_INSTANCENAME = 38;
  SRV_HASHPWD = 39;

  // return value of SRV_TDSVERSION macro
  SRV_TDS_NONE = 0;
  SRV_TDS_2_0 = 1;
  SRV_TDS_3_4 = 2;
  SRV_TDS_4_2 = 3;
  SRV_TDS_6_0 = 4;
  SRV_TDS_7_0 = 5;

  // Return values from APIs
type
  SRVRETCODE = integer; // SUCCEED or FAIL

  //{$ifndef ODBCVER}
  RETCODE = integer;
  //{$endif}

  //{$if !defined( SUCCEED )}
const
  _SUCCEED = 1; // Successful return value
  //{$endif}

  //{$if !defined( FAIL )}
  _FAIL = 0; // Unsuccessful return value
  //{$endif}

  SRV_DUPLICATE_HANDLER = 2; // additional return value for srv_pre/post_handle
  //------------------------------------------------
  //PreDeclare structures
  //
type
  srv_server = record
  end;
  pSRV_SERVER = ^srv_server;

  srv_config = record
  end;
  pSRV_CONFIG = ^srv_config;

  srv_proc = record
  end;
  pSRV_PROC = ^srv_proc;

  //------------------------------------------------
  //------------------------------------------------
  // ODS MACROs & APIs
  // Describing and sending a result set

function srv_describe(srvproc: pSRV_PROC;
  colnumber: integer;
  column_name: pchar;
  namelen: integer;
  desttype: integer;
  destlen: integer;
  srctype: integer;
  srclen: integer;
  srcdata: pointer): integer; cdecl; external opends_dll name 'srv_describe';

function srv_setutype(srvproc: pSRV_PROC; column: integer; usertype: integer):
  integer; cdecl; external opends_dll name 'srv_setutype';

function srv_setcoldata(srvproc: pSRV_PROC; column: integer; data: pinteger):
  integer; cdecl; external opends_dll name 'srv_setcoldata';

function srv_setcollen(srvproc: pSRV_PROC; column: integer; len: integer):
  integer; cdecl; external opends_dll name 'srv_setcollen';

function srv_sendrow(srvproc: pSRV_PROC): integer; cdecl; external opends_dll
name 'srv_sendrow';

function srv_senddone(srvproc: pSRV_PROC; status: USHORT; curcmd: USHORT; count:
  integer): integer; cdecl; external opends_dll name 'srv_senddone';

// Dealing with Extended Procedure parameters

function srv_rpcparams(srvproc: pSRV_PROC): integer; cdecl; external opends_dll
name 'srv_rpcparams';

function srv_paraminfo(srvproc: pSRV_PROC;
  n: integer;
  var pbType: integer;
  var pcbMaxLen: integer;
  var pcbActualLen: integer;
  pbData: pointer;
  var pfNull: byte): integer; cdecl; external opends_dll name 'srv_paraminfo';

function srv_paramsetoutput(srvproc: pSRV_PROC;
  n: integer;
  pbData: pointer;
  cbLen: integer;
  fNull: boolean): integer; cdecl; external opends_dll name
'srv_paramsetoutput';

//procedure srv_paramdata{!!!3 unknown typedef}; cdecl; external opends_dll name 'srv_paramdata';

//function srv_paramlen{!!!3 unknown typedef}: integer; cdecl; external opends_dll name 'srv_paramlen';

//function srv_parammaxlen{!!!3 unknown typedef}: integer; cdecl; external opends_dll name 'srv_parammaxlen';

//function srv_paramtype{!!!3 unknown typedef}: integer; cdecl; external opends_dll name 'srv_paramtype';

//function srv_paramset{!!!3 unknown typedef}: integer; cdecl; external opends_dll name 'srv_paramset';

function srv_paramname(srvproc: pSRV_PROC;
  n: integer;
  len: integer): pchar; cdecl; external opends_dll name 'srv_paramname';

function srv_paramnumber(srvproc: pSRV_PROC;
  name: pchar;
  namelen: integer): integer; cdecl; external opends_dll name 'srv_paramnumber';

//--------------------------------------------------------------
//--------------------------------------------------------------
// The rest of these APIs are still supported, in SQL Server 7.0,
// but may not be supported after SQL Server 7.0
// MACROs

//function SRV_GETSERVER(a: integer): integer; {<= !!!6 unknown macro}

//function SRV_GOT_ATTENTION(a: integer): integer; {<= !!!6 unknown macro}

//function SRV_TDSVERSION(a: integer): integer; {<= !!!6 unknown macro}

//function srv_getserver(srvproc: pSRV_PROC): pSRV_SERVER; cdecl; external opends_dll name 'srv_getserver';

//function srv_got_attention(srvproc: pSRV_PROC): boolean; cdecl; external opends_dll name 'srv_got_attention';

// Memory

//function srv_alloc(ulSize: integer): pointer; cdecl; external opends_dll name 'srv_alloc';

//function srv_bmove(from: pinteger; to: pinteger; count: integer): integer; cdecl; external opends_dll name 'srv_bmove';

//function srv_bzero(location: pinteger; count: integer): integer; cdecl; external opends_dll name 'srv_bzero';

//function srv_free(ptr: pinteger): integer; cdecl; external opends_dll name 'srv_free';

function srv_convert(srvproc: pSRV_PROC;
  srctype: integer;
  src: pointer;
  srclen: DBINT;
  desttype: integer;
  dest: pointer;
  destlen: DBINT): integer; cdecl; external opends_dll name 'srv_convert';

function srv_getuserdata(srvproc: pSRV_PROC): pointer; cdecl; external opends_dll
name 'srv_getuserdata';

function srv_getbindtoken(srvproc: pSRV_PROC; token_buf: pchar): integer; cdecl;
external opends_dll name 'srv_getbindtoken';

//function srv_getdtcxact(srvproc: pSRV_PROC; {!!!3 unknown typedef}): integer; cdecl; external opends_dll name 'srv_getdtcxact';

type
  EventHandler = function(p: pointer): integer;

  //function srv_impersonate_client(srvproc: pSRV_PROC): integer; cdecl; external opends_dll name 'srv_impersonate_client';

  //function srv_langcpy(srvproc: pSRV_PROC; start: integer; nbytes: integer; buffer: pchar): integer; cdecl; external opends_dll name 'srv_langcpy';

  //function srv_langlen(srvproc: pSRV_PROC): integer; cdecl; external opends_dll name 'srv_langlen';

  //function srv_langptr(srvproc: pSRV_PROC): pointer; cdecl; external opends_dll name 'srv_langptr';

  //function srv_log(server: pSRV_SERVER; datestamp: BOOL; msg: pchar; msglen: integer): integer; cdecl; external opends_dll name 'srv_log';

function srv_paramstatus(srvproc: pSRV_PROC;
  n: integer): integer; cdecl; external opends_dll name 'srv_paramstatus';

function srv_pfieldex(srvproc: pSRV_PROC; field: integer; len: pinteger):
  pointer; cdecl; external opends_dll name 'srv_pfieldex';

function srv_pfield(srvproc: pSRV_PROC; field: integer; len: pinteger): pchar;
cdecl; external opends_dll name 'srv_pfield';

function srv_returnval(srvproc: pSRV_PROC; valuename: pchar; len: integer;
  status: BYTE; _type: integer; maxlen: integer; datalen: integer; value:
  pinteger): integer; cdecl; external opends_dll name 'srv_returnval';

function srv_revert_to_self(srvproc: pSRV_PROC): integer; cdecl; external
opends_dll name 'srv_revert_to_self';

function srv_rpcdb(srvproc: pSRV_PROC; len: pinteger): pchar; cdecl; external
opends_dll name 'srv_rpcdb';

function srv_rpcname(srvproc: pSRV_PROC; len: pinteger): pchar; cdecl; external
opends_dll name 'srv_rpcname';

function srv_rpcnumber(srvproc: pSRV_PROC): integer; cdecl; external opends_dll
name 'srv_rpcnumber';

function srv_rpcoptions(srvproc: pSRV_PROC): USHORT; cdecl; external opends_dll
name 'srv_rpcoptions';

function srv_rpcowner(srvproc: pSRV_PROC; len: pinteger): pchar; cdecl; external
opends_dll name 'srv_rpcowner';

// message text

function srv_wsendmsg(srvproc: pSRV_PROC;
  msgnum: integer;
  msgclass: BYTE;
  msg: pwidestring;
  msglen: integer): integer; cdecl; external opends_dll name 'srv_wsendmsg';

function srv_sendmsg(srvproc: pSRV_PROC;
  msgtype: integer;
  msgnum: integer;
  msgclass: BYTE;
  state: BYTE;
  rpcname: pchar;
  rpcnamelen: integer;
  linenum: USHORT;
  msg: pchar;
  msglen: integer): integer; cdecl; external opends_dll name 'srv_sendmsg';

function srv_sendstatus(srvproc: pSRV_PROC; status: integer): integer; cdecl;
external opends_dll name 'srv_sendstatus';

function srv_setuserdata(srvproc: pSRV_PROC; _ptr: pointer): integer; cdecl;
external opends_dll name 'srv_setuserdata';

function srv_sfield(server: pSRV_SERVER; field: integer; len: pinteger): pchar;
cdecl; external opends_dll name 'srv_sfield';

function srv_symbol(_type: integer; symbol: integer; len: pinteger): pchar;
cdecl; external opends_dll name 'srv_symbol';

function srv_tdsversion(srvproc: pSRV_PROC): integer; cdecl; external opends_dll
name 'srv_tdsversion';

function srv_willconvert(srctype: integer; desttype: integer): BOOL; cdecl;
external opends_dll name 'srv_willconvert';

function srv_terminatethread(srvproc: pSRV_PROC): integer; cdecl; external
opends_dll name 'srv_terminatethread';

function srv_sendstatistics(srvproc: pSRV_PROC): integer; cdecl; external
opends_dll name 'srv_sendstatistics';

function srv_clearstatistics(srvproc: pSRV_PROC): integer; cdecl; external
opends_dll name 'srv_clearstatistics';

function srv_message_handler(srvproc: pSRV_PROC;
  errornum: integer;
  severity: BYTE;
  state: BYTE;
  oserrnum: integer;
  errtext: pchar;
  errtextlen: integer;
  oserrtext: pchar;
  oserrtextlen: integer): integer; cdecl; external opends_dll name
'srv_message_handler';

function srv_pre_handle(server: pSRV_SERVER; srvproc: pSRV_PROC; event: integer;
  handler: EventHandler; remove: boolean): integer; cdecl; external opends_dll
    name
'srv_pre_handle';

function srv_post_handle(server: pSRV_SERVER; srvproc: pSRV_PROC; event:
  integer; handler: EventHandler; remove: boolean): integer; cdecl; external
opends_dll name 'srv_post_handle';

function srv_IgnoreAnsiToOem(srvproc: pSRV_PROC; bTF: boolean): integer; cdecl;
external opends_dll name 'srv_IgnoreAnsiToOem';

{!!!1 => pragma pack()}

const
  SS_MAJOR_VERSION = 7;
  SS_MINOR_VERSION = 0;
  SS_LEVEL_VERSION = 0;
  SS_MINIMUM_VERSION = '7.00.00.0000';
  ODS_VERSION = ((SS_MAJOR_VERSION shl 24) or (SS_MINOR_VERSION shl 16));

  //_ODS_SRV_H_
  //////////////////////////////////////////////////////////////////
  // Suggested implementation of __GetXpVersion
  //
  //__declspec(dllexport) ULONG __GetXpVersion()
  // {
  // return ODS_VERSION;
  // }
  //////////////////////////////////////////////////////////////////

implementation

end.




Похожие по теме исходники

Goods & Discount

Genaille Rods

GDI+ API

Snake & MiniSaper WinApi

 

Калькулятор на WinApi

Menu Icon WinApi

Octapion (шашки)

Error Vodes Win API

 

Посторонние окна WinAPI

Windows API (SendMessage)

API Hook

Delphi Magazine

 

Tetris DelphiX

Quake Delphi Sources

Delphi MMOG

Delphi Яндекс Директ

 

Delphi to HTML Converter

Проверка знаний Delphi

Is Delphi Dying Monitor

Autosave Delphi 7

 

Extended Socket Server

Extended Bars




Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте