Avatar billede data2k.dk Nybegynder
26. marts 2001 - 01:03 Der er 3 kommentarer og
1 løsning

Hvordan laver jeg en *.nfo viewer

Jeg vil gerne lave min egen *.nfo viewer, som skal kunne afspille en midi fil.
Hvordan gør jeg dette..eksempel med source modtages gerne via e-mail
Avatar billede stone Forsker
26. marts 2001 - 01:30 #1
her er koden til afspilning af midi,au,wav,mp3,musik cd.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MPlayer, ComCtrls, Gauges, ExtCtrls;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    MP: TMediaPlayer;
    Button1: TButton;
    Gauge1: TGauge;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
begin
  MP.FileName := OpenDIalog1.FileName;
  MP.OPen;
end;
timer1.enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := 100;
gauge1.maxvalue := Mp.length;
gauge1.progress := Mp.Position;
end;

end.
Avatar billede data2k.dk Nybegynder
26. marts 2001 - 01:32 #2
hvad med det andet? Notepage kan også åbne og se nfo filer på samme måde som txt filer.. Er der et indbygget notepad lignende component i delphi?
Avatar billede pellelil Nybegynder
26. marts 2001 - 07:46 #3
Hvad med TMEMO ?:  MEMO1.Lines.LoadFromFile(\'FILNAVN.NFO\');
Avatar billede data2k.dk Nybegynder
26. marts 2001 - 14:22 #4
Jeg har fundet ud af det, men ellers tak:)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Riskpoint A/S (Riskpoint Solutions Limited)

Senior Developer

Forsvarsministeriets Materiel- og Indkøbsstyrelse

SAP-medarbejder til Roller & Autorisationer i Forsvarets Cyberdivision