Pero yo quiero que luego en cualquier programa yo pueda declara un objeto de esa clase y usar sus procedimientos. Mira yo tengo:
Código:
unit MICLASE;
interface
uses
Classes, SysUtils;
const
{ Used with ChannelModeID property }
VORBIS_CM_MONO = 1; { Code for mono mode }
VORBIS_CM_STEREO = 2; { Code for stereo mode }
// Added for multi-channel OGG files
VORBIS_CM_3Ch = 3;
VORBIS_CM_4Ch = 4;
VORBIS_CM_5Ch = 5;
VORBIS_CM_5Dot1Ch = 6;
{ Channel mode names }
VORBIS_MODE: array [0..5] of string = ('Unknown', 'Mono', 'Stereo', '3Ch', '4Ch', '5.1Ch');
type
{ Class TOggVorbis }
TMICLASE = class(TObject)
private
{ Private declarations }
FFileSize: Integer;
FChannelModeID: Byte;
FSampleRate: Word;
FBitRateNominal: Word;
FSamples: Integer;
FID3v2Size: Integer;
FTitle: string;
FArtist: string;
FAlbum: string;
FTrack: Word;
FDate: string;
FGenre: string;
FComment: string;
FVendor: string;
// * Followings are added to show additional stream information by Silhwan Hyun
FStreamVersion : Byte;
FSerialNo : integer;
FExtraTag: string;
procedure FResetData;
function FGetChannelMode: string;
function FGetDuration: Double;
function FGetBitRate: Word;
function FHasID3v2: Boolean;
function FIsValid: Boolean;
public
{ Public declarations }
constructor Create; { Create object }
destructor Destroy; override; { Destroy object }
function ReadFromFile(const FileName: string): Boolean; { Load data }
function SaveTag(const FileName: string): Boolean; { Save tag data }
function ClearTag(const FileName: string): Boolean; { Clear tag data }
property FileSize: Integer read FFileSize; { File size (bytes) }
property ChannelModeID: Byte read FChannelModeID; { Channel mode code }
property ChannelMode: string read FGetChannelMode; { Channel mode name }
property SampleRate: Word read FSampleRate; { Sample rate (hz) }
property BitRateNominal: Word read FBitRateNominal; { Nominal bit rate }
property Title: string read FTitle write FTitle; { Song title }
property Artist: string read FArtist write FArtist; { Artist name }
property Album: string read FAlbum write FAlbum; { Album name }
property Track: Word read FTrack write FTrack; { Track number }
property Date: string read FDate write FDate; { Year }
property Genre: string read FGenre write FGenre; { Genre name }
property Comment: string read FComment write FComment; { Comment }
property Vendor: string read FVendor; { Vendor string }
property Duration: Double read FGetDuration; { Duration (seconds) }
property BitRate: Word read FGetBitRate; { Average bit rate }
property ID3v2: Boolean read FHasID3v2; { True if ID3v2 tag exists }
property Valid: Boolean read FIsValid; { True if file valid }
// * Added properties by Silhwan Hyun
property StreamVersion: Byte read FStreamVersion;
property SerialNumber: integer read FSerialNo;
property ExtraTag: string read FExtraTag write FExtraTag;
end;
implementation
...
Entonces yo quiero meter eso en una libreria para luego en cualquier programa poder declarar
objeto : MICLASE