jwawinfax.pas

比较全面的win32api开发包

{$EXTERNALSYM FaxGetJobA}
function FaxGetJobW(FaxHandle: HANDLE; JobId: DWORD; var JobEntry: PFAX_JOB_ENTRYW): BOOL; stdcall;
{$EXTERNALSYM FaxGetJobW}

{$IFDEF UNICODE}
function FaxGetJob(FaxHandle: HANDLE; JobId: DWORD; var JobEntry: PFAX_JOB_ENTRYW): BOOL; stdcall;
{$EXTERNALSYM FaxGetJob}
{$ELSE}
function FaxGetJob(FaxHandle: HANDLE; JobId: DWORD; var JobEntry: PFAX_JOB_ENTRYA): BOOL; stdcall;
{$EXTERNALSYM FaxGetJob}
{$ENDIF}

function FaxSetJobA(FaxHandle: HANDLE; JobId: DWORD; Command: DWORD; JobEntry: PFAX_JOB_ENTRYA): BOOL; stdcall;
{$EXTERNALSYM FaxSetJobA}
function FaxSetJobW(FaxHandle: HANDLE; JobId: DWORD; Command: DWORD; JobEntry: PFAX_JOB_ENTRYW): BOOL; stdcall;
{$EXTERNALSYM FaxSetJobW}

{$IFDEF UNICODE}
function FaxSetJob(FaxHandle: HANDLE; JobId: DWORD; Command: DWORD; JobEntry: PFAX_JOB_ENTRYW): BOOL; stdcall;
{$EXTERNALSYM FaxSetJob}
{$ELSE}
function FaxSetJob(FaxHandle: HANDLE; JobId: DWORD; Command: DWORD; JobEntry: PFAX_JOB_ENTRYA): BOOL; stdcall;
{$EXTERNALSYM FaxSetJob}
{$ENDIF}

function FaxGetPageData(FaxHandle: HANDLE; JobId: DWORD; var Buffer: LPBYTE; var BufferSize, ImageWidth, ImageHeight: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxGetPageData}

function FaxGetDeviceStatusA(FaxPortHandle: HANDLE; var DeviceStatus: PFAX_DEVICE_STATUSA): BOOL; stdcall;
{$EXTERNALSYM FaxGetDeviceStatusA}
function FaxGetDeviceStatusW(FaxPortHandle: HANDLE; var DeviceStatus: PFAX_DEVICE_STATUSW): BOOL; stdcall;
{$EXTERNALSYM FaxGetDeviceStatusW}

{$IFDEF UNICODE}
function FaxGetDeviceStatus(FaxPortHandle: HANDLE; var DeviceStatus: PFAX_DEVICE_STATUSW): BOOL; stdcall;
{$EXTERNALSYM FaxGetDeviceStatus}
{$ELSE}
function FaxGetDeviceStatus(FaxPortHandle: HANDLE; var DeviceStatus: PFAX_DEVICE_STATUSA): BOOL; stdcall;
{$EXTERNALSYM FaxGetDeviceStatus}
{$ENDIF}

function FaxAbort(FaxHandle: HANDLE; JobId: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxAbort}

function FaxGetConfigurationA(FaxHandle: HANDLE; var FaxConfig: PFAX_CONFIGURATIONA): BOOL; stdcall;
{$EXTERNALSYM FaxGetConfigurationA}
function FaxGetConfigurationW(FaxHandle: HANDLE; var FaxConfig: PFAX_CONFIGURATIONW): BOOL; stdcall;
{$EXTERNALSYM FaxGetConfigurationW}

{$IFDEF UNICODE}
function FaxGetConfiguration(FaxHandle: HANDLE; var FaxConfig: PFAX_CONFIGURATIONW): BOOL; stdcall;
{$EXTERNALSYM FaxGetConfiguration}
{$ELSE}
function FaxGetConfiguration(FaxHandle: HANDLE; var FaxConfig: PFAX_CONFIGURATIONA): BOOL; stdcall;
{$EXTERNALSYM FaxGetConfiguration}
{$ENDIF}

