Neue Delphi-Komponente : TMiniMod für *.mod-Dateien

[TOC]

Hi!

Ich hab da mal ´ne neue Komponente gebastelt mit der man auf einfache Weise Tracker-Module im *.mod-Format ausgeben kann. Ja, ich weiß, Mod´s sind veraltet. Aber die kompilierte Komponente ist nur 28 KB groß, und gerade Mod-Dateien sind in der Regel sehr klein, bieten aber oft einen coolen Sound. Es gibt weltweit zahlreiche Archive mit Mod-Musik, wie zum Beispiel www.ModArchive.com oder auch www.tunestore.de. Außerdem gibt es Tracker, wie zum Beispiel FastTracker II, mit denen man selbst Mod´s komponieren kann.

Es ist mit TMiniMod wirklich denkbar einfach eine Mod-Datei auszugeben, zum Beispiel so:

Delphi-Quellcode:

procedure TInfoForm1.FormShow(Sender: TObject);
begin
  With MiniMod1 do Begin
    // Pfad- und Name Setzen
    FileName:=ExtractFilePath(ParamStr(0))+'Beispiel.mod';
    // Mod-Datei öffnen
    Open;
    // Wiedergabe starten
    Play;
  End;
end;

procedure TInfoForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // Soundkanäle wieder freigeben
  MiniMod1.Close;
end;

Das Original der MiniMOD.pas ist von Benjamin Rosseaux. Ich hab lediglich die Kapsellung für Delphi drumherum gebastelt. Von der Seite www.rosseaux.com könnt Ihr Euch ein professionelles BeRo-SoundSystem herunterladen.

[Edit] : Eine Aktuelle Version all meiner Komponenten findest Du hier : Tocs Komponenten als Paket

Grüße von TOC!