السلام عليكم

مطلوب مني عمل برنامج يحفظ ملفات pdf - يحفظ الملف نفسه وليس الامتداد

انا دورت على النت وجدت اكواد ولكني لم افهمها

ممكن لو في حد يشرح لي كود بسيط 

وكيف لي ان استرجعها واعرضها

تم تعديل 10 أغسطس 201510 سنة بواسطة ama000

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

أخي راجع هذا الرابط و أي استفسار لفهم الكود اطرحه و سنجيبك إن شاء الله

http://www.araboug.org/ib/index.php?showtopic=49081&hl=

بالتوفيق

اخي الكريم جزاك الله خيرا على هذا الرابط الرائع

الآن انا حفظت الملف على قاعدة البيانات

كيف لي ان افتحه من قاعدة البيانات عن طريق forms 10g

لأن الطريقة الموجودة في الرابط تكون على forms 6i

اخي الكريم جزاك الله خيرا على هذا الرابط الرائع

الآن انا حفظت الملف على قاعدة البيانات

كيف لي ان افتحه من قاعدة البيانات عن طريق forms 10g

لأن الطريقة الموجودة في الرابط تكون على forms 6i

أخي لم أشتغل على 10 جي و لكن يمكنك استخدام webutil ليس لي معلومات كافية عن كيفية استخدامها (يمكن للإخوة الذين اشتغلوا عليها إفادتنا بذلك)

أنا اشتغلت بطريقة اخرى و هي تحميل الملف إلى القرص الصلب ثم التحكم فيه كما أريد (البرنامج الذي عملت عليه تطلب تحميل الملف الى القرص الصلب و لا يترك في قاعدة البيانات)

إليك البروسيدير الذي يقوم بتحميل الملف من قاعدة البيانات إلى القرص الصلب

 

create or replace procedure download_pdf (file_name in varchar2) as

l_file UTL_FILE.FILE_TYPE;

l_buffer RAW(32767);

l_amount BINARY_INTEGER := 32767;

l_pos INTEGER := 1;

l_blob BLOB;

l_blob_len INTEGER;

BEGIN

-- Get LOB locator

SELECT file_pdf

INTO l_blob

FROM table1

WHERE num_file=file_name;

l_blob_len := DBMS_LOB.getlength(l_blob);

-- Open the destination file.

l_file := UTL_FILE.fopen('PDF_FILE',file_name,'WB', 32767);

 

-- Read chunks of the BLOB and write them to the file

-- until complete.

WHILE l_pos < l_blob_len LOOP

DBMS_LOB.read(l_blob, l_amount, l_pos, l_buffer);

UTL_FILE.put_raw(l_file, l_buffer, TRUE);

l_pos := l_pos + l_amount;

END LOOP;

-- Close the file.

UTL_FILE.fclose(l_file);

EXCEPTION

WHEN OTHERS THEN

-- Close the file if something goes wrong.

IF UTL_FILE.is_open(l_file) THEN

UTL_FILE.fclose(l_file);

END IF;

RAISE;

END;

/

بالتوفيق

تم تعديل 11 أغسطس 201510 سنة بواسطة سلطاني

اخي الكريم بفضل الله نزلت الـ webutil

ولكن عند تنفيذ اي فورمة يظهر هذا الخطأ

java.lang.class not found exception oracle.form.engine.main

 

نزلت jinitiator من جديد ولكن لا زالت هناك نفس المشكلة

الحمد لله اشتغل معايا  عن طريق هذه اللينك  http://www.araboug.org/ib/index.php?showtopic=56028

ثم هذه اللينك http://support.stone-apple.com/entries/27051190-FRM-92095-Oracle-JInitiator-version-too-low-Please-install-version-1-1-8-2-or-higher

 

ولكن تظهر هذه الرسالة  

webutil object group is not available in this form

 

مع العلم اني نزلت webutil عن طريق هذا اللينك http://www.araboug.org/ib/index.php?showtopic=44861

 

ولكن هل هناك خطوة لعمل object group انا مش فاهم .. ممكن حد يجيبني لأنني بقالي فترة في هذا الموضوع