السلام عليكم ورحمة الله وبركاته
انشأت قاعدة بينات باسم dasefile وانشأت جدول باسم table1 وانشأت داخل الجدول ثلاثة حقول nom و Preom و file
الحقل file من نوع blob يحتوي على ملفت من نوع وورد اريد عند الضغط على زر show file يتم عرض هده الملفات
ماهو كود طلب هده الملفات من قاعدة اللبينات
![[صورة: sdsd.png]](https://s30.postimg.org/wvhb8dxo1/sdsd.png)
عموما انا وجدت كود فتح الملفات من مكان محدد على الجهاز لاكن ليس من قاعدة البينات
كود :
begin
Try
WordApplication1.Connect;
Except
MessageDlg('Word may not be installed', mtError, [mbOk], 0);
Abort;
End;
WordApplication1.Visible := True;
FormatParam := False;
Param := EmptyParam;
FileName := 'C:\Document Microsoft Word.docx';
wordApplication1.Documents.OpenOld(FileName, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam);
WordApplication1.Disconnect;
end;
بسيطة خزنه في مجلد المشروع بصفة مؤقتة تم قم بفتحه كما بالشكل المطلوب
وعند الانتهاء منه احذفه من المجلد
من الممكن ان تسمي المجلد Temp
(27-01-2017, 06:51 PM)Delphi4Us كتب : [ -> ]بسيطة خزنه في مجلد المشروع بصفة مؤقتة تم قم بفتحه كما بالشكل المطلوب
وعند الانتهاء منه احذفه من المجلد
من الممكن ان تسمي المجلد Temp
السلام عليكم ورحمة الله وبركاته
جزاك الله خيراا اخي الكريم
كيف اجعله يعرف السطر المحدد متلا انا محدد ramy
المفروض اني احدد متلا الجدول table1 بعدها اطلب منه استخراج ملف الوورد من من حقل word file
لاكن كيف سيتعرف على karim و ramiy وsougail وali
اشكر مسبقا وجزاك الله خيراااا
السلام عليكم
هذا مثال من النت على وضع صورة داخل حقل من نوع Blob و من بعد إظهارها :
حاول فهمها ومن بعد تغير الكود حسب إحتياجك
كود :
uses jpeg, pngimage;
type
TitTYPES=(itJPG,itPNG,itBMP);
procedure TDEMO.Button1Click(Sender: TObject);
var
jp:TJpegimage;
g:TGraphic;
begin
jp:=TJpegimage.Create;
try
ads.Close;
jp.LoadFromFile('C:\Bilder1\PIC.jpg');
ads.SQL.Text := 'Insert into IMGBlob (ID,Blob,typ) Values (:ID,:BLOB,:typ)';
ads.Parameters[0].Value := 1;
ads.Parameters[1].Assign(jp);
ads.Parameters[2].Value := itJPG;
ads.ExecSQL;
ads.SQL.Text := 'Select * from IMGBlob where ID=:ID';
ads.Parameters[0].Value := 1;
ads.Open;
try
case TitTYPES(ads.FieldByName('typ').AsInteger) of
itJPG: g:=TJpegimage.Create;
itPNG: g:=TPNGImage.Create;
itBMP: g:=TBitmap.Create;
end;
g.Assign(ads.FieldByName('Blob'));
Image1.Picture.Assign(g);
finally
g.Free;
end;
finally
jp.Free;
end;
السلام عليكم ورحمة الله وبركاته
اهلا لؤي جزاك الله خيراا
المشكل يكمن في تعديل ملف يعني يختلف عن الصورة الصورة يتم عرضها فقط
كما ان المتال يعتمد على sql انا اتعامل مع الاكسس , عموما الاكسس يتيح هد الخاصية
اي ان الخاصية موجودة فقط كيف نتصل بها بدالفي
![[صورة: sddddd.png]](https://s29.postimg.org/ccspue7vb/sddddd.png)
عموما انا اعجبني كودك التى وضعته في تلك المشاركة لاكني لم افهم بعض الامور
لم افهم المتغير BlobStream : TStream
كما لم افهم tbl. هل هو اسم قاعدة البينات ام الجدول
؟
كما لم افهم tblPersonne. هل هو اسم الحقل
؟
ياريت تشرح على اسم القاعدة والجداول التي هي في موضوعي
كودك
أو
للقراءة
كود :
procedure TfrmMain.tblPersonneAfterScroll(DataSet: TDataSet);
var BlobStream : TStream;
begin
BlobStream := tbl.CreateBlobStream(tblPersonne.FieldByName('إسم الحقل'),bmRead);
try
ReCommentaire.Lines.LoadFromStream(BlobStream);
finally
BlobStream.Free;
end;
end;
للكتابة
كود :
procedure TfrmMain.tblPersonneBeforePost(DataSet: TDataSet);
var BlobStream : TStream;
begin
BlobStream := tbl.CreateBlobStream(tblPersonne.FieldByName('إسم الحقل'),bmWrite);
try
ReCommentaire.Lines.SaveToStream(BlobStream);
finally
BlobStream.Free;
end;
end;
انا فهمت عندما قلت للقرأة ان الكود كود اتسدعاء الملف من قاعدة البينات
وعندما قلت للكتابة يعني لتعديل هل عندما اضغط على حفظ في ملف الوررد سيتم حفظه في قاعدة البيانات
وجزاك الله خيراااا اخي لؤي
![[صورة: icon.aspx?i=icon_smile_waving2]](http://www.startimes.com/icon.aspx?i=icon_smile_waving2)