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.57 MB
Tiempo: 0.023 c
6-22296
Kolyan
2001-10-11 12:49
2002.01.08
TSocket!


1-22218
Marcoden
2001-12-15 17:13
2002.01.08
Pregunta sobre la función DeleteFile


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


1-22160
Yakudza
2001-12-20 16:46
2002.01.08
Copiar al Portapapeles


6-22277
prosof
2001-10-02 10:21
2002.01.08
Definición del tráfico de cada corresponsal en la red por IP.





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 Francés
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