Brug TWindowsMediaPlayer i tråd

jeg kan ikke helt gennemskue hvad koden gør, men er en timeout kontrol, i tilfælde hvis den valgte radio station er nede, så den ikke bliver ved med at skrive forbinder i al evighed? :-)

Problemet er at den ikke afspiller stationen når jeg bruger TWindowsMediaPlayer i en tråd.

while not terminated do
      Sleep(200);

"sleeper" den ikke hele tiden her

Stoney

hmm, den var straks værre. kan du ikke maile mig hele koden? så vil jeg se hvad jeg kan gører :-)

Der er så lidt kode i min test at det får du lige her, men jeg kan også maile det hele hvis du hellere vil have det. Men der er en form (Form1) med 2 knapper på (button1,button2).
Når man trykker på knap1 så oprettes en tråd men der afspilles intet? Når man trykker på knap2 så benyttes samme kode bare ikke i en tråd og så afspilles der uden problemer.

----

unit WMPTestUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WMPLib_TLB, ActiveX;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

    TWMPThread = class(TThread)
  private
    { Private declarations }
        WMP : TWindowsMediaPlayer;
  protected
    procedure Execute; override;
  public
    constructor Create;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TWMPThread }

constructor TWMPThread.Create;
begin
    inherited Create(False);
    FreeOnTerminate:=true;
end;

procedure TWMPThread.Execute;
begin
    CoInitialize(nil);
    WMP:=TWindowsMediaPlayer.Create(nil);
    WMP.URL:='http://dix.media.webpartner.dk/voice128';
  WMP.controls.play;

  while not terminated do
      Sleep(200);

    WMP.Free;
end;
// ****************************** END Thread

procedure TForm1.Button1Click(Sender: TObject);
begin
// dette virker ikke
    with TWMPThread.Create do
        // ikke noget lige nu
end;

procedure TForm1.Button2Click(Sender: TObject);
var
    WMP : TWindowsMediaPlayer;
begin
// dette virker fint
    WMP:=TWindowsMediaPlayer.Create(nil);
    WMP.URL:='http://dix.media.webpartner.dk/voice128';
  WMP.controls.play;
end;

end.

hvordan kan det være at du creater TWindowsMediaPlayer at runtime? :-)

Det er jo den eneste måde når det skal køre i en tråd.

nåh ja - godaw mand økseskaft :-), har siddet oppe det halve af natte og studeret.

Stoney> "sleeper" den ikke hele tiden her

jo, men hvad skal man så skrive?

det er while not terminated do
sleep(200) den er gal med... :)

prøvede at fjerne den, det virker - ulempe, du får en fejl med privileged instruction

Det virker ikke her og jeg får heller ikke nogen fejl.

ups, jeg har skrvet forkert - ved din execute er der et problem med while not - do og sleep(200) - er ikke sikker men fejlen må ligge ved det NOT statement.... :-)

Jeg fik din mail, nu må du ikke blive sur men har du arbejdet med tråde før, for din kode giver ingen mening?

-------------
while terminated do
    WMP.Free;
hvad skal det betyde?

------------
with TWMPThread.Create do
      Execute;
Da CreateSuspended er false kalder du Execure 2 gange og derfor får du en fejl

-------------
Der oprettes en TWindowsMediaPlayer i Execute men Execute afsluttes med det samme og tråden frigives da FreeOnTerminate er sat til true. Dvs. at du ikke længere kan få fat i tråden da den jo ikke længere findes og du har en TWindowsMediaPlayer der fiser rundt og afspiller som du ikke har kontakt til.

jeg er overhovedet ikke sur :-), undskyld hvis jeg har klokket rundt i det.... må vist hellere tage et par timer på sofaen, og kigge på det igen med friske øjne..... :-)

Hvis jeg gør det sådan i tråden så virker det:

  while not terminated do
  begin
        Application.ProcessMessages;
      Sleep(200);
  end;

super :D

Men jeg mangler så stadig et svar på hvordan man gør det på den rigtige måde.

prøv

while not terminated do
  begin
      Sleep(200);
  end;
   
WMP.settings.mute:=true;
WMP.Free;

ellers muter du og free'er hele tiden.

IKKE TESTET

Stoney

Jeg forstår ikke lige hvad du mener, det er jo det samme som min tidligere post?

Så virker det, fik svar i en NG

    while (not Terminated) and (GetMessage(Msg, 0, 0, 0)) do
    begin
        MessageLoop(Msg);
        TranslateMessage(Msg);
        DispatchMessage(Msg);
    end;