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

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

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

اختكم
رورو

imag.rar

بص يا شقيق
انا اتعلمت الموضوع ده اصلا من شاشة كانت متحملة هنا خد الرابط بتاعها بسيطة وسهلة جدا
http://www.araboug.org/ib/index.php?showtopic=15030
انزل تحت لغايت ما تلاقي فورم اسمو loadimage
وعيش يا باشا

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

شكرا لك اخي

المشكلة في كلا النموذجين يعترض على المسار
تظهر لي هذه الرسالة:

frm-47109: لايمكن العثور على ملف الصور jpeg.pic\

اخواني الاعزاء بحثت كثير في المنتدى وحاولت ولم اتوصل الى نتيجه يوجد شئ لم افهمه او لااعرفة لااعلم
اتمنى ان اجد لديكم الحل
اختكم

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

السلام عليكم
استخدمي هذا الكود مع وجود الـ Webutil:

Procedure Pu_Insert_Emp_Photo_Prc Is
vv_type       Varchar2(4);
vv_path       Varchar2(100);
vv_pic        Long Raw;
Begin
vv_path := Client_Get_File_Name(File_Filter=>'JPEG Image (*.JPG,*.JPEG,*.JPE,*.JFIF)|*.JPG|Bitmap Image (*.bmp)|*.bmp|GIF Image (*.GIF)|*.GIF|TIFF Files (*.tif)|*.tif|All Files (*.*)|*.*|');
:Blk_Photos.File_Name := vv_path;
 If Ltrim(vv_path) Is Not Null Then
  vv_type := Substr(vv_path, -3);
  Client_Image.Read_Image_File(vv_path, vv_type, 'Blk_Photos.Emp_Photo');
   If Form_Success Then    	
 	  :System.Message_Level := 25;
      Commit;
     :System.Message_Level := 0;     
    Go_Item('Blk_Photos.Emp_Photo');
    Go_Item('Blk_1.Emp_Code');
   End If;
  End If; 
End;