Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Sube el archivo jpg a la imagen Encontrar ramas similares


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

¿Puedo cargar una imagen a Jpg desde un archivo de recursos en Imagen ...
Si es así, ¿cómo?



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

Procedimiento LoadJPEGFromRes (TheJPEG: string; var ThePicture: TPicture); var ResHandle: THandle; MemHandle: THANDLE; MemStream: TMemoryStream; ResPtr: PByte; ResSize: Longint; JPEGImage: TJPEGImage; comenzar 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; fin



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

Da error error JPEG #41
¿Cuál podría ser el error?



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

Traigo un fragmento de código de mi programa, donde saco una imagen del archivo de recursos Myres.rc con un archivo Jpeg:

procedimiento TMyForm.FormCreate (Sender: TObject);
var temp_jpeg: TJPEGImage;
ResStream: TResourceStream;
comenzar
.....
temp_jpeg: = TJpegImage.Create;
ResStream: = TResourceStream.CreateFromID (HInstance, 1, RT_RCDATA);
temp_jpeg.LoadFromStream (ResStream);
.....
temp_jpeg.Free;
ResStream.Free;
.....
fin;

Me alegraría si ayudara con algo.

PS
Contenido de Myres.rc

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



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

Conecto el archivo de recursos compilados (res), pero rc no se puede conectar porque dice que no admite archivos de recursos de 16-bit ...
Conectar usando
{$ R Myres.rc}



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

cuando MyRes.res está conectado, aparece un error en esta línea:
ResStream: = TResourceStream.CreateFromID (HInstance, 1, RT_RCDATA);



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

En forma
procedure TAboutForm.FormCreate (Sender: TObject); var RS: TResourceStream; JP: TJPEGImage; comenzar RS: = nil; JP: = nil; prueba RS: = TResourceStream.Create (hInstance, "ABOUT", "JPEG"); JP: = TJPEGImage.Create; JP.LoadFromStream (RS); JP.DIBNeeded; Image.Picture.Bitmap.Assign (JP); finalmente RS.Free; JP.Free; fin fin

En archivo rc
SOBRE JPEG ABOUT.JPG

Debe agregar un archivo rc al proyecto a través del menú Proyecto> Agregar al proyecto



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

Todo funcionó ... Muchas gracias !!!



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.56 MB
Tiempo: 0.023 c
3-21975
Dr. Web
2001-12-06 09:12
2002.01.08
Creando la base de datos Interbase desde el programa.


1-22069
Xtorm
2001-12-19 10:40
2002.01.08
¿Cómo?


1-22004
KhLexa
2001-12-17 17:57
2002.01.08
Glitches


14-22388
Esmerejón
2001-11-08 11:43
2002.01.08
Otra suciedad en la despensa.


7-22430
AlexK
2001-09-21 12:28
2002.01.08
bloqueo de teclas





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español