timage в bmp

[varelik]

здраствуйте.
Подскажите, как timage сохранить в отдельный файл bmp?

[raxp]

эм ... а image.picture.bitmap.savetofile() никак?

[varelik]

raxp, ага конечно,
но какой то громоздкий тогд аш на 3мб файл получается плюс длина и ширина вылезают за пределы(((

[russian-stalker]

ну дык в Bmp сжатие без потерь.(или его там нету вообще)
У меня скрины в BMP занимают порядка 7-10мб

[varelik]

а вот...
наткнулся на форуме на это:

procedure CombineImages;
begin
  with TBitmap.Create do begin
    Width:=Image1.Width;
    Height:=Image1.Height;
    Canvas.Draw(0, 0, Image1.Picture.Bitmap);
    SaveToFile('result.bmp');
    Free;
  end;
end;

И вроде как все путем получается, но
Как будто в итоге и не bmp после этой процедуры получается-
дело в том, что я после этого bmp конвертором в pcx перевожу-
и какието готовые bmp переводятся, а те bmp, которые после вышеописаной процедуры получаются в pcx переводятся неправильно

[raxp]

гм... что тут скажешь ... меняйте конвертор.

[varelik]

все, разобрался- сама процедура правильная. дело было в том что перед переводом в pcx сам bmp должен быть максимум 24 разрядным. Т.е. изначально у меня он был 32х, я сделал его монохромным в painte и все переводится в pcx без вопросов

16:06

собственно теперь осталось выяснить как программно bmp сделать монохромным?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

[russian-stalker]

procedure Mono(Bmp:TBitmap);
type
  TRGB=record
    B,G,R:Byte;
  end;
  pRGB=^TRGB;
var
  x,y:Word;
  Dest:pRGB;
begin
  for y:=0 to Bmp.Height-1 do
  begin
    Dest:=Bmp.ScanLine[y];
    for x:=0 to Bmp.Width-1 do
    begin
      with Dest^ do
      begin
        if (r+g+b)/3>254 then
        begin
          r:=255;
          g:=255;
          b:=255;
        end else
        begin
          r:=0;
          g:=0;
          b:=0;
        end;
      end;
      Inc(Dest);
    end;
  end;
end;

[varelik]

хм, интересно. а еще вот так оказалось можно:
bmp.monochrome=true;