memallocapi.pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

unit MemAllocAPI;

interface

type
  MEMHANDLE = LongWord;

function LoadDevice():LongWord;stdcall;
function CloseDevice(hVXD:LongWord):WordBool;stdcall;
function StaticMemAlloc(var BlockSize,PhysMemAddr,MemHandle,LineAddr:LongWord):wordBool;stdcall;


implementation

function LoadDevice; external 'MemAlloc.dll' name 'LoadDevice' ;
function CloseDevice; external 'MemAlloc.dll' name 'CloseDevice' ;
function StaticMemAlloc; external 'MemAlloc.dll' name 'StaticMemAlloc' ;

end.