Cover in WMP Format

[EWeiss]

Zitat:

Gerade habe ich mir dein Tool PrivFramesWriter nochmal genau angeschaut.

Unser Tool!

Auf jeden fall hast du recht.

Keine Entschuldigung, aber im Eifer des Gefechts habe ich nur auf das Ergebnis geachtet als darauf Programmtechnisch alles korrekt zu machen.
List wird ja nach dem addieren zur Listbox nicht mehr benötigt muss also Frei gegeben werden.

Danke für die Info.

EDIT:
Würde aber die TStringlist erst erstellen wenn sie auch benötigt wird.
Warum ein Objekt initialisieren wenn ich damit nichts tun kann, also wenn das suchen abgebrochen wird.
Macht also nur sinn wenn ich anschließend damit auch Arbeiten will\kann.

gruss

[EWeiss]

Korrigiert so wäre es richtig.

Delphi-Quellcode:

procedure TForm1.btnSearchClick(Sender: TObject);
var
  List: TStringList;
  IntI: Integer;
  Mask: array[0..0] of string;
begin
  edSearchpath.Text := GetFolder(CSIDL_DRIVES, 'Select search path');

  If edSearchpath.Text <> '' then
  begin
     if lstSearch.Count > 0 then
       lstSearch.clear;
     try
       List := TStringList.Create;
       Mask[0] := '.mp3';

       FindMediaFiles(List, edSearchpath.Text, Mask, True);
       lblCount.Caption := IntToStr(List.Count);
       ProgressCounter:= List.Count;
       lblProgress.Caption := IntToStr(ProgressCounter);

       if List.Count > 0 then
       begin
         btnDoIt.Enabled := true;
         Setlength(failed, List.Count);
       end;

       for IntI := 0 to List.Count - 1 do
         lstSearch.Items.Add(List[IntI]);
     finally
       FreeAndNil(List);
     end;
  end;
end;

Man könnte das alles noch etwas schöner machen.
Zum Beispiel wenn ein Fehler auftritt (Tag nicht gefunden)
Die aktuelle Zeile Gelb färben so das man den Pfad bzw. die Datei erkennen kann die keinen gültigen 2.3 Tag besitzt.
Habe das mal versucht aber bei mir wird diese Zeile immer wieder mit grün über pinselt.

Nun bin kein VCL Freak eher das Gegenteil aber das ist ja bekannt.

Noch ein Pic für @KodeZwerg

gruss

[DeddyH]

So wäre es richtiger

Delphi-Quellcode:

List := TStringList.Create;
try
  (* Mit der Liste arbeiten *)
finally
  List.Free; //reicht bei lokalen Variablen völlig aus
end;

[EWeiss]

Zitat von DeddyH:

So wäre es richtiger

Delphi-Quellcode:

List := TStringList.Create;
try
  (* Mit der Liste arbeiten *)
finally
  List.Free; //reicht bei lokalen Variablen völlig aus
end;

oops jep vor Try
Danke dann ist das jetzt geklärt

Leider kann ich das alte Archiv nicht mehr löschen destotrotz hier das Update.

gruss

[KodeZwerg]

Zitat von EWeiss:

Noch ein Pic für @KodeZwerg

Alter Falter, dagegen sieht mein WinAMP (Version 2.04 weil's am schnellsten lädt) total mickrig aus.
Diskobeleuchtung, Überall Boxen, Dein Plugin, Mann-O-Mann, mächtig Gewaltig Egon! (spruch als Olsenbande)

[EWeiss]

Zitat von KodeZwerg:

Zitat von EWeiss:

Noch ein Pic für @KodeZwerg

Alter Falter, dagegen sieht mein WinAMP (Version 2.04 weil's am schnellsten lädt) total mickrig aus.
Diskobeleuchtung, Überall Boxen, Dein Plugin, Mann-O-Mann, mächtig Gewaltig Egon! (spruch als Olsenbande)

Und die funktionieren auch über BPM Erkennung.

gruss

[KodeZwerg]

ot
Gibt es Deins als Bundle irgendwo, das will ich nicht verpassen! Also WinAMP so wie er auf dem Bild präsentiert wird? Da hast Du meine Lust nach sowas total angekurbelt!!
/ot

[EWeiss]

Zitat von KodeZwerg:

ot
Gibt es Deins als Bundle irgendwo, das will ich nicht verpassen! Also WinAMP so wie er auf dem Bild präsentiert wird? Da hast Du meine Lust nach sowas total angekurbelt!!
/ot

Ich habe ein Installations Packet wenn du das meinst.
Aber mit deiner Mail wird das wohl nichts hat beim letzten mal schon nicht funktioniert.

gruss

[KodeZwerg]

Ich habe eine neue die hoffentlich nichts blockt, wenn Du so freundlich wärst "[e-mail]"
Info: Maximal Dateianhang = 20 MB, falls es größer ist muss es leider in seperaten Mails erfolgen. Tut mir leid!!