دخول

Med-01

السلام عليكم ورحمة الله وبركاته
انشأت قاعدة بينات باسم 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;

Delphi4Us · 27-01-2017, 06:51 PM

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

Med-01 · 27-01-2017, 07:41 PM

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

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

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

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

**لؤي** · 30-01-2017, 10:07 AM

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

Med-01 · 30-01-2017, 11:53 PM

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

اهلا لؤي جزاك الله خيراا
المشكل يكمن في تعديل ملف يعني يختلف عن الصورة الصورة يتم عرضها فقط
كما ان المتال يعتمد على 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;

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة