كيف اعرض بيانات حقل من نوع Blob ؟ - نسخة قابلة للطباعة

كيف اعرض بيانات حقل من نوع Blob ؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اعرض بيانات حقل من نوع Blob ؟ (/showthread.php?tid=8372)

كيف اعرض بيانات حقل من نوع Blob ؟ - Med-01 - 26-01-2017

السلام عليكم ورحمة الله وبركاته
انشأت قاعدة بينات باسم dasefile وانشأت جدول باسم table1 وانشأت داخل الجدول ثلاثة حقول nom و Preom و file

الحقل file من نوع blob يحتوي على ملفت من نوع وورد اريد عند الضغط على زر show file يتم عرض هده الملفات

ماهو كود طلب هده الملفات من قاعدة اللبينات

[صورة: 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;

RE: محتاج مساعدة - Delphi4Us - 27-01-2017

بسيطة خزنه في مجلد المشروع بصفة مؤقتة تم قم بفتحه كما بالشكل المطلوب
وعند الانتهاء منه احذفه من المجلد
من الممكن ان تسمي المجلد Temp

RE: محتاج مساعدة - Med-01 - 27-01-2017

(27-01-2017, 06:51 PM)Delphi4Us كتب : بسيطة خزنه في مجلد المشروع بصفة مؤقتة تم قم بفتحه كما بالشكل المطلوب
وعند الانتهاء منه احذفه من المجلد
من الممكن ان تسمي المجلد Temp

السلام عليكم ورحمة الله وبركاته
جزاك الله خيراا اخي الكريم

كيف اجعله يعرف السطر المحدد متلا انا محدد ramy
المفروض اني احدد متلا الجدول table1 بعدها اطلب منه استخراج ملف الوورد من من حقل word file
لاكن كيف سيتعرف على karim و ramiy وsougail وali Huh

اشكر مسبقا وجزاك الله خيراااا

RE: كيف اعرض بيانات حقل من نوع Blob ؟ - لؤي - 30-01-2017

السلام عليكم
هذا مثال من النت على وضع صورة داخل حقل من نوع 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;

RE: كيف اعرض بيانات حقل من نوع Blob ؟ - Med-01 - 30-01-2017

السلام عليكم ورحمة الله وبركاته

اهلا لؤي جزاك الله خيراا
المشكل يكمن في تعديل ملف يعني يختلف عن الصورة الصورة يتم عرضها فقط
كما ان المتال يعتمد على sql انا اتعامل مع الاكسس , عموما الاكسس يتيح هد الخاصية
اي ان الخاصية موجودة فقط كيف نتصل بها بدالفي

[صورة: sddddd.png]

عموما انا اعجبني كودك التى وضعته في تلك المشاركة لاكني لم افهم بعض الامور

لم افهم المتغير BlobStream : TStream
كما لم افهم tbl. هل هو اسم قاعدة البينات ام الجدول Huh

؟
كما لم افهم tblPersonne. هل هو اسم الحقل Huh

؟

ياريت تشرح على اسم القاعدة والجداول التي هي في موضوعي

كودك
أو

للقراءة

كود :
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;

انا فهمت عندما قلت للقرأة ان الكود كود اتسدعاء الملف من قاعدة البينات
وعندما قلت للكتابة يعني لتعديل هل عندما اضغط على حفظ في ملف الوررد سيتم حفظه في قاعدة البيانات
وجزاك الله خيراااا اخي لؤي