29-07-2014, 04:16 PM
الصفحات : 1 2
29-07-2014, 06:22 PM
هل تقصد ملف نصي ام مكون ك richedit
ان كنت تريد المكون البديل
ان كنت تريد المكون البديل
كود :
http://wiki.lazarus.freepascal.org/RichMemo29-07-2014, 06:33 PM
شكرا على المرور اخي Piratware
لي مكون LzRichEdit و اخزن نصه المنسق في قاعدة بيانا في حقل من نوع Blob
لي مكون LzRichEdit و اخزن نصه المنسق في قاعدة بيانا في حقل من نوع Blob
29-07-2014, 06:39 PM
لما لا تستخدم tfilestream لحفظ محتوى المكون وتقوم بحفظه في حقل ال blob
29-07-2014, 06:45 PM
جربت 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.
جربت للقراءة فنجحت عادي ، لكن الكتابة لا يمكن بهذا الكود يمكن القراءة
فكانت الرسالة
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;29-07-2014, 06:49 PM
الخطأ السابق ولله العلم ان dataset لاتستطيع قراءة التحديثات المرتبطة بال primary key
الفكرة تحتاج تحديث للجدول بعد الإضافة و الحذف
الفكرة تحتاج تحديث للجدول بعد الإضافة و الحذف
29-07-2014, 07:00 PM
يبدو انني اواجه مشكلة في الجدول صحيح بارك الله فيك ساراجع البرنامج
جزاك الله خيرا
جزاك الله خيرا
30-07-2014, 11:31 AM
يوجد مثال في المسار
هل تستطيع تبسيطه لنا ؟ جزاك الله خيرا لاني عند الحفظ اجد التنسيق TXt وليس RTF
استعملت
كود :
.\lzRichEdit\Exemplo_RichBoxاستعملت
كود :
var fstrm:TFileStream;
begin
if OpenDialog1.Execute then
begin
Fstrm:=TFileStream.Create(OpenDialog1.FileName,fmCreate);
Lzrichedit.Lines.SaveToStream(Fstrm);
Fstrm.Free;
end;30-07-2014, 03:39 PM
السلام عليكم
جرب هذا الكود
جرب هذا الكود
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;
30-07-2014, 06:55 PM
وعليكم السلام ورحمة الله
جربت هذا الكود ولم ينجح ، بل حتى اذا خزنته في ملف مثلا myrich.rtf نجد بعد فته انه بتنسيق تاكست عادي وليس RTF
جربت هذا الكود ولم ينجح ، بل حتى اذا خزنته في ملف مثلا 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;الصفحات : 1 2