چگونه میتوان چند فایل مجزا را در یک فایل ذخیره کرد؟

[Ali Ya Amin]

من یک دلفی کار مبتدی هستم. چگونه میتوان چند فایل مجزا را از چند نوع مختلف در یک فایل با یک پسوند ذخیره کرد و دوباره همان فایلها را خواند. مثلا یک فایل bmp. و
یک فایل wav. را در یک فایل zzz. ذخیره کرد و بدون ایراد آنها را خواند.
متشکرم؛ البته اگر کمکم کنید! :oops:

[SalarSoft]

سلام علی جان بابا کجا بودی! :heart:

خب اگر می خوای هر کدام از فایل های فوق جداگانه در یک فایل ذخیره بشن و دوباره بتونی اونا رو با فرمت ها قبلی استخراج کنی می تونی از TCollection استفاده کنی!

یعنی یه Stream توی TCollectionItem بزاری و بعدش با استفاده از Stream فایل مربوطه رو لود کنی.

من یونیت کامل این TCollection رو می زارم اینجا!

نحوه استفاده:
برای اینکه فایلها رو توش وارد کنی از کد زیر استفاده کن:

procedure TForm1.Button1Click(Sender: TObject);

var

  fany:TAnyFile;

  fItem1,fItem2:TAnyFileItem;

begin

  fany:=TAnyFile.Create(TAnyFileItem);

  try

    {--start Adding bmp format--}

    fItem1:=fany.Add;

    fItem1.Stream.LoadFromFile('c:\myPicture.b  mp');

    {---End Adding bmp format---}



    {--start Adding wav format--}

    fItem2:=fany.Add;

    fItem2.Stream.LoadFromFile('c:\MyWave.wav'  );

    {---End Adding wav format---}



    {---Save last file----}

     fAny.SaveToFile('c:\MyCombinedFiles.zzz'&#  41;;

    {---------------------}

  finally

    fany.Free;

  end;

end;

و برای استخراج از فایل فوق می تونی از دستور زیر استفاده کنی:

procedure TForm1.Button2Click(Sender: TObject);

var

  fany:TAnyFile;

  fItem1,fItem2:TAnyFileItem;

begin

  fany:=TAnyFile.Create(TAnyFileItem);

  try

    fany.LoadFromFile('c:\MyCombinedFiles.zzz'  );

    fany.Items[0].Stream.SaveToFile('c&#58  ;\myPicture.bmp');



    fany.Items[1].Stream.SaveToFile('c&#58  ;\MyWave.wav');



  finally

    fany.Free;

  end;

end;

این هم یه دیه حسابی واسه تو :gift:
امید وارم مفید بوده باشه (:D)

[SalarSoft]

سلام علی جان... :heart:
می بخشید مثل اینکه کد قبلی اشکال داشت!! چون تستش نکرده بودم!! :oops:
مشکل از اینجا بود که هنگام نوشتن کامپوننت TAnyFileItem پروپرتی Stream نوشته نمی شد. پس برای حل مشکل از DefineProperties استفاده کردم که در کلاس TComponent موجود است و اونو در کلاس TAnyFilesWrapper به کار بردم.
DefineProperties به ما اجازه می ده که هر آنچه را که خواستیم بتوانیم به عنوان پروپرتی ( یا همان دارایی) کامپوننتمان ذخیره کنیم (فرقی نمی کنه کجا, در هر فایلی یا در فایل DFM).
به هر حال...

دوباره اصلاحش کردم. و تستش کردم. درست کار می کنه.
با همون مثال بالایی می تونی کار کنی. :)

خوش باشی...(غم مخور که دنیا یک روز است)... :) :flower: