الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال حول التعامل مع الصور في ado و delphi

مغلق
بدأه hom_rcp في 11 مارس 2006 · 5 رد · 1,146 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

أخوتي الكرام : أرجوا المساعدة ...

عندي مجموعة من المشاكل الرجاء المساعدة فيها :

1: في الADOconnection كيف يمكنني تلقينه المسار أثناء الruntime عبر string

أنا أعرف كيف أعطيه المسار منذ البداية (البرنامج مبني وعليه دليل قاعدة البيانات)

يوجد شيئ اسمه connectionstring و data source ولكن لا أعرف التعامل معهما .

2:كيفية التعامل مع الصور في قواعد البيانات (MS ACCESS)

- الإدراج

- العرض ل(image)

- وأريد من فضلكم توابع الوصول للصورة ...(أعتقد عن طريق ال OLE Object )

- وأي شيء حول هذا الموضوع ....

3:أي معلومات - مصادر الكترونية - إفادات حول هذه المواضيع و Delphi بشكل عام وقواعد

البيانات و ADO و OLE بشكل خاص

اخوتي الكرام أي شخص عنده معلومات عن إحدى هذه الأشياء وليس من الضروري جميعها

أكون ممتن له .... ولكم جزيل الشكر ....

أخوكم homam

#2

يا اخي ابحث في النت على هذه المواضيع ستجد الااااااف المواضيع

ارجو ان نبحث قبل ان نضع سؤال هنا

ايضا استخدم المساعد الذي مع الدلفي ستجد الدعم الكامل اخي

شكرا

ado.rar

AdoQuery.rar

____________________________Access.zip

Test_AdoQuery.rar

ADOProject.rar

ADO_Cursors.rar

#3

السلام عليكم

بالنسبة لـ 1

My WebpageCreating The ADO file connection string in Run-time

وبالتوفيق ;)

قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.

IN ALLAH WE TRUST

:.:.:.:.:.:.:.:.:.:.:.:.:.:

#4

السلام عليكم

يمكن إستخدام Ado بهذه الطريقة

في أكسس

1. إضافة حقل نصي يحتوي على إسم ملف الصورة FileName

2. إضافة حقل content من نوع Image or OLE or Memo (أنا غير متأكد من نوع البيانات الموجود في آكسس)

في دلفي

3. لتحميل الصورة

if OpenDialog1.Execute then
begin
  AdoTable1.Edit;
AdoTable1.FieldByName('FileName').AsString:= ExtractFileName(OpenDialog1.FileName);
TBlobField(AdoTable1.FieldByName('Content')).LoadFromFile(OpenDialog1.FileName);
AdoTable1.Post;
end;

4. لعرض الصورة يمكن إستخدام dbImaeg وربطها بطريقة عادية كأي مكونات لإظهار قواعد البيانات، لكن لاتنسى إضافة الوحدة Jpeg

في Uses إذا أردت إستخدام صور من نوع Jpeg

يمكنك إستخدام إسم الملف لعرض الصور التي ﻻيستطيع دلفي فتحها أو لإستخدام أي نوع الملفات غير الصور، مثلاً عن طريق المثال السابق يمكنك تحميل ملف Office, PDF, Exe, etc

وعند فتحها يجب تحمليها على القرص الصلب ثم فتحها عن طريق

TBlobField(AdoQuery1.FieldByName('Content')).SaveToFile('c:\temp\' + AdoQuery1.FieldByName('FileName').AsString;
ShellExecute(0, 'open', PChar('c:\temp\' + AdoQuery1.FieldByName('FileName').AsString), nil, nil, sw_Normal);
#5

السلام عليكم

طريقة الأخ عزوز جيدة إذا كنت تريد تخزين أنواع متعددة من الملفات,

أما إذا كنت تريد فقط تخزين صورة في قاعدة البيانات, فعليك وضع حقل من نوع OLE Object

في الجدول, ثم ضع على الفورم DBimage,

ولإضافة صورة إلى الـ Dbimage استعمل المود التالي:

  if OpenPictureDialog1.Execute then
  begin
    ADOTable1.Edit;
    DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    ADOTable1.Post;
  end;

وكما قال الأخ عزوز إذا أردت فتح صور من النوع Jpeg إلى قسم الـ USES.

وبالتوفيق ;)

قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.

IN ALLAH WE TRUST

:.:.:.:.:.:.:.:.:.:.:.:.:.:

#6

شكراً لجميع الاخوة ...

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

ولكم جزيل الشكر ...

هذا الموضوع مغلق.

مواضيع مشابهة