Autor Beitrag
Franky
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 18

Windows 98; xphomeedition
Delphi 2007 RAD Studio
BeitragVerfasst: Mo 15.02.10 16:18 
Hi Leute,
ich bin ja grad echt fasziniert, denn:
-entweder sind die Server aller Delphi-Nutzer voll mit Blobgefüllten Datenbanken, ohne dass die Blobs wer nutzt
-oder ich bin der EINZIGE, den es interessiert, wie man sie da auch wieder runterlädt.
-oder aber ich bin der einzige, der es nicht ohne Hilfe hinbekommt.

Problem: Ich habe einen MP3-Player mit Datenbankanbindung, das Hochladen der Lieder mittels Blob funktioniert einwandfrei.

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
 blob:= DB_Table.CreateBlobStream(DB_Table.FieldByName('MP3'),bmWrite );
     blob.Seek(0,sofrombeginning);
     FS:= TFileStream.Create(Add_TEXT.Text, fmOpenRead or soFromBeginning);
     blob.Copyfrom(fs,fs.Size);
     FS.Free;
     blob.free;
     DB_Table.Post;


(so in der gekürzten Version)

Kurzum, ich habe nicht den Hauch einer Ahnung, wie der Download geht. Habe die Funktion GetBlobFieldData in Datasets gefunden, aber wie find ich raus, wie groß der Blob ist. Zudem, wie Speicher ich es in einer Datei oder noch am perfektesten: Wie Streame ich live in den Player die MP3?

Wäre für Anregungen und Hilfe sehr Dankbar

Mfg Franky

_________________
Hier könnte ihre Werbung stehen
guinnes
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 182
Erhaltene Danke: 14



BeitragVerfasst: Mo 15.02.10 16:43 
Ein Blob-Field wird gelesen und in ein Array geschrieben :
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
var
  lStream    : TBlobStream;
begin
  lStream  := TBlobStream.Create(aField,lOpenMode);
  lStream.Read(aArray,Sizeof(aArray));
  lStream.Free;
end;