جاسازی فایل Avi در Exe ???????

[mkalone]

سلام
فرض کنیم من می خواهم یک سی دی آموزشی بسازم
حالا باید از فایلهای فیلم برداری شده حفاظت کنم
برای اینکار چیکار می تونم بکنم
دیدم که می شده فایل ای وی آی رو در Resource فایل Exe می گذارند
اینکار رو هم خودم کردم ولی چه جوری پخشش کنیم
آخه این پلیر دلفی فقط به فایل وصل می شه و نمیشه از Stream استفاده کرد
اگر راه حل یا کامپوننت بهتری سراغ دارید متشکرم.


مرسی ::نوشتن::

[Touska]

از Player های دیگر استفاده کنید.

موفق باشید :flower:

[mkalone]

مثلا چی ؟

::نوشتن::

[mkalone]

راهنمائی بیشتری بفرمائید

[Touska]

با سلام ببین این بدرت می خوره از سایت Borland هست : :flower:

Storing/Playing an .AVI file in a database  - by Borland Developer Support Staff



Rating: Rating is 1.5 - 2.5     Ratings: 4     Rate it



 Question and Answer Database



FAQ1181D.txt   Storing/Playing an .AVI file in a database

Category   :Database/VCL

Platform    :All

Product    :All 32 bit  



Question:

How can I store an AVI file in a database and then play AVI 

files?



Answer:

AVI files can be stored in BLOB (binary large object) fields. 

The easiest way to play an AVI file stored in a BLOB is to write

the BLOB data to a temporary file, then let the mulimedia player

play the file. The following example demonstrates how to store 

an AVI file to a BLOB field, and also play the AVI file from the

BLOB field.



Example:



var

  FileName : string;



{This function gets a temporary file name form the system}

function GetTemporaryFileName : string;

{$IFNDEF WIN32}

  const MAX_PATH = 144;

{$ENDIF}

var

 {$IFDEF WIN32}

  lpPathBuffer : PChar;

 {$ENDIF}

  lpbuffer : PChar;

begin

 {Get the file name buffer}

  GetMem(lpBuffer, MAX_PATH);

 {$IFDEF WIN32}

 {Get the temp path buffer}

  GetMem(lpPathBuffer, MAX_PATH);

 {Get the temp path}

  GetTempPath(MAX_PATH, lpPathBuffer);

 {Get the temp file name}

  GetTempFileName(lpPathBuffer,

                  'tmp',

                  0,

                  lpBuffer);

 {Free the temp path buffer}

  FreeMem(lpPathBuffer, MAX_PATH);

 {$ELSE}

 {Get the temp file name}

  GetTempFileName(GetTempDrive('C'),

                  'tmp',

                  0,

                  lpBuffer);

 {$ENDIF}

 {Create a pascal string containg}

 {the  temp file name and return it}

  result := StrPas(lpBuffer);

 {Free the file name buffer}

  FreeMem(lpBuffer, MAX_PATH);

end;



{Read a AVI file into a blob field}

procedure TForm1.Button1Click(Sender: TObject);

var

  FileStream: TFileStream; {to load the avi file}

  BlobStream: TBlobStream; {to save to the blob}

begin

 {Allow the button to repaint}

  Application.ProcessMessages;

 {Turn off the buttons}

  Button1.Enabled := false;

  Button2.Enabled := false;

 {Assign the avi file name to read}

  FileStream := TFileStream.Create(

    'C:\PROGRA~1\BORLAND\DELPHI~1\DEMOS\COOLSTUF\C  OOL.AVI',

    fmOpenRead);

  Table1.Edit;

 {Create a BlobStream for the TField Table1AVI}

  BlobStream := TBlobStream.Create(Table1AVI, bmReadWrite);

 {Seek to the Beginning of the stream}

  BlobStream.Seek(0, soFromBeginning);

 {Delete any data that may be there}

  BlobStream.Truncate;

 {Copy from the FileStream to the BlobStream}

  BlobStream.CopyFrom(FileStream, FileStream.Size);

 {Free the streams}

  FileStream.Free;

  BlobStream.Free;

 {Post the record}

  Table1.Post;

 {Enable the buttons}

  Button1.Enabled := true;

  Button2.Enabled := true;

end;



{Read an avi stored in a blob, and play it}

procedure TForm1.Button2Click(Sender: TObject);

var

  FileStream: TFileStream; {a temp file}

  BlobStream: TBlobStream; {the AVI Blob}

begin

 {Create a blob stream for the AVI blob}

  BlobStream := TBlobStream.Create(Table1AVI, bmRead);

  if BlobStream.Size = 0 then begin

   BlobStream.Free;

   Exit;

  end;

 {Close the media player}

  MediaPlayer1.Close;

 {Reset the file name}

  MediaPlayer1.FileName := '';

 {Refresh the play window}

  MediaPlayer1.Display := Panel1;

  Panel1.Refresh;

 {if we have a temp file then erase it}

  if FileName <> '' then

    DeleteFile(FileName);

 {Get a temp file name}

  FileName := GetTemporaryFileName;

 {Create a temp file stream}

  FileStream := TFileStream.Create(FileName,

                                   fmCreate or fmOpenWrite);

 {Copy the blob to the temp file}

  FileStream.CopyFrom(BlobStream, BlobStream.Size);

 {Free the streams}

  FileStream.Free;

  BlobStream.Free;

 {Setup the Media player to play the AVI file}

  MediaPlayer1.FileName := filename;

  MediaPlayer1.DeviceType := dtAviVideo;

  MediaPlayer1.Open;

  MediaPlayer1.Play;

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

 {Unassign the temp file from the media player}

  MediaPlayer1.Close;

  MediaPlayer1.FileName := '';

 {Erase the temp file}

  if FileName <> '' then

    DeleteFile(FileName);

end;



7/16/98 4:31:28 PM

 

موفق باشید :flower:

[Touska]

ببین آیا این یکی بدردت می خوره

موفق باشید :flower:

[mkalone]

مرسی امتحان کنم و خبرش رو می دهم
روش اول زیاد مطلوب نیست چون می تونه توسط فرد حرفه ای به سرقت بره
ولی دومی رو امتحان می کنم

مرسی