function FaxSetConfigurationA(FaxHandle: HANDLE; const FaxConfig: FAX_CONFIGURATIONA): BOOL; stdcall;
{$EXTERNALSYM FaxSetConfigurationA}
function FaxSetConfigurationW(FaxHandle: HANDLE; const FaxConfig: FAX_CONFIGURATIONW): BOOL; stdcall;
{$EXTERNALSYM FaxSetConfigurationW}

{$IFDEF UNICODE}
function FaxSetConfiguration(FaxHandle: HANDLE; const FaxConfig: FAX_CONFIGURATIONW): BOOL; stdcall;
{$EXTERNALSYM FaxSetConfiguration}
{$ELSE}
function FaxSetConfiguration(FaxHandle: HANDLE; const FaxConfig: FAX_CONFIGURATIONA): BOOL; stdcall;
{$EXTERNALSYM FaxSetConfiguration}
{$ENDIF}

function FaxGetLoggingCategoriesA(FaxHandle: HANDLE; var Categories: PFAX_LOG_CATEGORYA; var NumberCategories: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxGetLoggingCategoriesA}
function FaxGetLoggingCategoriesW(FaxHandle: HANDLE; var Categories: PFAX_LOG_CATEGORYW; var NumberCategories: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxGetLoggingCategoriesW}

{$IFDEF UNICODE}
function FaxGetLoggingCategories(FaxHandle: HANDLE; var Categories: PFAX_LOG_CATEGORYW; var NumberCategories: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxGetLoggingCategories}
{$ELSE}
function FaxGetLoggingCategories(FaxHandle: HANDLE; var Categories: PFAX_LOG_CATEGORYA; var NumberCategories: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxGetLoggingCategories}
{$ENDIF}

function FaxSetLoggingCategoriesA(FaxHandle: HANDLE; Categories: PFAX_LOG_CATEGORYA; NumberCategories: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxSetLoggingCategoriesA}
function FaxSetLoggingCategoriesW(FaxHandle: HANDLE; Categories: PFAX_LOG_CATEGORYW; NumberCategories: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxSetLoggingCategoriesW}

{$IFDEF UNICODE}
function FaxSetLoggingCategories(FaxHandle: HANDLE; Categories: PFAX_LOG_CATEGORYW; NumberCategories: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxSetLoggingCategories}
{$ELSE}
function FaxSetLoggingCategories(FaxHandle: HANDLE; Categories: PFAX_LOG_CATEGORYA; NumberCategories: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxSetLoggingCategories}
{$ENDIF}

function FaxEnumPortsA(FaxHandle: HANDLE; var PortInfo: PFAX_PORT_INFOA; var PortsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumPortsA}
function FaxEnumPortsW(FaxHandle: HANDLE; var PortInfo: PFAX_PORT_INFOW; var PortsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumPortsW}

{$IFDEF UNICODE}
function FaxEnumPorts(FaxHandle: HANDLE; var PortInfo: PFAX_PORT_INFOW; var PortsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumPorts}
{$ELSE}
function FaxEnumPorts(FaxHandle: HANDLE; var PortInfo: PFAX_PORT_INFOA; var PortsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumPorts}
{$ENDIF}

function FaxGetPortA(FaxPortHandle: HANDLE; var PortInfo: PFAX_PORT_INFOA): BOOL; stdcall;
{$EXTERNALSYM FaxGetPortA}
function FaxGetPortW(FaxPortHandle: HANDLE; var PortInfo: PFAX_PORT_INFOW): BOOL; stdcall;
{$EXTERNALSYM FaxGetPortW}

