بانک cd

سلام
من دارم یه برنامه می نویسم به عنوان بانک سی دی
می خوام کاری کنم که وقتی یه سی دی رو می ذاریم تو سی دی رام و یه دکمه که تو فرم هست رو فشار می دیم
محتویات سی دی توی بانک سی دی اضافه بشه
تا دیگه لازم نباشه کسی دستی اونا رو وارد کنه
ولی نمی دونم چه طور میشه این کار رو کرد
اگر راهنمایی کنید ممنون میشم:20:

سلام

شما توضیح ندادین محتویات سی دی یعنی چی؟ و اینکه چه اطلاعاتی باید در بانک ذخیره بشه؟
اینها رو بگین بهتر میشد راهنمایی کرد!

نقل قول:

---

نوشته شده توسط hp1361 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام

شما توضیح ندادین محتویات سی دی یعنی چی؟ و اینکه چه اطلاعاتی باید در بانک ذخیره بشه؟
اینها رو بگین بهتر میشد راهنمایی کرد!

---

در مورد محتویات سی دی خودمم هنوز درست به نتیجه نرسیدم
شاید بهتر باشه تمام محتویات سی دی لیست بشن و کاربر اونایی رو که می خواد تیک بزنه و به بانک اضافه بشن
(یعنی همه فایلها و پوشه های توی سی دی)

يك مجموعه براي كار با فايلها و يا فولدرها توي دلفي هست.
فكر ميكنم توي تب win 3.1 باشه. اونجا ميتوني اونا رو بزاري و وقتي DBLCllick كرد، اون فايل رو توي يك ListBox اضافه كني.
اينجوري فكر كنم به چيزي كه ميخواي ميرسي.
البته بايد كامپوننتهايي كه دقيقا كاري كه شما ميخواين بكنين رو انجام بده، وجود داشته باشه (تيك زدن) ولي من نميشناسمشون.

سلام
از اين كد براي جستجوي فايلها در پوشه ها و زير پوشه ها مي توني استفاه كني. براي استفاده يه TMemo به فرمتون اضافه كنيد تا نتايج اونجا نمايش داده بشن. مقدار برگشتي از تابع، تعداد فايلهاي پيدا شده است:

کد:

---

function FindFiles(const Path, Mask: string; IncludeSubDir: boolean): integer;
var
  FindResult: integer;
  SearchRec : TSearchRec;
