nodejs调用delphi编写的dll

公司的业务需要，nodejs要读取文件版本号。

同事要求我用delphi编写dll，以供nodejs调用，结果通过json返回。

delphi代码如下：

 1 function GetFileInfo(APath: PAnsiChar): PAnsiChar;
 2 var
 3   sPath: string;
 4   FInfoSize, Temp, Len: Cardinal;
 5   InfoBuf: Pointer;
 6   TranslationLength: Cardinal;
 7   TranslationTable: Pointer;
 8   LanguageID, CodePage, LookupString: String;
 9   Value: PChar;
10   vJ: ISuperObject;
11 begin
12   sPath := Utf8ToAnsi(strPas(APath));
13   FInfoSize := GetFileVersionInfoSize(PChar(sPath), Temp);
14   vJ := SO;
15   if FInfoSize > 0 then
16   begin
17     InfoBuf := AllocMem(FInfoSize);
18     try  // try
19       GetFileVersionInfo(PChar(sPath), 0, FInfoSize, InfoBuf);
20 
21       if VerQueryValue( InfoBuf, '\VarFileInfo\Translation', TranslationTable, TranslationLength ) then
22       begin
23         CodePage := Format( '%.4x', [ HiWord( PLongInt( TranslationTable )^ ) ] );
24         LanguageID := Format( '%.4x', [ LoWord( PLongInt( TranslationTable )^ ) ] );
25       end;
26       LookupString := 'StringFileInfo\' + LanguageID + CodePage + '\';
27 
28       if VerQueryValue( InfoBuf, PChar( LookupString + 'CompanyName' ), Pointer( Value ), Len ) then
29         vJ.S['CompanyName'] := Value;
30       if VerQueryValue( InfoBuf, PChar( LookupString + 'FileDescription' ), Pointer( Value ), Len ) then
31         vJ.S['FileDescription'] := Value;
32       if VerQueryValue( InfoBuf, PChar( LookupString + 'FileVersion' ), Pointer( Value ), Len ) then
33         vJ.S['FileVersion'] := Value;
34       if VerQueryValue( InfoBuf, PChar( LookupString + 'InternalName' ), Pointer( Value ), Len ) then
35         vJ.S['InternalName'] := Value;
36       if VerQueryValue( InfoBuf, PChar( LookupString + 'LegalCopyright' ), Pointer( Value ), Len ) then
37         vJ.S['LegalCopyright'] := Value;
38       if VerQueryValue( InfoBuf, PChar( LookupString + 'LegalTrademarks' ), Pointer( Value ), Len ) then
39         vJ.S['LegalTrademarks'] := Value;
40       if VerQueryValue( InfoBuf, PChar( LookupString + 'OriginalFilename' ), Pointer( Value ), Len ) then
41         vJ.S['OriginalFilename'] := Value;
42       if VerQueryValue( InfoBuf, PChar( LookupString + 'ProductName' ), Pointer( Value ), Len ) then
43         vJ.S['ProductName'] := Value;
44       if VerQueryValue( InfoBuf, PChar( LookupString + 'ProductVersion' ), Pointer( Value ), Len ) then
45         vJ.S['ProductVersion'] := Value;
46       if VerQueryValue( InfoBuf, PChar( LookupString + 'Comments' ), Pointer( Value ), Len ) then
47         vJ.S['Comments'] := Value;
48     finally  // wrap up finally
49       FreeMem(InfoBuf, FInfoSize);
50     end;  // end try finally
51   end;
52   Result := PAnsiChar(AnsiString(vJ.AsJSon));
53 end;

PS：

1. 用到的字符串可能较长，注意调用ShareMem

2. 所有的string类型都需要定义成PAnsiChar

3. 此处nodejs使用的编码是utf8，需要转码

4. 返回值，需先通过AnsiString转换，再转换PAnsiChar，不然只能读取到第一个字符

 

nodejs测试代码如下：

 1 var ffi = require('ffi');
 2 
 3 try {
 4     var demo = ffi.Library('./fileInfo', {
 5         'GetFileInfo': [ 'string', ['string'] ],
 6     });
 7 
 8     console.log(demo);
 9     const info = demo.GetFileInfo('C:\\Program Files (x86)\\Tencent\\WeChat\\WeChat.exe');
10     console.log(JSON.parse(info));
11     console.log('End Test');
12 } catch(err) {
13     console.log(err);
14 }

测试结果如下：

转载于:https://www.cnblogs.com/CinYung/p/9293475.html