AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Tmediaplayer Anfängerhilfe
Thema durchsuchen
Ansicht
Themen-Optionen

Tmediaplayer Anfängerhilfe

Ein Thema von rayjray · begonnen am 14. Sep 2004 · letzter Beitrag vom 19. Sep 2004
Antwort Antwort
Seite 2 von 3     12 3      
rayjray

Registriert seit: 14. Sep 2004
29 Beiträge
 
#11

Re: Tmediaplayer Anfängerhilfe

  Alt 15. Sep 2004, 15:56
So sry ..das ich nochmal stress'...aber ich bekomm es nicht hin und dabei hab ich das nu schon 10 mal gemacht....ich kann zwar musik auswählen aber der mediaplayer macht nix...einfach alles nur grau und ich kann nichts anklicken von diesem!!

Hier mein kompletter Code...wenn ich sowas nicht darf dann sagts...SPAAAAM
Ich weiss nicht weiter ich hab kein plan..schaut mal bidde nach und wegen dem execute oder accept mit den FileOpen2 weiss ich auch nicht genau was dahin soll!

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, StdCtrls, ComCtrls, StdActns, ActnList, ImgList,
  ActnMan, ActnCtrls, ToolWin, ActnMenus, Buttons, ListActns, ExtActns;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    MonthCalendar1: TMonthCalendar;
    ActionMainMenuBar1: TActionMainMenuBar;
    ActionManager1: TActionManager;
    ImageList1: TImageList;
    DateiSpeichern: TAction;
    StatusBar1: TStatusBar;
    FileOpen1: TFileOpen;
    FileSaveAs1: TFileSaveAs;
    FilePrintSetup1: TFilePrintSetup;
    FileExit1: TFileExit;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    EditUndo1: TEditUndo;
    EditDelete1: TEditDelete;
    DateiNeu: TAction;
    HelpInfo: TAction;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    PrintDlg1: TPrintDlg;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    PsYcoPlay: TMediaPlayer;
    SpeedButton13: TSpeedButton;
    FileOpen3: TFileOpen;
    procedure DateiNeuExecute(Sender: TObject);
    procedure FileOpen1Accept(Sender: TObject);
    procedure DateiSpeichernExecute(Sender: TObject);
    procedure FileSaveAs1BeforeExecute(Sender: TObject);
    procedure FileSaveAs1Accept(Sender: TObject);
    procedure HelpInfoExecute(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    FileName: String;
  end;

var
  Form1: TForm1;

implementation

uses Info;

{$R *.dfm}

procedure TForm1.DateiNeuExecute(Sender: TObject);
begin
RichEdit1.Clear;
FileName := 'NoName.txt';
StatusBar1.Panels[0].Text := FileName;
end;

procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
FileName := FileOpen1.Dialog.FileName;
StatusBar1.Panels[0].Text := FileName;
end;

procedure TForm1.DateiSpeichernExecute(Sender: TObject);
begin
If (FileName = 'NoName.txt') then
      FileSaveAs1.Execute
else
    RichEdit1.Lines.SaveToFile(FileName);
end;

procedure TForm1.FileSaveAs1BeforeExecute(Sender: TObject);
begin
FileSaveAs1.Dialog.InitialDir := ExtractFilePath(FileName);
end;

procedure TForm1.FileSaveAs1Accept(Sender: TObject);
begin
RichEdit1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);
FileName := FileSaveAs1.Dialog.FileName;
StatusBar1.Panels[0].Text := FileName;
end;

procedure TForm1.HelpInfoExecute(Sender: TObject);
begin
AboutBox.ShowModal;
end;

end.
  Mit Zitat antworten Zitat
Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#12

Re: Tmediaplayer Anfängerhilfe

  Alt 15. Sep 2004, 15:58
Hi rayjray,

bitte füg die [delphi]-Tags hinzu, das hier kann man niemandem antun

Greetz
alcaeus

[edit]Schneller [/edit]
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#13

Re: Tmediaplayer Anfängerhilfe

  Alt 15. Sep 2004, 15:58
Bitte setze um deinen Code die [delphi]-Tags.

Diesmal war Alcaeus schneller...
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#14

Re: Tmediaplayer Anfängerhilfe

  Alt 15. Sep 2004, 16:02
Für dich im Anhang mal ein ganz simples Beispel ohne Playlist & Co, damit du siehst, wie einfach es ist.
Angehängte Dateien
Dateityp: zip mp.zip (3,2 KB, 20x aufgerufen)
  Mit Zitat antworten Zitat
rayjray

Registriert seit: 14. Sep 2004
29 Beiträge
 
#15

Re: Tmediaplayer Anfängerhilfe

  Alt 15. Sep 2004, 17:59
Erstmal ein überkrasses fettes danke Matze....

an euch natürlich auch...jeder von euch!

ICH HABS juhuuuu

also nochmal zu meinen fehlern, falls interesse besteht für hilfe an anderen.

ich habe 1. nichtmal den opendialog gehabt d.h. ich wusste nichtmal das -geschweige denn wo - es den gab!
2. leider weiss ich noch nichtmal die einfachsten befehle..aber ihr seid auch da und helft echt superschnell ^^*fg*
3. dein anschauliches mp matze war der schlüssel zu meinem fehler da ich dachte ich müsste es mit dem actionmanager machen was ja nicht der fall war!

nunja für mein 1. kleines projekt bin ich trotz allem recht zufrieden!!!

DANKE EUCH JUNGS
  Mit Zitat antworten Zitat
rayjray

Registriert seit: 14. Sep 2004
29 Beiträge
 
#16

Re: Tmediaplayer Anfängerhilfe

  Alt 15. Sep 2004, 19:48
ist es möglich den progressbar....als anzeige für den abspielstatus des liedes laufen zu lassen?
  Mit Zitat antworten Zitat
rayjray

Registriert seit: 14. Sep 2004
29 Beiträge
 
#17

Re: Tmediaplayer Anfängerhilfe

  Alt 16. Sep 2004, 16:47
dazu kommt noch das ich den aktuellen namen des sägers in einem edit haben möchte

weiss das ich den befehl

eedit1.text := FileName;

oder für ein label :

Label1.Caption := FileName

nehmen kann....wo genau muss der hin??
ich denke mir das so...ein edit erstellen ....darauf doppelklicken und da das dann eingeben??
  Mit Zitat antworten Zitat
rayjray

Registriert seit: 14. Sep 2004
29 Beiträge
 
#18

Re: Tmediaplayer Anfängerhilfe

  Alt 18. Sep 2004, 19:36
hab den schon hinbekommen..

danke für eure ganzen hilfstellungen!

Wie sagt man wenn ein thread beendet ist?

THREAD CLOSED!
  Mit Zitat antworten Zitat
Beckman

Registriert seit: 12. Jul 2004
205 Beiträge
 
#19

Re: Tmediaplayer Anfängerhilfe

  Alt 18. Sep 2004, 21:05
Zitat von rayjray:
ist es möglich den progressbar....als anzeige für den abspielstatus des liedes laufen zu lassen?

wie hast du das geloest?
  Mit Zitat antworten Zitat
rayjray

Registriert seit: 14. Sep 2004
29 Beiträge
 
#20

Re: Tmediaplayer Anfängerhilfe

  Alt 19. Sep 2004, 04:13
Ne digga ich meinte das mit der listbox..also den namen des sägers!!



wenns aber geht..sagt bescheid ^^
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:02 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz