Delphi-PRAXiS - Delphi FLV Player

Hab mal so ne Frage, habe jetzt schon mehrere FLV Player entdeckt, wo nix auf eine SchokwavFlash Komponente oder ähnlich hindeutet!

Habt ihr vielleicht eine Ahnung wie das geht???

(Z.B.: Anhang | nFLVPlayer -

http://www.zeraha.org/file.41.html)

Auch mit dem Vergrößern, den Buttons (Stopp und so ja noch okay, aber den Pause button???)

Bis jetzt hab ich es soweit:

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    OpenDialog1: TOpenDialog;

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  Meinstream: TFileStream;

  meinbyte: Byte;

  Buchstabe: String;

  Data: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

Data := OpenDialog1.FileName;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

i: Integer;

begin

meinstream := TFileStream.Create(data, fmOpenRead); // Video reinladen

for i := 0 to 2 do // also 3 Mal (0, 1, 2)

begin

meinstream.Read(meinbyte, 1); // 1 Byte auslesen

buchstabe := buchstabe + Chr(meinbyte); // Byte in Buchstaben umwandeln mit Chr und string Buchstabe hinzufügen

end;

for i := 0 to 1000 do

begin

meinstream.Read(meinbyte, 1); // 1 Byte auslesen

buchstabe := buchstabe + IntToStr(meinbyte); // Byte in Buchstaben umwandeln mit Chr und string Buchstabe hinzufügen

end;

if i > 2 then 

meinstream.Read(meinbyte, 1); 

buchstabe := buchstabe + IntToStr(meinbyte); // Byte als Zahl lassen aber in string umwandeln und hinzufügen 

Showmessage(buchstabe);

meinstream.Free; // Wichtig: Wenn wir hier fertig sind Datei wieder freigeben!

end;

end.

Nur, wie soll ich jetzut weiter machen?

P.S.: Es erscheint übrigens "FLV1500068.........." eine ewig lange Zahlenkette!?