VPF::Конверт bmp в png и gif - Форум программистов

SultanOFF

Дата 7.12.2009, 22:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 23.3.2008

Репутация: нет
Всего: нет

Здравствуйте. Инттересно как можно бмп сконвертировать в png и gif? Или может можно сразу без создания бмп сохранять скриншот в png и gif форматах? У кого нибудь есть идеи?

Keeper89

Дата 7.12.2009, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58

TPNGImage и TGIFImage

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Snowy

Дата 8.12.2009, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Примеры конвертации внизу этой страницы

SultanOFF

Дата 8.12.2009, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 23.3.2008

Репутация: нет
Всего: нет

конвертация в png

Код


procedure pngcre;
  var
bmp: TBitmap;
DC: HDC;
png: TPngImage;
Begin
Try
bmp:= TBitmap.Create;
png:= Tpngimage.create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
png.Assign(Bmp);

png.SaveToFile('c:\test.png');
ReleaseDC(0, DC);
finally
Bmp.Free;
png.Free;
End;
End;

в gif

Код


procedure gifcre;
  var
bmp: TBitmap;
DC: HDC;
gif: TGIFImage;
Begin
Try
bmp:= TBitmap.Create;
gif:= TGIFImage.create;
bmp.Height:=Screen.Height;
bmp.Width:=Screen.Width;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
DC, 0, 0, SRCCOPY);
gif.Assign(Bmp);

gif.SaveToFile('c:\test.gif');
ReleaseDC(0, DC);
finally
Bmp.Free;
gif.Free;
End;
End;

AntonN

Дата 8.12.2009, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 7
Всего: 18

если BMP с альфаканалом, то:

Код


var bres:tbitmap; iii,ii:integer;
    PNB:TPngObject; aaa:pByteArray;
begin
  PNB:=TPngObject.Create;
  try
    //bres - наш bmp
    
    PNB.Assign(bres);
    pnb.CreateAlpha;
    for ii:=0 to bres.Height-1 do begin
        fff:=bres.ScanLine[ii];
        aaa:=pnb.AlphaScanline[ii];
        for iii:=0 to bres.Width-1 do begin
          aaa[iii]:=fff[iii].rgbReserved;
        end;
    end;

    PNB.SaveToFile(Edit3.Text+'_p.png');

  finally
    PNB.free;
  end;
end;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »