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]


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]

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;
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;


En archivo rc
ABOUT 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
14-22372
froz
2001-11-08 16:25
2002.01.08
URGENTEMENTE


1-22184
Caimán
2001-12-21 09:44
2002.01.08
tal vez quien sabe?


4-22498
cher_gvf
2001-11-05 20:12
2002.01.08
¿Cómo sabes si tal proceso se está ejecutando?


1-22265
Ser_Kham1
2001-12-17 16:10
2002.01.08
Cuadro de lista


1-22011
Ksergey
2001-12-16 14:26
2002.01.08
¿Cómo coger la tecla TAB?





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 Italiano 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