+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : متتديات باسكال Pascal (https://delphi4arab.net/forum/forumdisplay.php?fid=7)
+--- قسم : Lazarus - Free Pascal - CrossKylix - Kylix - CrossVCL (https://delphi4arab.net/forum/forumdisplay.php?fid=34)
+--- الموضوع : تخزين نص في قاعدة بيانات (/showthread.php?tid=6355)
الصفحات:
1
2
تخزين نص في قاعدة بيانات - mobile - 29-07-2014
السلام عليكم ورحمة الله
كيف يمكن تخزين نص في richedit في قاعدة بيانات بما انه لا يوجد dbrichedit
تخزين نص في قاعدة بيانات - piratewar - 29-07-2014
هل تقصد ملف نصي ام مكون ك richedit
ان كنت تريد المكون البديل
كود :
http://wiki.lazarus.freepascal.org/RichMemoتخزين نص في قاعدة بيانات - mobile - 29-07-2014
شكرا على المرور اخي Piratware
لي مكون LzRichEdit و اخزن نصه المنسق في قاعدة بيانا في حقل من نوع Blob
تخزين نص في قاعدة بيانات - piratewar - 29-07-2014
لما لا تستخدم tfilestream لحفظ محتوى المكون وتقوم بحفظه في حقل ال blob
تخزين نص في قاعدة بيانات - mobile - 29-07-2014
جربت 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 - 29-07-2014
الخطأ السابق ولله العلم ان dataset لاتستطيع قراءة التحديثات المرتبطة بال primary key
الفكرة تحتاج تحديث للجدول بعد الإضافة و الحذف
تخزين نص في قاعدة بيانات - mobile - 29-07-2014
يبدو انني اواجه مشكلة في الجدول صحيح بارك الله فيك ساراجع البرنامج
جزاك الله خيرا
تخزين نص في قاعدة بيانات - mobile - 30-07-2014
يوجد مثال في المسار
كود :
.\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;تخزين نص في قاعدة بيانات - S.FATEH - 30-07-2014
السلام عليكم
جرب هذا الكود
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 - 30-07-2014
وعليكم السلام ورحمة الله
جربت هذا الكود ولم ينجح ، بل حتى اذا خزنته في ملف مثلا 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;