{$IFDEF UNICODE}
function FaxGetPort(FaxPortHandle: HANDLE; var PortInfo: PFAX_PORT_INFOW): BOOL; stdcall;
{$EXTERNALSYM FaxGetPort}
{$ELSE}
function FaxGetPort(FaxPortHandle: HANDLE; var PortInfo: PFAX_PORT_INFOA): BOOL; stdcall;
{$EXTERNALSYM FaxGetPort}
{$ENDIF}

function FaxSetPortA(FaxPortHandle: HANDLE; const PortInfo: FAX_PORT_INFOA): BOOL; stdcall;
{$EXTERNALSYM FaxSetPortA}
function FaxSetPortW(FaxPortHandle: HANDLE; const PortInfo: FAX_PORT_INFOW): BOOL; stdcall;
{$EXTERNALSYM FaxSetPortW}

{$IFDEF UNICODE}
function FaxSetPort(FaxPortHandle: HANDLE; const PortInfo: FAX_PORT_INFOW): BOOL; stdcall;
{$EXTERNALSYM FaxSetPort}
{$ELSE}
function FaxSetPort(FaxPortHandle: HANDLE; const PortInfo: FAX_PORT_INFOA): BOOL; stdcall;
{$EXTERNALSYM FaxSetPort}
{$ENDIF}

function FaxEnumRoutingMethodsA(FaxPortHandle: HANDLE; var RoutingMethod: PFAX_ROUTING_METHODA; var MethodsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumRoutingMethodsA}
function FaxEnumRoutingMethodsW(FaxPortHandle: HANDLE; var RoutingMethod: PFAX_ROUTING_METHODW; var MethodsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumRoutingMethodsW}

{$IFDEF UNICODE}
function FaxEnumRoutingMethods(FaxPortHandle: HANDLE; var RoutingMethod: PFAX_ROUTING_METHODW; var MethodsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumRoutingMethods}
{$ELSE}
function FaxEnumRoutingMethods(FaxPortHandle: HANDLE; var RoutingMethod: PFAX_ROUTING_METHODA; var MethodsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumRoutingMethods}
{$ENDIF}

function FaxEnableRoutingMethodA(FaxPortHandle: HANDLE; RoutingGuid: LPCSTR; Enabled: BOOL): BOOL; stdcall;
{$EXTERNALSYM FaxEnableRoutingMethodA}
function FaxEnableRoutingMethodW(FaxPortHandle: HANDLE; RoutingGuid: LPCWSTR; Enabled: BOOL): BOOL; stdcall;
{$EXTERNALSYM FaxEnableRoutingMethodW}

{$IFDEF UNICODE}
function FaxEnableRoutingMethod(FaxPortHandle: HANDLE; RoutingGuid: LPCWSTR; Enabled: BOOL): BOOL; stdcall;
{$EXTERNALSYM FaxEnableRoutingMethod}
{$ELSE}
function FaxEnableRoutingMethod(FaxPortHandle: HANDLE; RoutingGuid: LPCSTR; Enabled: BOOL): BOOL; stdcall;
{$EXTERNALSYM FaxEnableRoutingMethod}
{$ENDIF}

function FaxEnumGlobalRoutingInfoA(FaxHandle: HANDLE; var RoutingInfo: PFAX_GLOBAL_ROUTING_INFOA; var MethodsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumGlobalRoutingInfoA}
function FaxEnumGlobalRoutingInfoW(FaxHandle: HANDLE; var RoutingInfo: PFAX_GLOBAL_ROUTING_INFOW; var MethodsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumGlobalRoutingInfoW}

{$IFDEF UNICODE}
function FaxEnumGlobalRoutingInfo(FaxHandle: HANDLE; var RoutingInfo: PFAX_GLOBAL_ROUTING_INFOW; var MethodsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumGlobalRoutingInfo}
{$ELSE}
function FaxEnumGlobalRoutingInfo(FaxHandle: HANDLE; var RoutingInfo: PFAX_GLOBAL_ROUTING_INFOA; var MethodsReturned: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxEnumGlobalRoutingInfo}
{$ENDIF}

