delphi调用dll问题

Question

现在有一个用vb写的程序调用一个dll，我现在要将这个vb写的程序重新用delphi写 ，我在调用dll时，出现了一些问题vb中  Public Declare Function LinkCom Lib "OnReaderDll.dll" (ByVal port&) As Long  
      i = LinkCom(port)delphi中   Function LinkCom(port:pchar) : longword ;stdcall ; external  'OnReaderDll.dll' ;
          port = '1';
          i:longword; 
         i := LinkCom(port);提示 ：不能打开com port  ，win error code  2    (这个函数的主要作用是打开com1端口)
联系：275717746

Answer 1

这个函数定义的不太好，搞什么pchar，直接弄个整型好了Function LinkCom(port:pchar) : longword ;stdcall ; external  'OnReaderDll.dll' ; 
var port:pchar; 
    i:LongWord;
begin         、
    GetMem(port,255);
    port = '1'; 
    i := LinkCom(port);
    ShowMessage(inttostr(i));
    FreeMem(port);
end;