Solved

problem in setiing  pixel values in the raw bits of the DIB of 24 bit image?

Posted on 2009-04-09
8
231 Views
Last Modified: 2012-05-06
Hi,


  I am working on delphi-7. I have set of pixel values(ie to draw scribbles(colored lines) on image),I want to set the pixels by using the DIB raw bits, My codse is as given below,


           if ((y>0) and (y<Height)  and (x<Width) and (x>0)) then
           begin
             row := (Width *(Height - y)+x)*3;  // (w2*(h2-j)+i)*3;
             (L_PUCHAR(integer(drawbits)+row+2))^  :=   GetRValue(col);
             (L_PUCHAR(integer(drawbits)+row+1))^  :=   GetGValue(col);
             (L_PUCHAR(integer(drawbits)+row))^    :=   GetBValue(col);
           end;  
           StretchDIBits(hdc_draw,0,0,Width,Height,0,0,Width,Height,drawbits,pinfo_curstamp^,DIB_RGB_COLORS,SRCCOPY);
 
           Where
       drawbits is the raw bits obtained from DIB of 24 bit image.



         It is working fine for some 24 bit  images. But with Some 24 bit images it is jumping the scribbles(ie it is not drawing to the same position). Even I am stretching to the 24 RGB bits,I am not getting what is the problem. Please give me solution.
0
Comment
Question by:inampudi1
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
  • 2
8 Comments
 
LVL 49

Expert Comment

by:DanRollins
ID: 24123724
The problem might be related to to the fact that the row width is always a multiple of 4 bytes.  I did not check your calculation, but it must take that into account.  
For instance, if the calculation works for bitmaps that are exactly 320 bits wide but does not work for one that is 321 or 322 bytes wide, then that might be the problem.  Can you check that out and see if it applies?
0
 

Author Comment

by:inampudi1
ID: 24124559
Hi DanRollins,

   Thank you for reply,

   I checked it is right what you are saying. suppose I have image with 317 by 318, Without resizing image how can I Change my DIB drawing algoritham. Please tell me.


0
 
LVL 16

Expert Comment

by:George Tokas
ID: 24126944
Since you are working with Delphi why don't you assign the DIB to a TBitmap and access TBitmap->Canvas->Pixels[x][y] ??

George Tokas.
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 

Author Comment

by:inampudi1
ID: 24128842
HI gtokas,

   Assigning DIB to bitmap and then processing pixel by pixel will take extra time, as compared to DIB. Since I am working with 2K resulution images, Pixel by pixel meands it will be slow.

0
 
LVL 16

Expert Comment

by:George Tokas
ID: 24130054
Use scanline. Its faster and there are Delphi examples...

George Tokas.
0
 
LVL 49

Accepted Solution

by:
DanRollins earned 500 total points
ID: 24132824
Here is your calculation:
    row := (Width *(Height - y)+x)*3;
The "Height-y" part is to reverse top and bottom. Let's remove that for now...
    row := ((Width * y) +x)*3;
That is saying that each row is Width * 3 bytes long... The address then is y rows (of 3 bytes per pixel times the number of pixels in a row) plus x columns (of three bytes per pixel).
You need to adjust that so that when the Width is not a multiple of 4 pixels, then iou take that into consideration
    nScanLineWide = ((Width+3) /4) * 4; // round up next multiple of 4
    row := ((nScanLineWide* y) +x)*3;
(and adding back the top=bottom adjustment:
    row := ((nScanLineWide * (Height - y) ) +x)*3; // BTW, 'row' is a bad name for this variable
Note: I did not actually test this, as I have no experience with Delphi. But the basic princlple is commonly used on C++ and Assembly Language coding, so I assume it applies here.  Also, I'm assuming that variables and intermediate values are integer data type so that (z+3)/4 yields an integer.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.
Suggested Courses
Course of the Month10 days, 7 hours left to enroll

628 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question