MiniPlayer mit TMediaPlayer

[TOC]

Hi 4Toms!

Hab mir mal Zeit genommen und Deine Delphi 0.5-Version von MiniPlayer gründlich getestet. Sorry, im Internet-Cafe hab ich es kurz getestet und es gab zahlreiche Adress-Verletzungen. Mein Fehler! Aber hier zuhause auf meinem Rechner läuft Deine 0.5-Version scheinbar fast fehlerfrei.

Zumindest einen Fehler habe ich in Deiner Version allerdings entdeckt.
In folgender Prozedur:

Delphi-Quellcode:

procedure TForm1.DropFiles(var Msg: TMessage);
  ..
  ..
  FileCount := DragQueryFile(Msg.WParam, 0, nil, 0);
  for I := 0 to FileCount - 1 do begin
  ..
  ..
end;

An dieser Stelle MUSS der zweite Parameter 'FileIndex' entweder -1 oder $FFFFFFFF sein. Bei Delphi 3.0 ist der Parameter 'FileIndex' als Integer definiert, deshalb muß hier -1 stehen. Bei Delphi 7.0 ist der selbe Parameter aber als Cardinal definiert, und dann muß da $FFFFFFFF stehen! Durch diesen Wert sagt man der Funktion 'DropFiles' das man die Anzahl der gedropten Dateien ermitteln möchte. Wenn Du für FileIndex den Wert 0 nimmst bekommst Du Informationen über die ERSTE Datei die gedropt wurde, und nicht die ANZAHL der Dateien! Du mußt bei Delphi 5.0 also darauf achten welchen Typ 'FileIndex' hat, und dann entweder -1 oder $FFFFFFFF verwenden.

Noch was: Du hast einige Zeichenketten von 'Du' auf 'Sie' geändert. Nimm da bitte wieder ein 'Du', denn ich schreibe grundsätzlich keine Programme für Erwachsene, nur für Kinder und Jugendliche. Deshalb verwende ich in meinen Programmen auch nur 'Du' als Anrede. Wenn sich ein verklemmter Erwachsener am 'Du' stört kann er das Programm ja löschen und sich eins kaufen was ihn mit 'Sie' anredet, Kicher! Und achte bitte darauf das die Texte in den Labeln nicht zu lang sind, sondern vollständig sichtbar.

Noch was: Du hast die Beschriftung 'Wave-Vol' in 'Wave-Pegel' geändert.
Kein Problem, wenn Dir das besser gefällt, warum nit? Aber schau dir folgendes mal an:

Delphi-Quellcode:

procedure TForm1.OpenFileAndDevice(Obj: TSoundObject);
var
  T: Integer;
  S, Ext: string;
begin
  SoundObject := Obj;
  Ext := Obj.Ext;

  T := GetSoundChannel;
  case T of
    1: S := 'Midi-Vol :';
    2: S := 'CD-Vol :';
    3: S := 'Mod-Vol :';
    4: S := 'Video-Vol :';
    5: S := 'MP3-Vol :'
  else
    S := 'Wave-Vol :'
  end;
  VolumeLabel1.Caption := S;
  ..
  ..
end;

An dieser Stelle im Programm wird die Beschriftung des Labels in Abhängigkeit vom aktuellen Kanal und Datei-Typ geändert. Es reicht nicht aus im Objektinspektor den Label zu verändern. Du mußt dann schon im Programm selbst an dieser Stelle alles in 'Pegel' ändern.

Also, ändere diese kleinen Fehler bitte in Deiner 05-Version und schick sie mir noch mal als E-Mail. Dann werd ich sie nochmal gründlich testen und dann kriegst Du auch mein 'OK' und kannst Deine eigene Version weitergeben.

Ansonsten: Kompliment ! Sauber umgesetzt für Delphi 5.0!

Grüße von TOC!

[4toms]

Hi TOC,

danke für die Hinweise. Ich will das Programm garnicht weitergeben, sondern wollte es hier nur mit D5 kompilieren können, um aus blau gelb zu machen und vom Programm nicht mehr geduzt zu werden

Den geänderten source schicke ich Dir demnächst wieder zu, da ich noch ein paar Sachen übersehen habe.

mfg

[4toms]

Hallo TOC,

das inzwischen von mir etwas umgeschiebene MiniPlayer (für D5) sollte etwas besser laufen (hast Du per E-Mail von mir bekommen).

Dein Programm ist Freeware+OpenSource.

Was meinst Du eigentlich mit "Freeware+OpenSource"?

Daß ich mir den Sourcecode herunterladen kann?

