Componente Shockwave Flash

[yusnerqui]

Hola, puedes lograr comunicacion entre flash y delphi usando la función fscommand de flash la cual envía mensajes a la aplicación que está reproduciendo la animación, y capturando los valores enviados en el evento onfscommand(si mal no recuerdo) de delphi, este evento tiene dos parámetros: command y args, los cuales podrás chequear:



sería algo como:

En flash

on(rollOver){

	 fscommand("","1")

  }
 
on(RollOut){
fscommand("","0")

  }

y en delphi

Código Delphi [-]

procedure TForm1.FlashMovieFSCommand(Sender: TObject; const command, args: WideString);  
begin
   case strtoint(args) of
     0: showmessage('Salio');
     1: showmessage('Entró');
   end
end;

Espero haberme hecho entender.



Un Saludo.