בית
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]

אני מביא חתיכת קוד מהתוכנית שלי, שבו אני שולף תמונה מתוך קובץ המשאבים 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]

בכושר
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;


בקובץ rc
ABOUT JPEG ABOUT.JPG

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



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

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



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

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

למעלה





זיכרון: 0.56 MB
זמן: 0.025 c
14-22340
יוראז
2001-11-06 10:09
2002.01.08
אנשים, תגידו לי היכן מאוחסנים עוגיות ב- W2K, ואיך לדפוק אותם


1-22038
דימה ~
2001-12-18 17:53
2002.01.08
כיצד להעביר את שורת הפקודה לקובץ שהושק?


4-22481
סטרופל
2001-11-03 10:44
2002.01.08
מדפסות עובדות ישירות. לייעץ


1-22222
יוג'ין זליקובסקי
2001-12-14 13:58
2002.01.08
תתקשר בחזרה


6-22292
3d [כוח]
2001-10-06 18:16
2002.01.08
קוד הרשת של המשחק.





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