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.56 MB
Hora: 0.023 c
1-22238
T2
2001-12-16 07:29
2002.01.08
Determinar o número do item de menu


3-21921
MVova
2001-12-04 10:41
2002.01.08
Conexão muitos para muitos;)


3-21965
Sarja
2001-12-05 06:13
2002.01.08
Indexação FoxPro


6-22270
Ajax
2001-09-15 10:15
2002.01.08
Eu tive uma pergunta sobre o email 3.


1-22061
Movimentação da roda
2001-12-18 19:44
2002.01.08
Por que o formulário MDI não exibe MDIChild no menu ???





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