Eu sempre quis que o meu computador fosse tão fácil de usar como o meu telefone, o meu desejo foi realizado pois eu já não consigo descobrir como usar o meu telefone.

Delphi+Flash+Unity3D

Nos deparamos com alguns problemas no nossos projetos na empresa e a solução encontrada foi trabalhar em forma conjunta com o Delphi ,o Flash e o Unity.
O Delphi fará a base, nele rodará o Flash e o Unity, também será responsável pela gravação no banco de dados.
O Flash servirá para fazer animações e jogos didaticos.
O Unity 3D rodará o jogo em si.
Consegui comunicação entre eles usando os componentes activeX do Flash e Unity, eles incorporam procedures para esta comunicação, como por exemplo o UnityWebPlayer1ExternalCall do Unity onde consigo receber parâmetros do Unity e o ShockwaveFlash1FSCommand do flash que tem a mesma função.

Abaixo um exemplo do código.

Delphi + Flash:
Lendo parâmetros:

procedure TForm1.ShockwaveFlash1FSCommand(ASender: TObject; const command,
  args: WideString);
begin
if command = 'salva' then
begin
  Form2.hist2.Append;
  Form2.hist2historico.Value := args;
  Form2.hist2hora.Value := Time;
  Form2.hist2.Post;
  Form2.hist2.Close;
  Form2.hist2.Open;
end;
end;

Delphi + Unity 3d
Lendo parâmetros:

procedure TForm2.UnityWebPlayer1ExternalCall(ASender: TObject;
  const value: WideString);
  var l1,l2,x,y,z:string;
  I:Integer;

begin
if value = 'inicio("");' then
begin
//Form3.Hide;
//Form2.AlphaBlendValue := 255;
manda;
Exit;
end;
if Before(value,'(') = 'cria' then
begin
    l1 := after(value,'"');
    l2 := Before(l1,'"');
    cria(l2);
    Exit;

end;
end;

Enviando comando para o Unity 3d

UnityWebPlayer1.SendMessage('jogador','pegaPOS',alunosx.Value+'/'+alunosy.Value+'/'+alunosz.Value);

Abaixo o video do projeto:

5 Respostas

  1. ai eu fiz um jogo agora como fasso pra pode joga sem ser teste ?

    07/04/2012 às 19:24

  2. Breno Oliveira

    Olá, gostaria de saber mais detalhes para integrar o Unity ao Delphi. Sou iniciante no Unity, mas tenho experiência no Delphi. Atualmente estou usando a versão Delphi XE, porém não tive sucesso na instalação do ActiveX do Unity 3D. Você poderia me ajudar?
    Obrigado

    09/05/2012 às 1:18

  3. Fester Zuki

    Também gostaria de saber como fazer essa integração do Delphi com a Unity…..Eu programo um pouco em Delphi e fuço um pouco na Unity e achei muito legal…..Se você pudesse nós ajudar serial muito legal….Obrigado.

    31/05/2012 às 1:05

  4. Para ajudar preciso saber qual o Delphi que vocês usam.

    31/05/2012 às 19:26

    • Fester Zuki

      Eu utilizo o Delphi 7 e o Delphi 2010 para programar. O Flash eu até consegui instalar o ActiveX, mais não consegui manda comandos para .swf. O componente da Unity também é um ActiveX.
      Desde já agradeço. E é muito legal o seu blog. Abraço.

      31/05/2012 às 19:55

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s