function FaxSetGlobalRoutingInfoA(FaxHandle: HANDLE; const RoutingInfo: FAX_GLOBAL_ROUTING_INFOA): BOOL; stdcall;
{$EXTERNALSYM FaxSetGlobalRoutingInfoA}
function FaxSetGlobalRoutingInfoW(FaxHandle: HANDLE; const RoutingInfo: FAX_GLOBAL_ROUTING_INFOW): BOOL; stdcall;
{$EXTERNALSYM FaxSetGlobalRoutingInfoW}

{$IFDEF UNICODE}
function FaxSetGlobalRoutingInfo(FaxHandle: HANDLE; const RoutingInfo: FAX_GLOBAL_ROUTING_INFOW): BOOL; stdcall;
{$EXTERNALSYM FaxSetGlobalRoutingInfo}
{$ELSE}
function FaxSetGlobalRoutingInfo(FaxHandle: HANDLE; const RoutingInfo: FAX_GLOBAL_ROUTING_INFOA): BOOL; stdcall;
{$EXTERNALSYM FaxSetGlobalRoutingInfo}
{$ENDIF}

function FaxGetRoutingInfoA(FaxPortHandle: HANDLE; RoutingGuid: LPCSTR; var RoutingInfoBuffer: LPBYTE; var RoutingInfoBufferSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxGetRoutingInfoA}
function FaxGetRoutingInfoW(FaxPortHandle: HANDLE; RoutingGuid: LPCWSTR; var RoutingInfoBuffer: LPBYTE; var RoutingInfoBufferSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxGetRoutingInfoW}

{$IFDEF UNICODE}
function FaxGetRoutingInfo(FaxPortHandle: HANDLE; RoutingGuid: LPCWSTR; var RoutingInfoBuffer: LPBYTE; var RoutingInfoBufferSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxGetRoutingInfo}
{$ELSE}
function FaxGetRoutingInfo(FaxPortHandle: HANDLE; RoutingGuid: LPCSTR; var RoutingInfoBuffer: LPBYTE; var RoutingInfoBufferSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxGetRoutingInfo}
{$ENDIF}

function FaxSetRoutingInfoA(FaxPortHandle: HANDLE; RoutingGuid: LPCSTR; RoutingInfoBuffer: LPBYTE; RoutingInfoBufferSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxSetRoutingInfoA}
function FaxSetRoutingInfoW(FaxPortHandle: HANDLE; RoutingGuid: LPCWSTR; RoutingInfoBuffer: LPBYTE; RoutingInfoBufferSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxSetRoutingInfoW}

{$IFDEF UNICODE}
function FaxSetRoutingInfo(FaxPortHandle: HANDLE; RoutingGuid: LPCWSTR; RoutingInfoBuffer: LPBYTE; RoutingInfoBufferSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxSetRoutingInfo}
{$ELSE}
function FaxSetRoutingInfo(FaxPortHandle: HANDLE; RoutingGuid: LPCSTR; RoutingInfoBuffer: LPBYTE; RoutingInfoBufferSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxSetRoutingInfo}
{$ENDIF}

function FaxInitializeEventQueue(FaxHandle: HANDLE; CompletionPort: HANDLE; CompletionKey: ULONG_PTR; hWnd: HWND; MessageStart: UINT): BOOL; stdcall;
{$EXTERNALSYM FaxInitializeEventQueue}

procedure FaxFreeBuffer(Buffer: LPVOID); stdcall;
{$EXTERNALSYM FaxFreeBuffer}

function FaxStartPrintJobA(PrinterName: LPCSTR; const PrintInfo: FAX_PRINT_INFOA; var FaxJobId: DWORD; FaxContextInfo: PFAX_CONTEXT_INFOA): BOOL; stdcall;
{$EXTERNALSYM FaxStartPrintJobA}
function FaxStartPrintJobW(PrinterName: LPCWSTR; const PrintInfo: FAX_PRINT_INFOW; var FaxJobId: DWORD; FaxContextInfo: PFAX_CONTEXT_INFOW): BOOL; stdcall;
{$EXTERNALSYM FaxStartPrintJobW}

