घर
Top.Mail.Ru Yandeks.Metrika
मंच: "मुख्य";
वर्तमान संग्रह: 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: थैंडल; मेमहैंडल: थैंडल; मेमस्ट्रीम: टीमेमोरीस्ट्रीम; ResPtr: PByte; ResSize: लॉन्गिंट; JPEGImage: TJPEGImage; शुरू करना ResHandle: = FindResource (hInstance, PChar (TheJPEG), "JPEG"); MemHandle: = LoadResource (hInstance, ResHandle); ResPtr: = LockResource (मेमहैंडल); MemStream: = TMemoryStream.Create; JPEGImage: = TJPEGImage.Create; ResSize: = SizeOfResource (hInstance, ResHandle); MemStream.SetSize (ResSize); MemStream.Write (ResPtr ^, ResSize); FreeResource (मेमहैंडल); 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]

मैं अपने प्रोग्राम से कोड का एक टुकड़ा लाता हूं, जहां मुझे Jpeg फाइल के साथ Myres.rc संसाधन फ़ाइल से एक चित्र मिलता है:

प्रक्रिया 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;
.....
अंत;

मुझे खुशी होगी अगर मैंने किसी चीज़ में मदद की।

पुनश्च
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); वर रुपये: TResourceStream; JP: TJPEGImage; शुरू करना आरएस: = नील; जेपी: = नील; कोशिश RS: = TResourceStream.Create (hInstance, "ABOUT", "JPEG"); JP: = TJPEGImage.Create; JP.LoadFromStream (RS); JP.DIBNeeded; Image.Picture.Bitmap.Assign (JP); अंत में RS.Free; JP.Free; अंत; अंत;

आर सी फ़ाइल में
जेपीईजी के बारे में। जेपीजी

आपको मेनू प्रोजेक्ट> ऐड टू प्रोजेक्ट के माध्यम से प्रोजेक्ट में आरसी फ़ाइल जोड़ना होगा



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

सब कुछ काम किया ... बहुत बहुत धन्यवाद !!!



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.57 एमबी
समय: 0.043 c
1-22252
tovSuhov
2001-12-17 14:22
2002.01.08
सी ट्री व्यू ज़मीनोचका ...


3-21940
Serik
2001-12-05 09:15
2002.01.08
इंटरबेस और विजुअलसी ++


1-22102
Andrey196
2001-12-19 18:43
2002.01.08
क्यों लोग छवि TIF छवियों को दिखाना नहीं चाहते हैं


4-22478
रॉस
2001-08-28 16:53
2002.01.08
मेनू प्रारंभ


14-22349
इवान शिखर
2001-11-06 21:48
2002.01.08
अनातोली पॉडगोरटस्की को





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский