Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Carregar um arquivo jpg para Image Encontre agências semelhantes


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

É possível carregar uma imagem em Jpg a partir de um arquivo de recurso em Imagem ...
Se possível, então como?



Virtualik   (2001-12-15 23:53) [1]

Procedimento LoadJPEGFromRes (TheJPEG: string; var ThePicture: TPicture); var ResHandle: THandle; MemHandle: THandle; MemStream: TMemoryStream; ResPtr: PByte; Redimensionar: Longint; JPEGImage: TJPEGImage; começar 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; fim;



Angel S   (2001-12-16 13:00) [2]

Lança o erro JPEG #41
Qual poderia ser o erro ???



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

Eu trago uma parte do código do meu programa, onde eu recebo uma imagem do arquivo de recurso Myres.rc com o arquivo Jpeg:

procedimento TMyForm.FormCreate (Sender: TObject);
var temp_jpeg: TJPEGImage;
ResStream: TResourceStream;
começar
.....
temp_jpeg: = TJpegImage.Create;
ResStream: = TResourceStream.CreateFromID (HInstance, 1, RT_RCDATA);
temp_jpeg.LoadFromStream (ResStream);
.....
temp_jpeg.Free;
ResStream.Free;
.....
end;

Eu ficaria feliz se eu ajudasse com alguma coisa.

PS
Conteúdo do arquivo Myres.rc

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



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

Eu conecto o arquivo de recurso compilado (res), e o rc não pode conectar, porque ele diz que não suporta arquivos de recursos 16-bit ....
Eu conecto usando
{$ R Myres.rc}



Angel S   (2001-12-17 16:53) [5]

Ao conectar MyRes.res, um erro aparece nesta linha:
ResStream: = TResourceStream.CreateFromID (HInstance, 1, RT_RCDATA);



Dimka Maslov   (2001-12-17 17:02) [6]

De uniforme
procedimento TAboutForm.FormCreate (Sender: TObject); var RS: TResourceStream; JP: TJPEGImage; começar RS: = nulo; JP: = nulo; tente RS: = TResourceStream.Create (hInstance, "ABOUT", "JPEG"); JP: = TJPEGImage.Create; JP.LoadFromStream (RS); JP.DIBNeeded; Image.Picture.Bitmap.Assign (JP); finalmente RS.Free; JP.Free; fim; fim;

No arquivo rc
SOBRE JPEG ABOUT.JPG

Você precisa adicionar o arquivo rc ao projeto através do menu Project> Add To Project.



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

Tudo funcionou ... Muito obrigado !!!



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.57 MB
Hora: 0.031 c
1-22209
Comida
2001-12-14 14:10
2002.01.08
Alguém já usou a função PaintTo para desenhar WinControl s na tela do bitmap? Ajuda! Eu não posso fazer nada.


1-22016
Leviatã
2001-12-13 23:05
2002.01.08
Formulário de aparência


1-22230
Homem vermelho
2001-12-15 23:01
2002.01.08
Como exibir um número de série no RichEdite do personagem selecionado no labele!


1-22110
Katherine
2001-12-19 18:09
2002.01.08
com lágrimas pedindo ajuda


14-22358
Denso
2001-11-07 19:08
2002.01.08
Onde está a pequena, mas rápida hospedagem disponível?





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol