Gönderen Konu: Graphic - JPEG Çözünürlüğünü Değiştirmek (Okunma sayısı 1437 defa)

CMNSOFT · « : 13 Ekim 2005 19:52:08 »

Kod: (Unknown Language)

Procedure SetResJPEG(Name: String; dpiX, dpiY: Integer); 
Const 
  BufferSize = 50; 
  DPI = 1; //inch 
  DPC = 2; //cm 
Var 
  Buffer: string; 
  index: INTEGER; 
  FileStream: TFileStream; 
  xResolution: WORD; 
  yResolution: WORD; 
  _type: Byte; 
begin 
  FileStream := TFileStream.Create(Name, fmOpenReadWrite); 
  try 
    SetLength(Buffer, BufferSize); 
    FileStream.Read(buffer[1], BufferSize); 
    index := POS('JFIF' + #$00, buffer); 
    if index > 0 Then 
      begin 
      FileStream.Seek(index + 6, soFromBeginning); 
      _type := DPI; 
      FileStream.write(_type, 1); 
      xresolution := swap(dpix); 
      FileStream.write(xresolution, 2); 
      yresolution := swap(dpiy); 
      FileStream.write(yresolution, 2); 
    end 
  finally 
    FileStream.Free; 
  end; 
End;

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Graphic - JPEG Çözünürlüğünü Değiştirmek (Okunma sayısı 1437 defa)

CMNSOFT

Graphic - JPEG Çözünürlüğünü Değiştirmek