Форум программистов [Powered by Invision Power Board]

Код

unit WinDBR32;

interface

type
  lpszString = array [0..79] of char;
  YMDHM = record
           year   : integer;
           month  : integer;
           day    : integer;
           hour   : integer;
           minute : integer;
          end;
  lpYMDHM = ^YMDHM;
  MdbData = record
             value  : Longint;
             pname  : Integer;
             check  : Integer;
             diff   : Longint;
             ltype  : Integer;
             lvalue : Integer
            end;
 lpMdbData = ^MdbData;

 TBuffer = array[0..99] of char;
 lpTBuffer = array[1..5] of char;


  //function   MdbOpen (hWnd : THandle): THandle; stdcall; external 'WinDbr32';
  function   MdbClose (hDB : THandle): integer; stdcall; external 'WinDbr32';
  function   MdbOpenR (szFileName: Pchar): THandle; stdcall; external 'WinDbr32';
  function   MdbNext (hDB :THandle): boolean; stdcall; external 'WinDbr32';
  procedure  MdbReset (hDB :THandle); stdcall; external 'WinDbr32';
  //procedure  MdbReRead (hDB :THandle); stdcall; external 'WinDbr32';
  procedure  MdbSetCodeForm (hDB :THandle; nCodeForm:integer); stdcall; external 'WinDbr32';
  procedure  MdbSetObsStart (hDB :THandle; lpdtBegin: lpYMDHM); stdcall; external 'WinDbr32';
  procedure  MdbSetObsEnd (hDB :THandle; lpdtEnd: lpYMDHM); stdcall; external 'WinDbr32';
  //procedure  MdbClearObsInt (hDB :THandle); stdcall; external 'WinDbr32';
  //procedure  MdbSetObsInt (hDB :THandle; lpdtBegin: lpYMDHM; lDuration: longint); stdcall; external 'WinDbr32';
  procedure  MdbSetIndex (hDB: THandle; lIndex:longint);  stdcall; external 'WinDbr32';
  procedure  MdbSetPname (hDB: THandle; Pname: integer);  stdcall; external 'WinDbr32';
  function   MdbAddPname (hDB: THandle; Pname: integer):boolean;  stdcall; external 'WinDbr32';
  function   MdbGetIndex(hDB:THandle): longint; stdcall; external 'WinDbr32';
  function   MdbGetData(hDB: THandle; lpdbData: lpMdbData): boolean; stdcall; external 'WinDbr32';
  Function   MdbIsMultiPoint (hDB: THandle): boolean; stdcall; external 'WinDbr32';
  Function   MdbSkipPoints (hDB: THandle): boolean; stdcall; external 'WinDbr32';
  function   MdbGetObsTime(hDB: THandle; lpdtObsTime: lpYMDHM):boolean; stdcall; external 'WinDbr32';
 /// Procedure  MdbSetClear(hDB: THandle);stdcall; external 'WinDbr32';
  Procedure  MdbSetLevelType(hDB: THandle; nLevelType:integer);stdcall; external 'WinDbr32';
  Function   MdbGetCallSign (hDB: THandle; lpBuf:pointer; nSize: integer):integer;stdcall; external 'WinDbr32';
  procedure  MdbSetCallSign (hDB: THandle; szCallSign: lpTBuffer); stdcall; external 'WinDbr32';
  procedure  MdbSetIndexFilter (hDB: THandle; lpUserFunc: pointer; lParam: longint); stdcall; external 'WinDbr32';
  Function   MdbTell(hDB: THandle; wFlags:word; lpBuf:pointer; wSize:word):word; stdcall; external 'WinDBr32';
  Function   MdbGetPosSize(hDB: THandle; wFlags: word): word; stdcall; external 'WinDBr32';
  Function   MdbSeek(hDB: THandle; wFlags:word; lpBuf: pointer; wSize: word):boolean; stdcall; external 'WinDBr32';


 // Procedure  MdbSetPname(HDB: THandle; nPname:integer);stdcall; external 'WinDbr32';
Var
  szFilePath :Pchar;
  hDB, Hwnd :Thandle;
  hndDLLHandle: THandle;
  pMyMdbData : lpMdbData;
  DateBegin,DateEnd: YMDHM;
  pDB, pDE, pD, pTemp : lpYMDHM;

const
  NULL = 0;
  
implementation

end.