בית
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
7-22447
ללא שם:
2001-08-26 03:43
2002.01.08
עדכון סמלים


1-22224
אולג גאשב
2001-12-15 11:14
2002.01.08
בעיה עם גודל התמונה בעת ההדפסה


3-21907
RDA
2001-12-01 12:48
2002.01.08
דלפי ו MySql


1-22169
Kreo
2001-12-20 21:16
2002.01.08
קבצים וגישה


1-22147
Vinni2000
2001-12-20 12:59
2002.01.08
צריך ייעוץ על RichEdit !!!!!!!!





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