Головна сторінка
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.031 c
6-22288
atmospheric
2001-10-09 23:49
2002.01.08
WinGate


1-22057
AlexeyV
2001-12-19 03:34
2002.01.08
Як викликати діалог


4-22511
Plug & Play
2001-10-29 22:23
2002.01.08
А як програмно вимкнути комп'ютер?


1-22035
smuggler
2001-12-18 14:02
2002.01.08
текстовий редактор2


1-22112
greenrul
2001-12-15 13:55
2002.01.08
Підкажіть компонент Button





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