{$IFDEF UNICODE}
function FaxStartPrintJob(PrinterName: LPCWSTR; const PrintInfo: FAX_PRINT_INFOW; var FaxJobId: DWORD; FaxContextInfo: PFAX_CONTEXT_INFOW): BOOL; stdcall;
{$EXTERNALSYM FaxStartPrintJob}
{$ELSE}
function FaxStartPrintJob(PrinterName: LPCSTR; const PrintInfo: FAX_PRINT_INFOA; var FaxJobId: DWORD; FaxContextInfo: PFAX_CONTEXT_INFOA): BOOL; stdcall;
{$EXTERNALSYM FaxStartPrintJob}
{$ENDIF}

function FaxPrintCoverPageA(const FaxContextInfo: FAX_CONTEXT_INFOA; const CoverPageInfo: FAX_COVERPAGE_INFOA): BOOL; stdcall;
{$EXTERNALSYM FaxPrintCoverPageA}
function FaxPrintCoverPageW(const FaxContextInfo: FAX_CONTEXT_INFOW; const CoverPageInfo: FAX_COVERPAGE_INFOW): BOOL; stdcall;
{$EXTERNALSYM FaxPrintCoverPageW}

{$IFDEF UNICODE}
function FaxPrintCoverPage(const FaxContextInfo: FAX_CONTEXT_INFOW; const CoverPageInfo: FAX_COVERPAGE_INFOW): BOOL; stdcall;
{$EXTERNALSYM FaxPrintCoverPage}
{$ELSE}
function FaxPrintCoverPage(const FaxContextInfo: FAX_CONTEXT_INFOA; const CoverPageInfo: FAX_COVERPAGE_INFOA): BOOL; stdcall;
{$EXTERNALSYM FaxPrintCoverPage}
{$ENDIF}

function FaxRegisterServiceProviderW(DeviceProvider: LPCWSTR; FriendlyName: LPCWSTR; ImageName: LPCWSTR; TspName: LPCWSTR): BOOL; stdcall;
{$EXTERNALSYM FaxRegisterServiceProviderW}

function FaxRegisterServiceProvider(DeviceProvider: LPCWSTR; FriendlyName: LPCWSTR; ImageName: LPCWSTR; TspName: LPCWSTR): BOOL;
{$EXTERNALSYM FaxRegisterServiceProvider}

type
  PFAX_ROUTING_INSTALLATION_CALLBACKW = function (FaxHandle: HANDLE; Context: LPVOID; MethodName, FriendlyName, FunctionName, Guid: LPWSTR): BOOL; stdcall;
  {$EXTERNALSYM PFAX_ROUTING_INSTALLATION_CALLBACKW}
  TFaxRoutingInstallationCallbackW = PFAX_ROUTING_INSTALLATION_CALLBACKW;

  PFAX_ROUTING_INSTALLATION_CALLBACK = PFAX_ROUTING_INSTALLATION_CALLBACKW;
  {$EXTERNALSYM PFAX_ROUTING_INSTALLATION_CALLBACK}
  TFaxRoutingInstallationCallback = TFaxRoutingInstallationCallbackW;

function FaxRegisterRoutingExtensionW(FaxHandle: HANDLE; ExtensionName, FriendlyName, ImageName: LPCWSTR; CallBack: PFAX_ROUTING_INSTALLATION_CALLBACKW; Context: LPVOID): BOOL; stdcall;
{$EXTERNALSYM FaxRegisterRoutingExtensionW}

