تخزين نص في قاعدة بيانات

[mobile]

السلام عليكم ورحمة الله
كيف يمكن تخزين نص في richedit في قاعدة بيانات بما انه لا يوجد dbrichedit

[piratewar]

هل تقصد ملف نصي ام مكون ك richedit
ان كنت تريد المكون البديل

كود :

http://wiki.lazarus.freepascal.org/RichMemo

[mobile]

شكرا على المرور اخي Piratware
لي مكون LzRichEdit و اخزن نصه المنسق في قاعدة بيانا في حقل من نوع Blob

[piratewar]

لما لا تستخدم tfilestream لحفظ محتوى المكون وتقوم بحفظه في حقل ال blob

[mobile]

جربت Tsream
فكانت الرسالة
0 record(s) updated. Only one record should have been updated.

Press OK to ignore and risk data corruption.
Press Cancel to kill the program.

جربت للقراءة فنجحت عادي ، لكن الكتابة لا يمكن بهذا الكود يمكن القراءة

كود :

STrm:=Qedit.CreateBlobStream(Qedit.FieldByName('Myblob'),bmRead); RichEdit.LoadFromStream(STrm); finally STrm.Free;

[piratewar]

الخطأ السابق ولله العلم ان dataset لاتستطيع قراءة التحديثات المرتبطة بال primary key
الفكرة تحتاج تحديث للجدول بعد الإضافة و الحذف

[mobile]

يبدو انني اواجه مشكلة في الجدول صحيح بارك الله فيك ساراجع البرنامج
جزاك الله خيرا

[mobile]

يوجد مثال في المسار

كود :

.\lzRichEdit\Exemplo_RichBox

هل تستطيع تبسيطه لنا ؟ جزاك الله خيرا لاني عند الحفظ اجد التنسيق TXt وليس RTF
استعملت

كود :

var fstrm:TFileStream; begin if OpenDialog1.Execute then begin Fstrm:=TFileStream.Create(OpenDialog1.FileName,fmCreate); Lzrichedit.Lines.SaveToStream(Fstrm); Fstrm.Free; end;

[S.FATEH]

السلام عليكم
جرب هذا الكود

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    RichEdit1.Lines.SaveToStream(Stream);
    Stream.Seek(0, soFromBeginning);
    Tableau.YourBlobField.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end; 


[mobile]

وعليكم السلام ورحمة الله
جربت هذا الكود ولم ينجح ، بل حتى اذا خزنته في ملف مثلا myrich.rtf نجد بعد فته انه بتنسيق تاكست عادي وليس RTF

كود :

procedure Tgsf.cySpeedButton12Click(Sender: TObject); var Stream: TMemoryStream; begin Stream := TMemoryStream.Create; try Edtdetail.Lines.SaveToStream(Stream); Stream.Seek(0, soFromBeginning); TBlobField(dm.Qedit2.FieldByName('observation')).LoadFromStream(Stream); finally Stream.Free; end; end;