منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

تحميل ملف jpg إلى الصورة البحث عن فروع مماثلة


Angel S   (2001-12-15 23:04) [0]

هل يمكن تحميل صورة بتنسيق Jpg من ملف مورد في صورة ...
إذا كان ذلك ممكنا ، فكيف ؟؟



Virtualik   (2001-12-15 23:53) [1]

الإجراء LoadJPEGFromRes (TheJPEG: string ؛ var ThePicture: TPicture)؛ فار ResHandle: THandle ؛ MemHandle: THandle ؛ MemStream: TMemoryStream. ResPtr: PByte؛ تغيير الحجم: JPEGImage: TJPEGImage؛ بدأ ResHandle: = FindResource (hInstance، PChar (TheJPEG)، "JPEG")؛ MemHandle: = LoadResource (hInstance، ResHandle)؛ ResPtr: = LockResource (MemHandle) ؛ MemStream: = TMemoryStream.Create ؛ JPEGImage: = TJPEGImage.Create؛ تغيير الحجم: = SizeOfResource (hInstance ، ResHandle) ؛ MemStream.SetSize (تغيير حجم) ؛ MemStream.Write (ResPtr ^، ResSize)؛ FreeResource (MemHandle) ؛ MemStream.Seek (0 ، 0) ؛ JPEGImage.LoadFromStream (MemStream) ؛ ThePicture.Assign (JPEGImage) ؛ JPEGImage.Free. MemStream.Free. ينتهي.



Angel S   (2001-12-16 13:00) [2]

يلقي خطأ JPEG #41
ماذا يمكن أن يكون الخطأ ؟؟



Мефодий   (2001-12-16 22:42) [3]

أحضر جزءًا من الشفرة من برنامجي ، حيث أحصل على صورة من ملف مورد Myres.rc مع ملف Jpeg:

الإجراء TMyForm.FormCreate (المرسل: TObject) ؛
var temp_jpeg: TJPEGImage؛
ResStream: TResourceStream؛
بدأ
.....
temp_jpeg: = TJpegImage.Create ؛
ResStream: = TResourceStream.CreateFromID (HInstance، 1، RT_RCDATA)؛
temp_jpeg.LoadFromStream (ResStream) ؛
.....
temp_jpeg.Free.
ResStream.Free.
.....
الغاية؛

سأكون سعيدًا إذا ساعدت في شيء ما.

PS
محتويات ملف Myres.rc

1 RCDATA "Myimage.jpg"
.......



Angel S   (2001-12-17 16:52) [4]

أقوم بتوصيل ملف المورد المترجم (الدقة) ، ولا يمكن لاتفاقية روتردام الاتصال ، لأن يقول أنه لا يدعم ملفات الموارد 16 بت ....
أنا الاتصال باستخدام
{$ R Myres.rc}



Angel S   (2001-12-17 16:53) [5]

عند توصيل MyRes.res ، ينبثق خطأ في هذا الخط:
ResStream: = TResourceStream.CreateFromID (HInstance، 1، RT_RCDATA)؛



Dimka Maslov   (2001-12-17 17:02) [6]

في الزي الرسمي
الإجراء TAboutForm.FormCreate (المرسل: TObject) ؛ فار RS: TResourceStream؛ JP: TJPEGImage ؛ بدأ RS: = لا شيء ؛ JP: = لا شيء ؛ محاولة RS: = TResourceStream.Create (hInstance ، "ABOUT" ، "JPEG") ؛ JP: = TJPEGImage.Create؛ JP.LoadFromStream (RS) ؛ JP.DIBNeeded. Image.Picture.Bitmap.Assign (JP)؛ أخيرا RS.Free. JP.Free. ينتهي. ينتهي.

في ملف RC
حول JPEG ABOUT.JPG

تحتاج إلى إضافة ملف rc إلى المشروع من خلال القائمة Project> Add To Project



Angel S   (2001-12-18 19:58) [7]

كل شيء يعمل ... شكرا جزيلا!



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي





الذاكرة: 0.56 ميغابايت
الوقت: 0.025 ج
1-22148
Delphimun
2001-12-20 12:10
2002.01.08
كيف ترسل رسالة إلى النظام تفيد بأن المفتاح مضغوط؟


1-22242
الحامضة
2001-12-14 11:00
2002.01.08
POP3


7-22435
sssss
2001-09-23 14:15
2002.01.08
ماستير سؤال عن الحياة والموت!


14-22395
فضائى
2001-11-07 01:15
2002.01.08
ما الفوضى يختلف عن النظام؟


1-22118
VLV
2001-12-19 21:59
2002.01.08
مكونات





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch English الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский