Ver Mensaje Individual
  #6  
Antiguo 22-03-2011
Avatar de rastafarey
rastafarey rastafarey is offline
Miembro
 
Registrado: nov 2003
Posts: 927
Reputación: 21
rastafarey Va por buen camino
resp

crea un archivo .rc

pon esto dentro

nombregif GIF "RUTA_DEL_GIF"

no recuerdo si los recursos GIF se cargan con esa constante eso averigualo en la ayuda de delphi.

luego compilar el recurso. para te cree un .res

Si quieres que se compile solo agrega este archivo al proyecto y delphi lo compila solo.

y el codigo pra leer recurso es algo asi

Código Delphi [-]
Var
  Flujo: TResourceStream;
  R: TMemoryStream;
Begin
  Flujo := TResourceStream.Create(hInstance,  'nombregif',    PChar('GIF'));
  Try
    R := TMemoryStream.Create;
    R.LoadFromStream(Flujo);
  Finally
    Flujo.Free;
  End;

Ya tienes tu gif cargado en un temorystream ahora como lees el .loadfromfile solo debes usar .loadfromstream..

Espero te sirva.
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa.
Responder Con Cita