下面的函数如何调用

Question

dword_stdcall read(byte* pdata,size_t ilne);
来源:easy.dll

Answer 1

//申明Tread= function (byte* pdata,size_t ilne):DWORD; stdcall;//得到函数地址
var
  numbers: integer;
  resu: integer;
  wnd : Thandle;
  read:Tread;
begin
  wnd := LoadLibrary('easy.dll');
  if wnd <> 0 then
  begin
    read := GetProcAddress(wnd,'read');
    if assigned(read)then
    begin
      //证明全部载入了
    end;
  END;
end;
//然后使用就行了