Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Завантаження файлу JPG в Image Знайти схожі гілки


Angel S   (2001-12-15 23:04) [0]

Чи можна завантажити зображення в Jpg з файлу ресурсів в Image ...
Якщо можна, то як ???



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 error #41
У чому може бути помилка ???



Мефодий   (2001-12-16 22:42) [3]

Наводжу шматок коду з своєї програми, де з файлу ресурсів Myres.rc з Jpeg файлом витягаю картинку:

procedure TMyForm.FormCreate (Sender: 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;
.....
end;

Буду радий, якщо допоміг чимось.

PS
Вміст файлу Myres.rc

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



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

Я підключаю откомпелірованний файл ресурсів (res), а rc не можу підключити, тому що він говорить, що не підтримує 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;

У rc-файлі
ABOUT JPEG ABOUT.JPG

Додавати rc-файл до проекту треба через меню Project> Add To Project



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

Все запрацювало ... Спасибо большое !!!



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.57 MB
Час: 0.073 c
4-22490
SergeyDonetsk
2001-11-06 09:22
2002.01.08
як на АПИ можна знаючи Handle Canvas а задати


3-21944
MVova
2001-12-03 16:50
2002.01.08
Як дізнатися шлях до файлів?


3-21941
Джин
2001-11-30 14:56
2002.01.08
Допоможіть будь ласка створити процедуру IB SQL з програми


14-22326
McSimm
2001-11-04 11:35
2002.01.08
Хтось хотів розім'яти (собі) мізки? Які будуть варіанти алгоритму?


3-21983
переможець
2001-12-06 13:13
2002.01.08
серійний номер на Делфі 6





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська