Cargar animacion Flash

[JesusG]

Es posible que mi duda sea bastante ridicula pero me gustaria que me indicarais como puedo cargar el componente par reproducir animaciones flash en mi aplicacion. Estoy trabajando con Delphi 2006. Ademas quisiera saber si es posible insertar o distribuir con mi aplicacion el control flash, para que se pueda ejecutar en sistemas que no tengan instalados el reproductor flas. Por ultimo, ¿podria intertar en mi exe, unas 10 animaciones flash de 1Mb aproximadamente cada una?, es decir, ¿tendria problemas de memoria utilizada?.
Gracias.

[German]

http://delphi.about.com/od/graphics/l/aa040103a.htm

Salu2.

[MAXIUM]

Malditas OCX... habra forma de no tener que registrar el componente para su uso. ¿Se puede transfornar un OCX en DLL y así usarlo en el directorio raíz de la aplicación?

[German]

Puedes registrar el OCX desde tu propio programa...

uses ShellApi 

(...)

procedure RegistrarOCX;
type TRegFunc = function : HResult; stdcall;
var tmpHandle: tHandle;
    tmpRegFunc : TRegFunc;
    tmpRutaOCX: String;
begin
  tmpRutaOCX := 'C:\Una ruta cualquiera\SWF.ocx';
  tmpHandle := LoadLibrary(pAnsiChar(tmpRutaOCX));
  if ( tmpHandle <> 0 ) then
  begin
    tmpRegFunc := GetProcAddress( tmpHandle, 'DllRegisterServer' );
    if Assigned( tmpRegFunc ) then
    begin
      Ejecutar_Y_Esperar('regsvr32.exe', '/s ' + ExtractShortPathName(tmpRutaOCX));
    end;
    FreeLibrary(tmpHandle);
  end;
end;

function Ejecutar_Y_Esperar(const ExecuteFile, ParamString : string): boolean;
var
  SEInfo: TShellExecuteInfo;
  ExitCode: DWORD;
begin
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile);
    lpParameters := PChar(ParamString);
    nShow := SW_HIDE;
  end;
  if ShellExecuteEx(@SEInfo) then
  begin
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
    Result:=True;
  end
  else Result:=False;
end;

Sacado de http://delphi.about.com/od/windowssh.../aa040803a.htm
En principio el código valdria para registrar cualquier control OCX cambiando el valor de tmpRutaOCX.

Salu2.

[MAXIUM]

Mmmm... esto crearía una venta en shell visible para el usuario y lo otro ¿que pasa si el control ya esta registardo? aunque se prodria crear una secuencia que detecte esto antes de registar, todo el proceso tomaria cierto tiempo.

Bueno, que se le va ha hacer, lo iedal seria poder convertir un OCX en DLL Moco$soft y la Bill Gates que la pario jajaja

[[cHackAll]]

Acá la misma solución de German pero sin tener que ejecutar ninguna aplicación. Convertir un OCX (ActiveX) en una DLL (Librería dinámica) pues creo que no será posible.

Saludos