NCTWMAFile2 ActiveX DLL不能独立使用?(谁有破解版?)(100分)

  • 主题发起人 主题发起人 网络3K
  • 开始时间 开始时间

网络3K

Unregistered / Unconfirmed
GUEST, unregistred user!
独立安装NCTWMAFile2 ActiveX DLL后使用提示,‘类没有注册’,怎么回事啊!
如果安装AudioStudio软件使用NCTWMAFile2 ActiveX DLL就没有问题。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, NCTWMAFILE2Lib_TLB;

type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
btnOpenFile: TButton;
ListBox1: TListBox;
WMAFileInformation21: TWMAFileInformation2;
infoTitle: TEdit;
infoArtist: TEdit;
infoAlbum: TEdit;
infoYear: TEdit;
infoComments: TEdit;
infoTrack: TEdit;
infoGenre: TEdit;
infoComposer: TEdit;
infoCopyright: TEdit;
infoURL: TEdit;
btnSaveTag: TButton;
EDFilePath: TEdit;
L1: TLabel;
L2: TLabel;
L3: TLabel;
L4: TLabel;
L5: TLabel;
L6: TLabel;
L7: TLabel;
L8: TLabel;
L9: TLabel;
L10: TLabel;
L11: TLabel;
procedure btnOpenFileClick(Sender: TObject);
procedure btnSaveTagClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnOpenFileClick(Sender: TObject);
begin

if not OpenDialog1.Execute then
exit;
ListBox1.Items.Clear;
EDFilePath.Text:=OpenDialog1.FileName;
WMAFileInformation21.GetAudioInformation(OpenDialog1.FileName);
infoTitle.Text:=WMAFileInformation21.infoTitle;
infoArtist.Text:=WMAFileInformation21.infoArtist;
infoAlbum.Text:=WMAFileInformation21.infoAlbum;
infoYear.Text:=WMAFileInformation21.infoYear;
infoComments.Text:=WMAFileInformation21.infoComments;
infoTrack.Text:=WMAFileInformation21.infoTrack;
infoComposer.Text:=WMAFileInformation21.infoComposer;
infoGenre.Text:=WMAFileInformation21.infoGenre;
infoCopyright.Text:=WMAFileInformation21.infoCopyright;
infoURL.Text:=WMAFileInformation21.infoURL;
{----------------------------------------------------------------------------}
ListBox1.Items.Add(' 时间: '+FormatFloat('0.0', WMAFileInformation21.Duration));
ListBox1.Items.Add(' 长度: '+IntToStr(WMAFileInformation21.Size)+' 字节');
ListBox1.Items.Add('采样率: '+IntToStr(WMAFileInformation21.Frequency)+' Hz');
ListBox1.Items.Add('比特率: '+IntToStr(WMAFileInformation21.Bitrate)+' Kbps');
ListBox1.Items.Add(' 码率: '+IntToStr(WMAFileInformation21.BitsPerSample)+' bit');
ListBox1.Items.Add(' 声道: '+IntToStr(WMAFileInformation21.Channels));
ListBox1.Items.Add(' 编码: '+WMAFileInformation21.infoEncodedBy);
ListBox1.Items.Add(' 原创: '+WMAFileInformation21.infoOriginalArtist);
ListBox1.Items.Add(WMAFileInformation21.FormatString);
end;


procedure TForm1.btnSaveTagClick(Sender: TObject);
begin

WMAFileInformation21.infoTitle:=infoTitle.Text;
WMAFileInformation21.infoArtist:=infoArtist.Text;
WMAFileInformation21.infoAlbum:=infoAlbum.Text;
WMAFileInformation21.infoYear:=infoYear.Text;
WMAFileInformation21.infoComments:=infoComments.Text;
WMAFileInformation21.infoTrack:=infoTrack.Text;
WMAFileInformation21.infoComposer:=infoComposer.Text;
WMAFileInformation21.infoGenre:=infoGenre.Text;
WMAFileInformation21.infoCopyright:=infoCopyright.Text;
WMAFileInformation21.infoURL:=infoURL.Text;

WMAFileInformation21.SetAudioInformation(EDFilePath.Text);

end;


end.
 
没有人回答,分收回,留做它用。其它人不用回答了,谢谢!
 
领这个帖子的分:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3403804
 
to liuchong
你有没有QQ啊!
我QQ:13335085
 
QQ:10040231
 
后退
顶部