обложка альбома через ID3v2

[Кольша]

вот полный лог
Компиляция
[Ошибка] PNGImage.pas(311): Method 'GetSupportsPartialTransparency' not found in base class
[Ошибка] PNGImage.pas(426): ';' expected but identifier 'deprecated' found
[Ошибка] PNGImage.pas(426): '=' expected but string constant found
[Ошибка] PNGImage.pas(5011): Undeclared identifier: 'SetSize'
[Ошибка] PNGImage.pas(5016): Undeclared identifier: 'AlphaFormat'
[Ошибка] PNGImage.pas(5016): Undeclared identifier: 'afDefined'
[Ошибка] PNGImage.pas(5023): Undeclared identifier: 'AlphaFormat'
[Ошибка] PNGImage.pas(5023): Undeclared identifier: 'afIgnored'
[Фатальная Ошибка] APIC_Common.pas(6): Could not compile used unit 'PNGImage.pas'

[Кольша]

Компиляция
[Ошибка] PNGImage.pas(311): Method 'GetSupportsPartialTransparency' not found in base class
[Ошибка] PNGImage.pas(426): ';' expected but identifier 'deprecated' found
[Ошибка] PNGImage.pas(426): '=' expected but string constant found
[Ошибка] PNGImage.pas(5011): Undeclared identifier: 'SetSize'
[Ошибка] PNGImage.pas(5016): Undeclared identifier: 'AlphaFormat'
[Ошибка] PNGImage.pas(5016): Undeclared identifier: 'afDefined'
[Ошибка] PNGImage.pas(5023): Undeclared identifier: 'AlphaFormat'
[Ошибка] PNGImage.pas(5023): Undeclared identifier: 'afIgnored'
[Фатальная Ошибка] APIC_Common.pas(6): Could not compile used unit 'PNGImage.pas'

[Кольша]

всем спасибо большое отдуши за помощь я сделал с помощью ID3v2 Library

[ZuBy]

вот, для D7
в архиве модули pngimage и gifimage

[Кольша]

спасибо вот что я сделал

[Кольша]

и кстати равиль твой метод не читает в некоторых файлаз обложку

[Anfall]

Кольша, зато его метод не требует тянуть лишних и не полностью бесплатных DLLек.

А что б тянулись все изображения, то тогда не надо проверять mime:

Вот так загружаются все изображения:

procedure TForm2.GetAPIC(const FileName: string);
var
  pic: TpictureInfo;
  APIC: TAPIC;
begin
  if FileName = '' then
    exit;
  APIC := TAPIC.Create;
  try
    if (APIC.ReadPictureFromFile(FileName)) and (APIC.Pictures.Count >= 1) then
    begin
      pic := APIC.Pictures.Items[0];
      pic.SetToPicture(image1.Picture);
    end;
  finally
    freeandnil(APIC);
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then
    exit;

  GetAPIC(OpenDialog1.FileName);
end;

Единственное нюанс, не знаю как себя все это поведет в д7, потому что в новых версиях делфи, по части поддержки разных изображений - дела лучше.

[Кольша]

ну да так то

[Кольша]

Сообщение от Anfall

Кольша, зато его метод не требует тянуть лишних и не полностью бесплатных DLLек.

А что б тянулись все изображения, то тогда не надо проверять mime:

Вот так загружаются все изображения:

procedure TForm2.GetAPIC(const FileName: string);
var
  pic: TpictureInfo;
  APIC: TAPIC;
begin
  if FileName = '' then
    exit;
  APIC := TAPIC.Create;
  try
    if (APIC.ReadPictureFromFile(FileName)) and (APIC.Pictures.Count >= 1) then
    begin
      pic := APIC.Pictures.Items[0];
      pic.SetToPicture(image1.Picture);
    end;
  finally
    freeandnil(APIC);
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then
    exit;

  GetAPIC(OpenDialog1.FileName);
end;

Единственное нюанс, не знаю как себя все это поведет в д7, потому что в новых версиях делфи, по части поддержки разных изображений - дела лучше.

еще надобно
private
procedure GetAPIC(const FileName: string);
кстати в д7 видет нормик

[ZuBy]

Сообщение от Кольша

и кстати равиль твой метод не читает в некоторых файлаз обложку

Это зависит от формата, я не все допустимые форматы обрабатывал...
Но уже это не важно, т.к. твоя проблема решена