acmenum.dpr

来自「Voice Communicator (VC) 一套处理音频压缩的的控件包」· DPR 代码 · 共 59 行

(*
	----------------------------------------------

	  acmEnum.dpr
	  Voice Communicator components version 2.5
	  Audio Tools - simple ACM enumeration application

	----------------------------------------------
	  This source code cannot be used without
	  proper permission granted to you as a private
	  person or an entity by the Lake of Soft, Ltd

	  Visit http://lakeofsoft.com/ for details.

	  Copyright (c) 2001, 2005 Lake of Soft, Ltd
		     All rights reserved
	----------------------------------------------

	  created by:
		Lake, Sep 2001

	  modified by:
		Lake, Jan-Jun 2002
		Lake, Jun 2003
		Lake, Oct 2005

	----------------------------------------------
*)

{$DEFINE NO_SU_AUTODEFINE }

{$I unaDef.inc}

{$APPTYPE CONSOLE }

program
  acmEnum;

uses
  Windows, MMSystem,
  unaTypes, unaUtils, unaMsAcmAPI;

// --  --
function htmlFix(const value: string): string;
var
  i: int;
begin
  i := 1;
  result := '';
  //
  while (i <= length(value)) do begin
    //
    case (value[i]) of

      '&':
	result := result + '&amp;';

      '