בית
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: מחרוזת; var תמונה: TPicture); var ResHandle: Thandle; MemHandle: Thandle; ממסטרים: TMemoryStream; ResPtr: PByte; ResSize: Longint; JPEGImage: TJPEGImage; להתחיל ResHandle: = FindResource (hInstance, PChar (TheJPEG), "JPEG"); MemHandle: LoadResource = (hinstance, ResHandle); ResPtr: = LockResource (MemHandle); MemStream: = TMemoryStream.Create; JPEGImage: = TJPEGImage.Create; ResSize: = SizeOfResource (hInstance, ResHandle); SetSize (ResSize); 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;
.....
הסוף;

אני אשמח אם אעזור בכל דבר.

נ.ב.
התוכן של Myres.rc

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



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

אני מחבר את קובץ המשאבים הידור (מיל), אבל rc לא יכול להתחבר, כי הוא אומר שהוא לא תומך 16-bit משאבים קבצים ....
התחברות באמצעות
{$ 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); var RS: TResourceStream; JP: TJPEGImage; להתחיל RS: = nil; JP: = nil; נסה RS: = TResourceStream.Create (hInstance, "אודות", "JPEG"); JP: = TJPEGImage.Create; JP.LoadFromStream (RS); JP.DIBNeeded; Image.Picture.Bitmap.Assign (JP); סוף סוף RS.Free; JP.Free; ח ח

בקובץ rc
אודות JPEG אודות

אתה צריך להוסיף קובץ RC לפרויקט דרך התפריט פרוייקט הוסף לפרויקט



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

הכל עבד ... תודה רבה !!!



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה









זיכרון: 0.57 MB
זמן: 0.024 c
1-22076
נחש
2001-12-19 12:50
2002.01.08
כיצד לגלות את תאריך השחרור של ה- BIOS?


14-22344
anod
2001-11-06 13:15
2002.01.08
צלבים - טו טאק


3-21950
נָזִיר
2001-12-05 11:38
2002.01.08
עסקאות שהתחילו במפורש


14-22390
קיפוד
2001-11-08 12:54
2002.01.08
תשמע מרלין, האם אתה ישן אי פעם? כלומר, אתה מרגיע?


14-22320
אלכסנדר
2001-11-14 14:13
2002.01.08
וואו





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский