بانک اطلاعاتی همراه با عکس

من با برنامه اکسس دارم یک بانک اطلاعاتی درست میکنم که میخواهم داخل اون عکس و صوت ومتن باشد و میخواهم در برنامه دلفی از اون استفاده کنم .
با توجه به راهنماییهای برخی از دوستان توانستم بانک اطلاعاتی را در دلفی بیارم اما عکس و صوت و متن من لود نمیشود . به عکس زیر توجه کنید و لطفا مرا راهنمایی کنید .

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

سلام
ما رو سر کار گذاشتی
می خواهی عکس رو توی یک سلول نشون بدی؟؟؟؟؟؟؟؟؟

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

سلام
عكس و صوت را بايد بصورت Stream در يك فيلد از نوع Blob ذخيره كنيد.
بهتره عكس از كدتون بگيريد نه از فرم.
معمولا عكس را جستجو نميكنند بلكه بايد براي هر عكس چند تا كليد براي جستجو تعريف كنيد.

اصلا بگذلرید سوالم رو اینطور مطرح کنم :
من میخوام یک دیکشنری بسازم که وقتی مثلا کاربر تایپ کرد Dog برنامه معنی کلمه و عکس و صوت کلمه رو بیاره
.تا کاربر هر کلمه ای تایپ کرد اون کلمه رو براش به همین شکل بیاره حالا راهنمایی کنید که چطور باک اطلاعاتی این برنامه رو درست کنم و چطور وارد دلفی کنم و چطور در دلفی اینکار رو انجام بدم ؟

سلام
ممنون كه به اين زودي گفتيد چيكار ميخواهيد بكنيد!
توصيه ميكنم فايلهاي صوتي و تصويري را توي بانك ذخيره نكنيد چون حجم بانك بالا ميره و مشكل سرعت و ... پيش مياد.
ولي در هر صورت :

اول دو روال براي ذخيره/خواندن اطلاعات بصورت Stream در/از يك فيلد از نوع Blob :

کد:

---

var
  OutStream : TMemoryStream;

---

روال نوشتن :

کد:

---

ADOTable1.Edit;
 ADOTable1.Insert;
 TBlobField(ADOTable1.FieldByName('fldBlob')).LoadFromStream(OutStream);
 ADOTable1.Post;
 OutStream.Free;

---

روال خواندن :

کد:

---

ADOCommand1.CommandText := 'Select * from tblTest Where ...';
 ADOTable1.Recordset := ADOCommand1.Execute;

 OutStream := TMemoryStream.Create;
 TBlobField(ADOTable1.FieldByName('fldBlob')).SaveToStream(OutStream);
 OutStream.position:=0;

 DecompressStream(OutStream);
 OutStream.position:=0;

 OutStream.Free;

---

خب حالا نحوه بازگذاري يك عكس و ذخيره اون در يك Stream براي ذخيره شدن در بانك :

کد:

---

procedure WritePictureToStream(Picture: TPicture; Stream: TStream);
var
  MStream: TMemoryStream;
  iPictureSize: Integer;
begin
  MStream := TMemoryStream.Create;
  try
    ReadWritePictureFromStream(Picture, MStream, False);
    iPictureSize := MStream.Size;
    Stream.WriteBuffer(iPictureSize, sizeof(iPictureSize));
    Stream.WriteBuffer(MStream.Memory^, iPictureSize);
  finally
    MStream.Free;
  end;
end;

procedure ReadPictureFromStream(Picture: TPicture; Stream: TStream);
var
  MStream: TMemoryStream;
  iPictureSize: Integer;
begin
  MStream := TMemoryStream.Create;
  try
    Stream.ReadBuffer(iPictureSize, sizeof(iPictureSize));
    MStream.SetSize(iPictureSize);
    Stream.ReadBuffer(MStream.Memory^, iPictureSize);
    ReadWritePictureFromStream(Picture, MStream, True);
  finally
    MStream.Free;
  end;
end;

---

اختصاص تصوير موجود در Image1 :

کد:

---

  WritePictureToStream(Image1.Picture , OutStream);

---

خواندن عكس از ديتابيس و اختصاص آن به يك TImage :

کد:

---

  ReadPictureFromStream(Image1.Picture, OutStream);

---

خواندن يك فايل صوتي و ذخيره آن در يك Stream و پخش از Stream :

در Uses عبارت MMSystem را اضافه كنيد.

کد:

---

  OutStream := TMemoryStream.Create;
  OutStream.LoadFromFile(FileName);
  OutStream.Position := 0;
  PlaySound(OutStream.Memory , 0,SND_MEMORY);
  OutStream.Free;

---

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

نقل قول:

---

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

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

---

سلام

نه!

دستتون درد نکنه خیلی کمک کردید .

دوست عزیز.
همین که نان فورس جان تمام این کدهارو یکجا نوشتن و بهتون دادن یعنی همون مثالو درست کردند.
شما هم میتونی خیلی راحت با کپی و پیست و چندتا تغییر کوچیک برنامتون رو درست کنید.

موفق باشی.