function FaxRegisterRoutingExtension(FaxHandle: HANDLE; ExtensionName, FriendlyName, ImageName: LPCWSTR; CallBack: PFAX_ROUTING_INSTALLATION_CALLBACKW; Context: LPVOID): BOOL;
{$EXTERNALSYM FaxRegisterRoutingExtension}

function FaxUnregisterRoutingExtensionA(hFaxHandle: HANDLE; lpctstrExtensionName: LPCSTR): BOOL; stdcall;
{$EXTERNALSYM FaxUnregisterRoutingExtensionA}
function FaxUnregisterRoutingExtensionW(hFaxHandle: HANDLE; lpctstrExtensionName: LPCWSTR): BOOL; stdcall;
{$EXTERNALSYM FaxUnregisterRoutingExtensionW}

{$IFDEF UNICODE}
function FaxUnregisterRoutingExtension(hFaxHandle: HANDLE; lpctstrExtensionName: LPCWSTR): BOOL; stdcall;
{$EXTERNALSYM FaxUnregisterRoutingExtension}
{$ELSE}
function FaxUnregisterRoutingExtension(hFaxHandle: HANDLE; lpctstrExtensionName: LPCSTR): BOOL; stdcall;
{$EXTERNALSYM FaxUnregisterRoutingExtension}
{$ENDIF}

function FaxAccessCheck(FaxHandle: HANDLE; AccessMask: DWORD): BOOL; stdcall;
{$EXTERNALSYM FaxAccessCheck}

//
// Fax Specific Access Rights
//

const
  FAX_JOB_SUBMIT   = ($0001);
  {$EXTERNALSYM FAX_JOB_SUBMIT}
  FAX_JOB_QUERY    = ($0002);
  {$EXTERNALSYM FAX_JOB_QUERY}
  FAX_CONFIG_QUERY = ($0004);
  {$EXTERNALSYM FAX_CONFIG_QUERY}
  FAX_CONFIG_SET   = ($0008);
  {$EXTERNALSYM FAX_CONFIG_SET}
  FAX_PORT_QUERY   = ($0010);
  {$EXTERNALSYM FAX_PORT_QUERY}
  FAX_PORT_SET     = ($0020);
  {$EXTERNALSYM FAX_PORT_SET}
  FAX_JOB_MANAGE   = ($0040);
  {$EXTERNALSYM FAX_JOB_MANAGE}

  FAX_READ = (STANDARD_RIGHTS_READ or FAX_JOB_QUERY or FAX_CONFIG_QUERY or FAX_PORT_QUERY);
  {$EXTERNALSYM FAX_READ}

  FAX_WRITE = (STANDARD_RIGHTS_WRITE or FAX_JOB_SUBMIT );
  {$EXTERNALSYM FAX_WRITE}

  FAX_ALL_ACCESS = (STANDARD_RIGHTS_ALL or FAX_JOB_SUBMIT or FAX_JOB_QUERY or FAX_CONFIG_QUERY or FAX_CONFIG_SET or FAX_PORT_QUERY or FAX_PORT_SET or FAX_JOB_MANAGE);
  {$EXTERNALSYM FAX_ALL_ACCESS}

implementation

const
  winfax = 'winfax.dll';

function FaxConnectFaxServerA; external winfax name 'FaxConnectFaxServerA';
function FaxConnectFaxServerW; external winfax name 'FaxConnectFaxServerW';
{$IFDEF UNICODE}
function FaxConnectFaxServer; external winfax name 'FaxConnectFaxServerW';
{$ELSE}
function FaxConnectFaxServer; external winfax name 'FaxConnectFaxServerA';
{$ENDIF}
function FaxClose; external winfax name 'FaxClose';
function FaxOpenPort; external winfax name 'FaxOpenPort';
function FaxCompleteJobParamsA; external winfax name 'FaxCompleteJobParamsA';
function FaxCompleteJobParamsW; external winfax name 'FaxCompleteJobParamsW';
{$IFDEF UNICODE}
function FaxCompleteJobParams; external winfax name 'FaxCo