Deinen D3/D7-Sourcecode habe ich hier inzwischen besser an D5 ngepasst, auch noch etwas verbessert, und Dir den modifizierten Sourcecode vor ein paar Stunden (heute) zugeschickt.

Mir ist nicht so ganz klar, was Du mit "Open Source" meinst

Sofern keine anderen Lizenzbestimmungen in den Dateien Deines Programms vorliegen, halte ich "Open Source"-Programme stets für GNU-GPL-Programme!

Bitte um Aufklärung, was in der DP als "Open Source" verstanden wird"!!!

mfg
4toms

[TOC]

Hi!

Zitat von 4toms:

Hallo TOC,

das inzwischen von mir etwas umgeschiebene MiniPlayer (für D5) sollte etwas besser laufen (hast Du per E-Mail von mir bekommen).

Dein Programm ist Freeware+OpenSource.

Was meinst Du eigentlich mit "Freeware+OpenSource"?

Daß ich mir den Sourcecode herunterladen kann?

Deinen D3/D7-Sourcecode habe ich hier inzwischen besser an D5 ngepasst, auch noch etwas verbessert, und Dir den modifizierten Sourcecode vor ein paar Stunden (heute) zugeschickt.

Mir ist nicht so ganz klar, was Du mit "Open Source" meinst

Sofern keine anderen Lizenzbestimmungen in den Dateien Deines Programms vorliegen, halte ich "Open Source"-Programme stets für GNU-GPL-Programme!

Bitte um Aufklärung, was in der DP als "Open Source" verstanden wird"!!!

mfg
4toms

Also, nach meiner Interpretation heißt 'OpenSource' sinngemäß soviel das die Quell-Dateien des Programmes öffentlich sind. Jeder kann sich die Quell-Dateien herunterladen, darin herumschnuppern und sich den ein oder anderen Trick abschauen. Natürlich kann man sich dann auch Prozeduren bzw. Funktionen aus dem Programm rausziehn, oder verändern etc..

Ich verfüge über keine Technologie oder Programmier-Tricks die ich geheimhalten möchte, warum auch? Deshalb sind ALLE meine Programme OpenSource, die Quell-Dateien sind für Euch also verfügbar.

FreeWare bedeutet singemäß das das Programm komplet kostenlos ist, und das man das Programm auch weitergeben kann. Ist zumindest meine Interpretation. Die neue Version 1.2 von MiniPlayer hat nun ein FreeWare-Formular in denen das mit den Kopierrechten erklärt wir.

Was sind den GNU-GPL-Programme? Den Begriff hab ich noch nie gehört!

Hab mir deine neune Delphi 5.0-Version von MiniPlayer runtergeladen und seh sie mir zuhause mal in Ruhe an...

Grüße von TOC!

[4toms]

Dein neuer MiniPlayer Version 1.2 Beta:

Daß, was da neuerdings unter "Hilfe" anklickbar ist, meinst Du doch wohl nicht ernst, oder?

Müll

Hab Dir dazu auch was GMXt

mfg

[Sharky]

Hai 4toms,

was hat denn der Link in deinem letzten Posting mit dem Programm zu tun?
Würdest Du ihn bitte wieder rausnehmen. Immerhin hat Chäffe ja schon zu deinem Postin in K&T etwas geschrieben.

Danke

[4toms]

Zitat von Sharky:

Hai 4toms,

was hat denn der Link in deinem letzten Posting mit dem Programm zu tun?
Würdest Du ihn bitte wieder rausnehmen. Immerhin hat Chäffe ja schon zu deinem Postin in K&T etwas geschrieben.

Danke

TOC antwortet auf meine GMXMehls wohl noch in der DP.

mfg

[PierreB]

Zitat von 4toms:

Zitat von Sharky:

Hai 4toms,

was hat denn der Link in deinem letzten Posting mit dem Programm zu tun?
Würdest Du ihn bitte wieder rausnehmen. Immerhin hat Chäffe ja schon zu deinem Postin in K&T etwas geschrieben.

Danke

TOC antwortet auf meine GMXMehls wohl noch in der DP.

mfg

Hä ? Was hat das denn jetzt mit Sharkys Beitrag zu tun ??

[4toms]

Absolut nichts, PierreB.

Lesen hilft!

mfg

[Aenogym]

Zitat von 4toms:

Absolut nichts, PierreB.

Lesen hilft!

mfg

du solltest dich wohl erstmal informieren, wozu man zitieren kann.... nicht, um dann einen kommentar zu etwas gänzlich anderem abzugeben.

Aenogym