دخول

cargem · 19-08-2011, 06:27 PM

implicit

كود :
function VDFileStream(const _1: VDFILE&): PRIVATE: cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

function operator=(const f: VDFILESTREAM&): CONST cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 


function var VDFileStream: UBLIC: cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

function VDFileStream(const pszFileName: PChar; 
                      VDFile(pszFileName: UINT32 FLAGS = NSVDFILE::KREAD | NSVDFILE::KDENYWRITE | NSVDFILE::KOPENEXISTING) :; 
                      _3: FLAGS): Integer cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

function VDFileStream(const pwszFileName: PWCHAR_T; 
                      VDFile(pwszFileName: UINT32 FLAGS = NSVDFILE::KREAD | NSVDFILE::KDENYWRITE | NSVDFILE::KOPENEXISTING) :; 
                      _3: FLAGS): Integer cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

function VDFileStream(h: VDFILEHANDLE): Integer cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

function ~VDFileStream: Integer cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 


function var GetNameForError: CONST WCHAR_T cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

function Pos: SINT64 cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

procedure Read(buffer: Pointer; 
               bytes: SINT32) cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

function ReadData(buffer: Pointer; 
                  bytes: SINT32): SINT32 cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

procedure Write(const buffer: Pointer; 
                bytes: SINT32) cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

function Length: SINT64 cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 

procedure Seek(offset: SINT64) cdecl  {$IFDEF WIN32} stdcall {$ENDIF}; 


implementation

function VDFileStream; external 'X.DLL';
function operator=; external 'X.DLL';
function VDFileStream; external 'X.DLL';
function VDFileStream; external 'X.DLL';
function VDFileStream; external 'X.DLL';
function VDFileStream; external 'X.DLL';
function ~VDFileStream; external 'X.DLL';
function GetNameForError; external 'X.DLL';
function Pos; external 'X.DLL';
procedure Read; external 'X.DLL';
function ReadData; external 'X.DLL';
procedure Write; external 'X.DLL';
function Length; external 'X.DLL';
procedure Seek; external 'X.DLL';

end.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة