إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
- - - - -

قراءة الصور من فولدر موجود على Aps


لا توجد ردود على هذا الموضوع

#1 aabuamara

aabuamara

    عضو

  • الأعضــاء
  • 17 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 11 October 2009 - 09:46 AM

الزملاء الاعزاء،
لدي مشكلة بسيطة ، و هي انني عملت procedure لقراءة صور موجودة على aps من خلال معرفة اسمها و الذي هو موجود على ملف على db ، المشكلة التي اواجهها هي انه في حال عدم وجود صورة على ps فانه يتم اخراجي تلقائيا من ال loop و لا يكمل قراة باقي الصور ،
و الكود هو :
PROCEDURE CNV_READ_IMAGE_PROC(P_BRCH_CODE  IN NUMBER,
P_PROGRAM_ID IN VARCHAR2) IS
CURSOR C1 IS
SELECT T1.ACCNO || LPAD(T1.AUTH_NO, 2, '0') ACC, BRCHCODE
FROM SIGICBS T1;
F_LOB BFILE;
B_LOB BLOB;
V_IMAGE VARCHAR2(25);
BEGIN BEGIN DELETE CNV_SIG_IMG WHERE SIG_BRCH = P_BRCH_CODE;
-- DELETE BBSD_CNV_EXCEPTIONS_D
-- WHERE FILE_NAME LIKE 'CNVSIGIMG';
END;
FOR I IN C1 LOOP
V_IMAGE := I.ACC;
INSERT INTO CNV_SIG_IMG VALUES
(I.ACC, EMPTY_BLOB(), I.BRCHCODE) RETURN SIG_IMAGE INTO B_LOB; F_LOB := BFILENAME('CNV_READ_IMAGE_DIR', I.ACC || '.jpg');
DBMS_LOB.FILEOPEN(F_LOB, DBMS_LOB.FILE_READONLY);
DBMS_LOB.LOADFROMFILE(B_LOB, F_LOB, DBMS_LOB.GETLENGTH(F_LOB));
DBMS_LOB.FILECLOSE(F_LOB);
COMMIT;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
BEGIN INSERT INTO BBSD_CNV_EXCEPTIONS_D
(BRCH_CODE,
USER_ID,
TIME_STAMP,
ERROR_DESC,
PROGRAM_ID,
FILE_NAME)
VALUES
(P_BRCH_CODE,
USER,
SYSDATE,
'COULDN''T FIND THE IMAGE FOR ' || V_IMAGE,
P_PROGRAM_ID,
'CNVSIGIMG');
END;
commit;