delphi调用动态库 Readpebble

Question

有人使用过
function ReadPebble (pHandler:integer;sBuffer:Pchar;iLen,iBuffer:integer):boolean;safecall;external 'iomem.dll' name '_ReadPebble@16';
怎么使用？

Answer 1

就是个接口，引入过来，该怎么用就怎用如果你不会调用dll，google 吧

Answer 2

代码附上
声明
function ReadPebble (pHandler:integer;sBuffer:Pchar;iLen,iBuffer:integer):boolean;safecall;external 'iomem.dll' name '_ReadPebble@16';procedure TForm1.Button2Click(Sender: TObject);
var
  bool,bool1,bool2,bool3,bool4,bool5,bool6,bClose:boolean;
  str,str1,str2,str3,str4,str5,str6,Strlist:String;
  buffer:array[0..512]   of   byte   ; 
begin  
  BytesRead:=0;
  Str:=chr(27)+'Pem;2'+chr(13);
  Str1:=chr(27)+'Ss'+chr(13);
  Str2:=chr(27)+'Smr'+chr(13);
  Str3:=chr(27)+'Rmb;1'+chr(13);
  Str4:=chr(27)+'Rmb;2'+chr(13);
  Str5:=chr(27)+'Rmb;3'+chr(13);
  Str6:=chr(27)+'Se'+chr(13);
  Strlist:= Str+Str1+Str2+Str3+Str4+Str5+Str6;
  FreeMemory(@buffer);
  if printName > 0 then
  begin
    bool1:=WritePebble(printName,Pchar(Strlist),length(Strlist));
    bool := ReadPebble(printName,@buffer,512,length(Pchar(@buffer)));     bClose := ClosePebble(PrintName);
  end;end;