begin
  result := 0;

  FindResult := FindFirst(Path + Mask, faAnyFile - faDirectory, SearchRec);
  while FindResult = 0 do
  begin
    { do whatever you'd like to do with the files found }
    Form1.Memo1.Lines.Add(Path + SearchRec.Name);
    result := result + 1;

    FindResult := FindNext(SearchRec);
  end;
  { free memory }
  FindClose(SearchRec);

  if not IncludeSubDir then
    Exit;

  FindResult := FindFirst(Path + '*.*', faDirectory, SearchRec);
  while FindResult = 0 do
  begin
    if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
      result := result +
        FindFiles (Path + SearchRec.Name + '\', Mask, TRUE);

    FindResult := FindNext(SearchRec);
  end;
  { free memory }
  FindClose(SearchRec);
end;

---

نحوه فراخواني ( براي مثال، يافتن كليه فايلهاي mp3 در كليه پوشه ها و زير پوشه هاي درايو "جي":

کد:

---

var
  FoundItem:integer;
begin
  FoundItem:=FindFiles('g:\','*.mp3',True);
  if FoundItem<>0 then
    ShowMessage(inttostr(FoundItem)+' item found')
  else
    ShowMessage('No item found');
end;

---

موفق باشيد

من تو اين زمينه وارد نيستم اما يه برنامه هست به اسم where is it كه دقيقا كارش همينه شايد با بررسي اون بتوني به نتيجه بهتري برسي

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
از اين كد براي جستجوي فايلها در پوشه ها و زير پوشه ها مي توني استفاه كني. براي استفاده يه tmemo به فرمتون اضافه كنيد تا نتايج اونجا نمايش داده بشن. مقدار برگشتي از تابع، تعداد فايلهاي پيدا شده است:

کد:

---

function findfiles(const path, mask: String; includesubdir: Boolean): Integer;
var
  findresult: Integer;
  searchrec : Tsearchrec;
begin
  result := 0;
 
  findresult := findfirst(path + mask, faanyfile - fadirectory, searchrec);
  while findresult = 0 do
  begin
    { do whatever you'd like to do with the files found }
    form1.memo1.lines.add(path + searchrec.name);
    result := result + 1;
 
    findresult := findnext(searchrec);
  end;
  { free memory }
  findclose(searchrec);
 
  if not includesubdir then
    exit;
 
  findresult := findfirst(path + '*.*', fadirectory, searchrec);
  while findresult = 0 do
  begin
    if (searchrec.name <> '.') and (searchrec.name <> '..') then
      result := result +
        findfiles (path + searchrec.name + '\', mask, true);
 
    findresult := findnext(searchrec);
  end;
  { free memory }
  findclose(searchrec);
end;

---

نحوه فراخواني ( براي مثال، يافتن كليه فايلهاي mp3 در كليه پوشه ها و زير پوشه هاي درايو "جي":

کد:

---

var
  founditem:integer;
begin
  founditem:=findfiles('g:\','*.mp3',true);
  if founditem<>0 then
    showmessage(inttostr(founditem)+' item found')
  else
    showmessage('no item found');
end;

---

موفق باشيد

---

از لطف هر دو ممنون امتحان می کنم
ولی کاش یه توضیح مختصری هم راجع به کد تون می دادین:20:

نقل قول:

---

نوشته شده توسط reza41 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

من تو اين زمينه وارد نيستم اما يه برنامه هست به اسم where is it كه دقيقا كارش همينه شايد با بررسي اون بتوني به نتيجه بهتري برسي

---

نه دوست عزیز من باید تو محیط دلفی و با برنامه نویسی این کار رو انجام بدم

توضيح كد:
متغير searchRec يه ركورد هست كه قراره نتيجه جستجو در اون قرار بگيره.
تابع findFirst پيدا كردن اولين فايل با پسوند داده شده. كلاً كد زير:

کد:

---

FindResult := FindFirst(Path + Mask, faAnyFile - faDirectory, SearchRec);
  while FindResult = 0 do
  begin
    { do whatever you'd like to do with the files found }
    Form1.Memo1.Lines.Add(Path + SearchRec.Name);
    result := result + 1;

    FindResult := FindNext(SearchRec);
  end;
  { free memory }
  FindClose(SearchRec);


---

كليه فايلهايي كه با پسوند داده شده در پوشه اصلي (جاري- بدون زير پوشه ها) هستند رو جستجو مي كنه.
بعد از اون نوبت به زير پوشه هاست (در صورتي كه خواهان جستجو در آنها نيز باشيد).

کد:

---

FindResult := FindFirst(Path + '*.*', faDirectory, SearchRec);
  while FindResult = 0 do
  begin
    if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
      result := result +
        FindFiles (Path + SearchRec.Name + '\', Mask, TRUE);

    FindResult := FindNext(SearchRec);
  end;
  { free memory }

  FindClose(SearchRec);


---

اين عمل با كد فوق امكان پيذير شده است.

توجه كنيد كه در اين كد يك كد بازگشتي نوشته شده است و تابع FindFiles در خودش فراخواني شده. در واقع اين كد هر پوشه رو باز كرده و دوباره تابع FindFiles رو در اون پوشه نيز فراخواني كرده.

faDirectory= يعني فايلهاي دايركتوري (توجه كنيد كه پوشه ها هم يك نوع فايل هستند)
faAnyfile= همه نوع فايلي اعم از پوشه ها و غير پوشه ها
faAnyfile - faDirectory= همه فايلها بجز پوشه ها

موفق باشين