델파이에서 jpeg 사용

Question

어떻게이 기능을 사용할 수 있습니까? Create an image and colored ir? for jpeg?

Bmp 형식이 크기가 크기 때문에, 작은 크기로 공부하고 싶습니다.

Answer 1

procedure TForm1.GenerateImageWithRandomColors; 
var 
    I, J: Integer; 
    ColorHEX: string; 
    Bitmap: TBitmap; 
    JpegImg: TJpegImage; 
begin 
    Randomize; 

    Bitmap := TBitmap.Create; 
    try   
    Bitmap.Width := 100; 
    Bitmap.Height := 100; 
    Bitmap.PixelFormat := pf24bit; 

    for I := 0 to Pred(Bitmap.Width) do 
    begin 
     for J := 0 to Pred(Bitmap.Height) do 
     begin 
     Bitmap.Canvas.Pixels[I, J] := RGB(Random(256), 
      Random(256), 
      Random(256)); 

     // get the HEX value of color and do something with it 
     ColorHEX := ColorToHex(Bitmap.Canvas.Pixels[I, J]); 
     end; 
    end; 

    JpegImg := TJpegImage.Create; 
    try 
     JpegImg.Assign(Bitmap); 
     JpegImg.SaveToFile('test.jpg'); 
    finally 
     JpegImg.Free; 
    end; 

    finally 
    Bitmap.Free; 
    end; 
end; 

function TForm1.ColorToHex(Color : TColor): string; 
begin 
    Result := 
    IntToHex(GetRValue(Color), 2) + 
    IntToHex(GetGValue(Color), 2) + 
    IntToHex(GetBValue(Color), 2); 
end;