Bitmap DPI

[woywod]

Merhabalar ben Bitmap resim dosyasının Dpi belirlemek istiyorum.
C# da  

Kod: (Select All)

Bitmap resim.SetResolution(40, 75);

Bu şekilde Çözunürlük Belirliyorduk  
Delphide Bu Mümkün mü acaba.

[PROGRAMADOR35]

uses'a VCL.graphics ekleyip aşağıdaki kodu dener misiniz?

img := TWICImage.Create;

img.Handle.SetResolution( DPI_X, DPI_Y);

[woywod]

(26-12-2020, Saat: 23:26)PROGRAMADOR35 Adlı Kullanıcıdan Alıntı: uses'a VCL.graphics ekleyip aşağıdaki kodu dener misiniz?

img := TWICImage.Create;

img.Handle.SetResolution( DPI_X, DPI_Y);

Bunu Denemiştim ama çalışmadı.
Sanırım Tiff Formatı içindi..
Yinede Teşekur ederım ...

[PROGRAMADOR35]

http://delphi.cjcsoft.net/viewthread.php?tid=671

Bu linkteki 4 fonksiyonu inceleyin.

[woywod]

(26-12-2020, Saat: 23:05)woywod Adlı Kullanıcıdan Alıntı: Merhabalar ben Bitmap resim dosyasının Dpi belirlemek istiyorum.
C# da  

Kod: (Select All)

Bitmap resim.SetResolution(40, 75);

Bu şekilde Çözunürlük Belirliyorduk  
Delphide Bu Mümkün mü acaba.

sanırım Delphi yi ögrenmem baya Sürecek 

resim:=Tbitmap.Create;
resim.LoadFromFile('y.bmp');
SetBmpDPI(resim,6,56);//BURDA X ve Y degerini gırıyoruz.


 resim.SaveToFile('y1.bmp');


procedure TForm1.SetBmpDPI(Bitmap: TBitmap; DPI_X: Integer; DPI_Y: Integer);
var
 Stream: TMemoryStream;
 Data: Word;
 DataY: Word;
begin
 try
   Stream := TMemoryStream.Create;
   Bitmap.SaveToStream(Stream);
   Data := Round(DPI_X * 39.370079);
   DataY :=Round(DPI_Y * 39.370079);
   Stream.Position := 38;
   if Stream.Write(Data, 2) = 2 then
   begin
     Stream.Position := 42;
     if Stream.Write(DataY, 2) = 2 then
     begin
       Stream.Position := 0;
       Bitmap.LoadFromStream(Stream);
     end
     else
       {Error writing to Stream...}
       ShowMessage('Error writing to Stream. Data not written.');
   end
   else
     {Error writing to Stream...}
     ShowMessage('Error writing to Stream. Data not written.');
 finally
   Stream.Free;
 end;
end;

Kaynak:
http://delphicikk.atw.hu/listaz.php?id=788&oldal=30