Копировать Bitmap

[Son]

Не могу разобраться с работой с Bitmap'ом. Пытаюсь скопировать один Bitmap в другой:

procedure TForm1.Button2Click(Sender: TObject);
var b1,b2:TBitmap;
    x,y,w,h:integer;
    pb1,pb2:PDWORD;
    c:PRGBQuad;
begin
b1:=TBitmap.Create;
b2:=TBitmap.Create;
if (OpenPictureDialog1.Execute) and (FileExists(OpenPictureDialog1.FileName)) then
  begin
  b1.LoadFromFile(OpenPictureDialog1.FileName);
  w:=b1.Width;
  h:=b1.Height;
  b2.Width:=w;
  b2.Height:=h;
  for y:=0 to h-1 do
    begin
    pb1:=b1.ScanLine[y];
    pb2:=b2.ScanLine[y];
    for x:=0 to w-1 do
      begin
      c:=PRGBQuad(pb1);inc(pb1,4);
      pb2^:=DWord(c);inc(pb2,4);
      end;
    end;
  end;
end;

Выдает ошибку обращения к памяти. В чем ошибка? Заранее спасибо.

[mutabor]

Bitmap1.Assign(Bitmap2);

[Son]

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

[Son]

мне нужно преобразовать битмап по пикселям. начал разбираться и что то не могу найти подходящего примера. как мне пробежать по пикселям и создать на основе создать новый битмат.

[mutabor]

Сообщение от Son

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

В указатель данные не записываются. Указатель нужно разименовать чтобы данные в объект писать. Но, при работе с битмапом указатели совсем не обязательно использовать, незачем.

Извлекайте сканлайном строки и преобразуйте, или попиксельно, как удобнее, но сканлайн быстрее.

procedure TForm1.Button2Click(Sender: TObject);
var b1,b2:TBitmap;
    x,y,w,h:integer;
    pb1,pb2:PDWORD; //я другого типа переменную использовал, не помню какого уже
    c:PRGBQuad;
begin
b1:=TBitmap.Create; //не забудьте память потом освободить (метод Free)
b2:=TBitmap.Create;
if (OpenPictureDialog1.Execute) and 
(FileExists(OpenPictureDialog1.FileName)) then //это лишнее, если диалог сработал, то файл существует
  begin
  b1.LoadFromFile(OpenPictureDialog1.FileName);
  w:=b1.Width;
  h:=b1.Height;
  b2.Width:=w;
  b2.Height:=h;
  for y:=0 to h-1 do
    begin
    pb1:=b1.ScanLine[y]; 
    pb2:=b2.ScanLine[y];
    for x:=0 to w-1 do
      begin
      c:=PRGBQuad(pb1);
      inc(pb1,4); //почему 4? 3 байта один 24-х битный пиксель занимает в строке
//к тому же правильнее x перемножать на 3, ну и опять же другой тип pb1 тут нужен
      pb2^:=DWord(c); //тут указатель не нужен
      inc(pb2,4);
      end;
    end;
  end;
end;

Вобщем я для примера сейчас приведу код рабочий, а вы уже свой переделайте.

Вот код эффекта антиалиас, в нем используется сканлайн, для 24-х битного битмапа, код рабочий

procedure ApplyFilter(var Source: TBitmap; XOrigin, YOrigin,
  XFinal, YFinal: Integer); stdcall;
var Memo,x,y: Integer;
    p0,p1,p2:pbytearray;
begin
   if XFinal<XOrigin then begin Memo:=XOrigin; XOrigin:=XFinal; XFinal:=Memo; end;
   if YFinal<YOrigin then begin Memo:=YOrigin; YOrigin:=YFinal; YFinal:=Memo; end;
   XOrigin:=max(1,XOrigin);
   YOrigin:=max(1,YOrigin);
   XFinal:=min(Source.width-2,XFinal);
   YFinal:=min(Source.height-2,YFinal);
   Source.PixelFormat :=pf24bit;
   for y:=YOrigin to YFinal do begin
    p0:=Source.ScanLine [y-1];
    p1:=Source.scanline [y];
    p2:=Source.ScanLine [y+1];
    for x:=XOrigin to XFinal do begin
      p1[x*3]:=(p0[x*3]+p2[x*3]+p1[(x-1)*3]+p1[(x+1)*3])div 4;
      p1[x*3+1]:=(p0[x*3+1]+p2[x*3+1]+p1[(x-1)*3+1]+p1[(x+1)*3+1])div 4;
      p1[x*3+2]:=(p0[x*3+2]+p2[x*3+2]+p1[(x-1)*3+2]+p1[(x+1)*3+2])div 4;
      end;
   end;
end;

мне нужно преобразовать битмап по пикселям. начал разбираться и что то не могу найти подходящего примера. как мне пробежать по пикселям и создать на основе создать новый битмат.

Самое простое решение, не долго думая, создайте сразу новый битмап, скопируйте с помощью Assign в него исходный битмап, и уже в новом преобразуйте строки. А вообще тут способов несколько есть это сделать, можно и построчно переносить в новый, пробуйте.

[Son]

Большое спасибо. код работает. С принципом разобрался)))