Конференция "KOL" » графика [kol_mck, Windows]
 
  • митя (25.04.18 13:06) [40]
    tinyLoadJPGGIFBMPFile(Image.jpg);
    bmp.SaveToStream(ImageStream);
    png.LoadFromStream(ImageStream);
    png.SaveToFile(Image.png);

    Подскажите пожалуйста как правильно
  • Netspirit (26.04.18 13:44) [41]
    procedure TestBmpToPng;
    var
     bmp: PBitmap;
     png: PPngObject;
    begin
     bmp := NewBitmap(0,0);
     png := NewPngObject;
     
     bmp.LoadFromFile('Test.bmp');
     png.AssignHandle(bmp.Handle, False{Transparent}, 0{Transp. color});
     png.SaveToFile('Test.png');
     
     bmp.Free;
     png.Free;
    end;

  • митя (27.04.18 15:24) [42]
    Netspirit -спасибо!
 
Конференция "KOL" » графика [kol_mck, Windows]
Есть новые Нет новых   [103775   +28][b:0.001][p:0.001]