Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
C@pit@o_Z@p

Erro no tocador de MP3 do Lazarus

Question

Estou desenvolvendo um tocador de MP3 para Linux:

unit uMusica;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons;

type

{ TForm1 }

TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
OpenDialog1: TOpenDialog;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
Player:OleVariant;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Player:=OleVariant('vlc');
Player.url:=Olevariant(UTF8Decode(OpenDialog1.FileName));
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Player.Controls.Play;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Player.Controls.Pause;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Player.Controls.Stop;
end;

end.

Erro no programa:

Project ProjetoMusica raised exception class 'External: SIGSEGV'.

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Esse erro pode ter varias causas, que vão desde:

calcular mal os intervalos da matriz nos seus loops,

acessar objetos quando não criados,

tentando acessar a memória que não foi alocada para uso,

objetos não referenciados

bug do Linux  ( Versões mais antigas )

firewall bloqueando acesso ao programa

Se acessar procedimentos, funções, propriedades, métodos ou variáveis de FORA do seu objeto, certifique-se de torná-los públicos.

em ultimo caso, tente reconstruir o projeto por partes, para encontrar o erro

abraço

 

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148403
    • Total Posts
      643808
×
×
  • Create New...