Modtage Messages

OK, jeg fandt lidt brugligt fra www.udvikleren.dk og min NyKlasse ser således ud nu:

type
  NyKlasse = class(TObject)
  private
      MinHandle : THandle;
      procedure ModtagBesked(var Besked: TMessage);
      constructor Create;
      destructor Destroy;
  public
  end;

implementation

constructor TNyKlasse.Create;
begin
  MinHandle := AllocateHwnd(ModtagBesked);
end;

destructor TNyKlasse.Destroy;
begin
  DeAllocateHwnd(MinHandle);
end;

procedure TNyKlasse.ModtagBesked(var Besked: TMessage);
begin
  if Besked.Msg <> 0 then
  ShowMessage('Besked Modtaget')
  else
    DefWindowProc(MinHandle, Besked.msg, Besked.WParam, Besked.LParam);
end;

Men ingenting sker overhovedet!!! Trods jeg ved den burde modtage bekeder!!! Det virker ikke som om det virker overhovedet.
Er der nogen der kan fortælle mig om jeg er helt på vildspor?

OK Ja så fik jeg det til at virke!!!

type
  NyKlasse = class(TObject)
  private
      MinHandle : THandle;
      procedure ModtagBesked(var Besked: TMessage);
  public
      constructor Create;
      destructor Destroy; override;
  end;

En lille dummer fejl ;)) (som sædvanligt)

AHr du et program det virker, eller ej ?

Og er du retuneret til Danevang ?

Jens B

Jeg har fået det til at virke - sådan da!!! Det vil sige, at det kun virker hvis jeg fremprovokere en ShowMessage() for hver gang der modtages en besked fra Windows - er det ikke mega mærkligt:

Virker ikke:

procedure TNyKlasse.ModtagBesked(var Besked: TMessage);
begin
  case Besked.Msg of
    MM_WOM_Open: FPlaying := True;
    MM_WOM_Close: ;
    MM_WOM_Done: FPlaying := False;
    else
      DefWindowProc(MinHandle, Besked.msg, Besked.WParam, Besked.LParam);
    end; //Case
end;

Viker:

procedure TNyKlasse.ModtagBesked(var Besked: TMessage);
begin
  case Besked.Msg of
    MM_WOM_Open: begin
                  FPlaying := True;
                  ShowMessage('Start afspilning');
                end;
    MM_WOM_Close: ;
    MM_WOM_Done: begin
                  FPlaying := False;
                  ShowMessage('Stoppet afspilning');
                end;
    else
      DefWindowProc(MinHandle, Besked.msg, Besked.WParam, Besked.LParam);
    end; //Case
end;

Hvorfor virker det kun når jeg bruger ShowMessage() i mit kode?

Kigger lige på det ... Ang dit Wave problem .. Har du set at TBASSPlayer v.1.3 kan det hele ?

Jens B

Send mig lige en mail .... Så har jeg et projekt der virker :-)

Du har bare brugt for få heste !

Jens B

Nu har jeg fået mit domæne til at virke ....

http://www.borrisholt.com/eksperten/Message.zip

Jens b

Hej BorrisHolt,

jeg har afprøvet din Message.Zip og sat det over i mit projekt - det virker bare ikke. Jeg sender lige min projekt til dig, så du bedere kan få en helhed over alt min kode. Pointen er at en timer hele tiden viser min TWaveFile klasses "state/mode" (om du vil). Hvis jeg skipper ShowMessage() i min Message Methode opstår en fejl når wavefilen har sluttet sin afspilning. Fejlen skyldes nemlig at når en wavefil har afsluttet sin afspilning skal den stoppes med WaveResetOut() & WaveCloseOut() - derfor har jeg brug for messages der kan fortælle mig det! Håber du kan lukke HESTENE FRI og lade vognen stå - eller sådan et eller andet ;)

ZeroHero

Kunde du ikke finde dig en ICQ. Så kunne vi lige "snakke" om det.

Mit nummer er : 31312742

Jens B

Jep så har jeg installeret ICQ (Dansk) og tilføjet dig som kontakt person.
Mit nummer er: 252768197

ZeroHero

Nå men jeg tror at jeg fandt en vej. Hvis jeg bruger en TTimer der opdatere min TWaveFile klasse hele tiden virker det!

PS: Hvorfor kontaktede du mig ikke over ICQ'en Borrisholt? Måske er det mig der har installeret den forkert. Jeg kuan ikke se nogen forskel på funktionen AllocateHWnd() som ligger i Windows.pas og din MyAllocateHWnd() ?
Men skidt lortet virker nu - og det er det vigtigste - God Sommer!

Jeg har haft meget travlt ....

Jeg så dig godt .... Forskellen på MyAllocateHWnd()  og AllocateHWnd() er at i den første har du selv mulighed for at bestemme ClassName.

Jens B