Subversion Repositories delphiutils

library LAN_IP;

uses

  Windows,

  SysUtils,

  Classes,

  UD2_PluginIntf in '..\UD2_PluginIntf.pas',

  UD2_PluginUtils in '..\UD2_PluginUtils.pas',

  NetworkUtils in 'NetworkUtils.pas';

{$R *.res}

const

  PLUGIN_GUID: TGUID = '{3C7D83F7-742C-4B3C-9F63-D12DEB442D27}';

function PluginIdentifier: TGUID; cdecl;

begin

  result := PLUGIN_GUID;

end;

function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;

var

  sl: TStringList;

begin

  sl := TStringList.Create;

  try

    GetLocalIPAddressList(sl);

    result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl);

  finally

    sl.Free;

  end;

end;

function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;

var

  stPluginName: WideString;

  primaryLangID: Byte;

begin

  primaryLangID := wLangID and $00FF;

  if primaryLangID = LANG_GERMAN then

    stPluginName := 'IP-Adressen'

  else

    stPluginName := 'IP addresses';

  result := UD2_WritePascalStringToPointerW(lpPluginName, cchSize, stPluginName);

end;

function PluginVendorW(lpPluginVendor: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;

begin

  result := UD2_WritePascalStringToPointerW(lpPluginVendor, cchSize, 'ViaThinkSoft');

end;

function PluginVersionW(lpPluginVersion: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;

begin

  result := UD2_WritePascalStringToPointerW(lpPluginVersion, cchSize, '1.0');

end;

function IdentificationMethodNameW(lpIdentificationMethodName: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;

var

  stIdentificationMethodName: WideString;

begin

  stIdentificationMethodName := 'LAN_IP';

  result := UD2_WritePascalStringToPointerW(lpIdentificationMethodName, cchSize, stIdentificationMethodName);

end;

function CheckLicense(lpReserved: LPVOID): UD2_STATUS; cdecl;

begin

  result := UD2_STATUS_OK_LICENSED;

end;

exports

  PluginInterfaceID         name mnPluginInterfaceID,

  PluginIdentifier          name mnPluginIdentifier,

  PluginNameW               name mnPluginNameW,

  PluginVendorW             name mnPluginVendorW,

  PluginVersionW            name mnPluginVersionW,

  IdentificationMethodNameW name mnIdentificationMethodNameW,

  IdentificationStringW     name mnIdentificationStringW,

  CheckLicense              name mnCheckLicense;

end.