Cover in WMP Format

[KodeZwerg]

Zeig mal Code wo Du error einen Wert zuordnest.

[EWeiss]

Zitat von KodeZwerg:

Zeig mal Code wo Du error einen Wert zuordnest.

Delphi-Quellcode:

    Error := MP3ERR_None; //<<<
        Picdata.LoadFromFile(Picfile);

        // basic converting
        v23Tag.Artist := MP3Tags.Artist;
        v23Tag.Album := MP3Tags.Album;
        v23Tag.Title := MP3Tags.Title;
        v23Tag.Year  := MP3Tags.Year;
    try
      If (MP3Tags.ReadFromFile(mp3File) = MP3ERR_None) Then
      begin

        v23Tag.Track := MP3Tags.Track;
        v23Tag.Genre := MP3Tags.Genre;
        v23Tag.Comment := MP3Tags.Comment;

        if MP3Tags.Rating = 0 then
          v23Tag.Rating := 128 // 3 Sterne
        else
        v23Tag.Rating := MP3Tags.Rating;

        for i := 1 to 16 do
        begin
           b := Random(255);
           GUID.Write(b, 1);
        end;

        v23Tag.SetPrivateFrame('WM/WMCollectionID', GUID);
        v23Tag.SetPrivateFrame('WM/WMCollectionGroupID', GUID);

        v23Tag.SetPicture('image/jpeg', 0, '*', PicData);
        v23Tag.WriteToFile(mp3file);

      end else
      begin
        lblMessageVal.Caption := cMP3Error[Error];
      end;

gruss

[KodeZwerg]

Zitat von EWeiss:

Error := MP3ERR_None; //<<<

Du solltest eine Fehlerabfrage einbauen die error auch bei einem Fehler aktualisiert.
Entweder hab ich Tomaten auf den Augen, aber ich seh nur in Zeile 1 das error gefüttert wird?!

Also so hier in etwa:

Delphi-Quellcode:

 end else
      begin
        Error := MP3ERR_NoFile;
        lblMessageVal.Caption := cMP3Error[Error];
      end;

[Gausi]

Eher so:

Delphi-Quellcode:

error := MP3Tags.ReadFromFile(mp3File);
If (error  = MP3ERR_None) Then
begin
 // ...
end else
begin
  lblMessageVal.Caption := cMP3Error[Error];
end

Wichtig wäre aber ggf. noch, dass beim Schreiben auch was schief gehen kann. Wenn man den User über alles informieren will, werden solche Prozeduren ein klein wenig verschachtelter.

[KodeZwerg]

Zitat von Gausi:

Eher so:

Ich hab Delphi grad nicht offen gehabt (wusst nicht das die unit codes übermittelt), nur gesehn das Error nicht gefüttert wird

[EWeiss]

Zitat von KodeZwerg:

Zitat von Gausi:

Eher so:

Ich hab Delphi grad nicht offen gehabt (wusst nicht das die unit codes übermittelt), nur gesehn das Error nicht gefüttert wird

LOL Warum soll es dir anders gehen als mir
Manchmal ist man neben der Rolle.

gruss

[KodeZwerg]

Joar, nach'm zweiten mal Lesen hät's mir auch klar sein müssen, steht ja If (MP3Tags.ReadFromFile(mp3File) = MP3ERR_None) Then also hat's einen Return Code.
Oje, ich bin heut auch fertig, mir schwirrt der Kopf, ich erstelle so etwas wie PEID was sich auf dessen UserDB.txt beruht aber auch PE+ Dateien unterstützt. Die vielen ?? Auswertungen bereiten mir momentan eine große Sorge aber davon ein ander mal im "User Projekte"-Forum

[EWeiss]

Zitat von KodeZwerg:

Zitat von EWeiss:

Error := MP3ERR_None; //<<<

Du solltest eine Fehlerabfrage einbauen die error auch bei einem Fehler aktualisiert.
Entweder hab ich Tomaten auf den Augen, aber ich seh nur in Zeile 1 das error gefüttert wird?!

Also so hier in etwa:

Delphi-Quellcode:

 end else
      begin
        Error := MP3ERR_NoFile;
        lblMessageVal.Caption := cMP3Error[Error];
      end;

jo bin mal wieder blöd heute

Delphi-Quellcode:

      Error := MP3Tags.ReadFromFile(mp3File);
      If Error = MP3ERR_None then

Zitat:

Eher so:

Oops hatte gerade die gleiche Idee

Vielleicht kannst du das ja noch bei einem späteren Update mit berücksichtigen.

gruss