Streaming af Mediefiler via ADO fra Access Blobfelt?

Kan dette her bruges?

procedure TForm1.ButtonClick(Sender: TObject);
var
  Query : TADOQuery;
  Stream : TMemoryStream;
begin
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := ADOConnection; // Forbind til access-databasen
    Query.SQL.Text := 'select Id, data from media';
    Query.Open;
    while not Query.Eof do
    begin
      Stream := (Query.CreateBlobStream(Query.FieldByName('data'),bmRead) as TMemoryStream);
      try
        Stream.Seek(0,soBeginning);
        // Gør med data hvad du vil her
      finally
        Stream.Free;
      end;
      Query.Next;
    end;
  finally
    Query.Free;
  end;
end;

Ja, det fungerer fint - det stort set samme metode jeg benytter til at hente billeder fra blobs.

Der hvor jeg går i stå, er måden jeg får mediaplayer til at afspille streamen...

Hvorfor skrev du ikke det i dit spørgsmål? Kan godt blive lidt træt af sådanne "Mit program virker ikke, hjælp!"-indlæg. Beskriv dog hvor langt du er kommet og hvor det går galt.

Der kom i alt fald noget mere kød på opgaven.

Hent Media Player SDK'en for version 11 (fylder > 1Gb)

  http://msdn2.microsoft.com/en-us/windowsmedia/bb190327.aspx

Her finder du også dokumentationen.

Jeg nævner 11'eren da det er den MP'er jeg har kørende. Med den håber jeg at kunne registrere MP'eren i Delphi som en komponent - der er noget der tyder på det, nemlig denne blog:

  http://blogs.msdn.com/brad_mccabe/archive/2005/03/10/392385.aspx

... men det er 10'eren der snakkes om. Det kan være at 11'eren er "dot nettet" så meget at man ikke kan. Det finder jeg ud af om 1 Gb's tid.

Det er da en start. Håber at kunne vende tilbage snarrest - men det det bestemmer mine to små "&"!¤#& tvillinger egenrådigt.

Det kan man: I min D2006'er gik jeg ind i menupunktet "Components/Import component", valgte activeX og fandt MP'eren nede i bunden af listen. Derved fik jeg lavet mig en komponentindpakning. Næste trin er at få den lagt ind i min pallette; det glemmer jeg altid hvordan.

Det lyder rigtigt spændende...

Jeg synes nu også at jeg havde skrevet i beskrivelsen, at det var streaming af mediefiler, der var problemet - men det var altså fra MP-komponenten jeg mente ;-)

Jeg er gået i gang med at hente MP SDK'en ned, så ser jeg lige hvor langt jeg kommer med den. Jeg vender tilbage når jeg enten jubler eller er gået i stå... he he :-)

OK - jeg er nu ca. nået til det du beskrev.

Jeg har fået en WMPLib_TLB.pas fil, men mangler at have den liggende i paletten, så jeg kan tilføje den i mit program...

Så nu mangler jeg kun at få den proppet i programmet og få den til at afspille video/lydstreamen fra min DB-blob :-)

Er der nogen der kan hjælpe mig videre?

Jeg kan stadig ikke kunnet få medieplayeren til at afspille en stream, og jeg har ikke fundet ud af at bruge hrcs activex komponent/lægge den i palletten...

Jeg vil evt. gerne kaste lidt flere point ind i sagens gode tjeneste!

Er der slet ingen der kan hjælpe med at få afspillet en mediestream i en delphi applikation?