Solved

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

Posted on 2009-04-09
8
214 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
  • 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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…
As a trusted technology advisor to your customers you are likely getting the daily question of, ‘should I put this in the cloud?’ As customer demands for cloud services increases, companies will see a shift from traditional buying patterns to new…

920 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

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now