Hallo, ich verwende folgenden Source, wenn man auf Button1 klickt:

uses
mmsystem;



procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Filename := 'C:\Film1.mpg';
MediaPlayer1.Open;
MediaPlayer1.Display := Panel1;
MediaPlayer1.DisplayRect := Panel1.ClientRect;
MediaPlayer1.Play;
end;



und trotzdem erscheint die Fehlermeldung, die ich im Anhang als JPG aufgenommen habe. Ich programmiere unter WinXP Home + SP 2!

Weiß jemand, wie ich diesen Fehler umgehen kann?

Hallo hansklok,

das hat nur indirekt mit dem Mediaplayer zu tun. Es tritt eine Exception auf, worauf Delphi debuggen will. Es sieht aber so aus, als ob eine Anwendung installiert wäre, welche verhindert dass Debugger ausgeführt werden. Probier mal folgenden Code in einem neuen Projekt:

markieren

Delphi-Quellcode:

var
  i: Integer;
  s: String;
begin
  s := '1a';
  i := StrToInt(s);
end;

Tritt die Fehlermeldung auch in diesem Fall auf?

Greetz
alcaeus

... kann nicht gehen, da kommt nämlich

'1a' ist kein gltiger Integerwert, wie auch, mit nem a als Integervariable!

HI!

Genau darum geht es ja.
Ist dann der Delphi-Debugger angesprungen?


Ciao Frederic

Ja, das ist er!

Hi!

Dann ist das wohl ein Debugger-Schutz des MP.
Hast du nen Debugger laufen?


Ciao Frederic

Wie meinst du das? Wie kann ich den den einstellen?

Zitat von hansklok:

... kann nicht gehen, da kommt nämlich

'1a' ist kein gltiger Integerwert, wie auch, mit nem a als Integervariable!

Mir ging es drum um zu testen, ob der Delphi-Debugger überhaupt anläuft, also ob diese Exception abgefangen wird. Sezt mal im Projekt mit dem Mediaplayer einen Haltepunkt in die Zeile "MediaPlayer1.Filename := 'C:\Film1.mpg';" und geh anschließend im Einzelschritt (F8) weiter. An welcher Stelle kommt die Fehlermeldung?

Greetz
alcaeus

wie setzt man den nen Haltepunkt?

Hi!

Im Code-Editor-Fenster sind neben den Zeilen so kleine blaue Punkte. Dann klick da mal drauf, dann wird er größer und rot
-->Haltepunkt. Dann mit F7 durchgehen.


Ciao Frederic