घर
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]


Procedure LoadJPEGFromRes(TheJPEG : string; var ThePicture : TPicture);
var
ResHandle : THandle;
MemHandle : THandle;
MemStream : TMemoryStream;
ResPtr : PByte;
ResSize : Longint;
JPEGImage : TJPEGImage;
begin
ResHandle := FindResource(hInstance, PChar(TheJPEG), "JPEG");
MemHandle := LoadResource(hInstance, ResHandle);
ResPtr := LockResource(MemHandle);
MemStream := TMemoryStream.Create;
JPEGImage := TJPEGImage.Create;
ResSize := SizeOfResource(hInstance, ResHandle);
MemStream.SetSize(ResSize);
MemStream.Write(ResPtr^, ResSize);
FreeResource(MemHandle);
MemStream.Seek(0, 0);
JPEGImage.LoadFromStream(MemStream);
ThePicture.Assign(JPEGImage);
JPEGImage.Free;
MemStream.Free;
end;



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]

वर्दी में
procedure TAboutForm.FormCreate(Sender: TObject);
var
RS: TResourceStream;
JP: TJPEGImage;
begin
RS:=nil; JP:=nil;
try
RS:=TResourceStream.Create(hInstance, "ABOUT", "JPEG");
JP:=TJPEGImage.Create;
JP.LoadFromStream(RS);
JP.DIBNeeded;
Image.Picture.Bitmap.Assign(JP);
finally
RS.Free;
JP.Free;
end;
end;


आर सी फ़ाइल में
ABOUT JPEG ABOUT.JPG

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



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

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



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

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

ऊपर





मेमोरी: 0.56 एमबी
समय: 0.023 c
7-22437
विरोधाभास
2001-09-25 18:48
2002.01.08
wav


1-22160
Yakudza
2001-12-20 16:46
2002.01.08
क्लिपबोर्ड पर कॉपी करें


3-21923
गेंदबाज
2001-11-30 02:16
2002.01.08
अनुकूलन के बारे में एक सार सवाल।


1-22105
Gonza
2001-12-19 16:35
2002.01.08
एमडीआई आवेदन ???


14-22389
sudiv
2001-11-08 15:38
2002.01.08
CashFiesta





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