Home
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Down

Upload jpg file to image Find similar branches


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;
begin
.....
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]

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



Pages: 1 whole branch

Forum: "Main";
Current archive: 2002.01.08;
Download: [xml.tar.bz2];

Top









Memory: 0.83 MB
Time: 0.043 c
1-22180
Nathan
2001-12-21 11:07
2002.01.08
Problem!


1-22221
Sour
2001-12-16 21:00
2002.01.08
Resources


14-22343
Merlin
2001-11-02 14:17
2002.01.08
With laughter almost fell to the floor!


14-22319
iea
2001-11-02 13:34
2002.01.08
Всем, кто носит(л) очки! Вопрос не праздный


1-22233
Delphimun
2001-12-15 12:47
2002.01.08
How to run a file in the Tolecontainer component





afrikaans albanian Arabic armenian azerbaijani basque belarusian bulgarian catalan Chinese (Simplified) Chinese (Traditional) croatian Czech danish Dutch English estonian filipino finnish French
galician georgian German greek haitian Creole hebrew Hindi hungarian icelandic indonesian Irish italian japanese Korean latvian lithuanian macedonian malay maltese norwegian
persian polish portuguese Romanian russian serbian slovak Slovenian Español swahili Swedish thai turkish Ukrainian urdu vietnamese welsh yiddish bengali bosnian
cebuano Esperanto gujarati hausa hmong igbo javanese kannada khmer lao latin maori marathi mongolian nepali punjabi somali tamil telugu yoruba
zulu
English French German Italian Portuguese Russian Spanish