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!?