<div>
do you want an exact match of function signature (bitmap handle in and out) or would you prefer a more delphi approach (TBitmap in and out) ?
</div>


<div>
Yes please exact match. &nbsp;But also curios to know the delpi aproach.<br />
<br />
Thanks in advance.<br />

</div>


<div>
Thanks for your help and code. But please give a solution where I get a HBitmap.<br />
<br />
Thanks alot
</div>


<div>
I'm afraid I'm not confident enough with the HBITMAP and WinAPI inner workings to do a strict conversion of the code you provided. This is C++, so I would have to know what is hidden in CDC class.<br />
<br />
Anyway, I strongly advise you, when you code in Delphi, and you have a Delphi solution for what you want, that is good enough performance-wise (which is the case here), then do not look for a solution that would rely too heavily on platform-specific API.<br />
You can bet that this code will work in all Delphi versions to come, compiled for Mac or Linux or whatever else when Delphi will officially support those. You couldn't say as much if your code rely on direct calls of Win API. 
</div>


<div>
Yes you are right. But my problem is, I need to supply the HBitmap to a foreign library.<br />
<br />
Thanks alot.
</div>


<div>
I have a *working* solution by I know I can't manage the memory object correctly. There are probably some leaking memory the size of TBitmap wrapper around windows HBITMAP, for each call.<br />
<br />
Those HBITMAP handles are a bit complex to use directly because of the way they are allocated in memory. The TBitmap object is very helpful to simplify that handling. But when I free a TBitmap it frees also the HBitmap associated to it (even if I save it before, I loose the important data).<br />
<br />
So this solution should not be used, instead try to find a way in your application to use only TBitmap with the solution above. <br />
This is just a &quot;demo&quot; solution :<br />

<pre><code class="code-10 nolinks" id="code-8224859"><span>function ReplaceColorH(hBMP:HBITMAP;OldColor,NewColor:TColor):HBITMAP;</span>
<span>Var</span>
<span> BMP,BMP2:TBitmap;</span>
<span>begin</span>
<span> BMP:=TBitmap.Create;</span>
<span> BMP.Handle:=hBMP;</span>
<span> BMP2:=ReplaceColor(BMP,OldColor,NewColor);</span>
<span> Result:=BMP2.Handle;</span>
<span> BMP.Free;</span>
<span>// BMP2.Free; // HERE ! PROBLEM : I cannot free it or the handle is lost...</span>
<span>end;</span>
</code></pre>
</div>


<div>
Well I thought of this solution too. But the problem is as you said the memory leak. So There should be a way to detach the HBITMAP from TBITMAP. I looking my self.<br />
Please try to dig abit deeper.<br />
<br />
Thanks alot.<br />
Ahamed
</div>


<div>
oh, if I understand you correctly, you have to SUPPLY the hBITMAP to another library, so you could use the first function , and give Result.Handle to your other lib ?<br />
<br />
procedure TForm1.ProcessBMP(BMP:TBit<wbr />map);<br />
Var BMP2:TBitmap;<br />
begin<br />
&nbsp;BMP2:=ReplaceColor(BMP,clR<wbr />ed,clYello<wbr />w);<br />
&nbsp;MyOtherLibFunction( BMP2.Handle ); // apply some effects for example<br />
// Do something else with the result in BMP2, like painting it somewhere<br />
&nbsp;BMP2.Free; // Then free the temp object when used.<br />
end;
</div>


<div>
Yes but after I give the Handle to the library ist ok to free the Result?<br />
<br />
Thanks alot.
</div>


<div>
No, the handle will get closed if you free the TBitmap.
</div>


<div>
Well then If I dont free the Bitmap there &nbsp;will be a memory leak?<br />
<br />
Thanks alot.
</div>


<div>
it all depends of what your lib does with the handle.<br />
- If it treats it immediately, then after the call you can free the Bitmap (so the handle as well) when you no longer need it.<br />
- if it keeps it for later use, then you'll have to free the bitmap only after the lib as finished using it (there should be an 'end of treatment' function in the library also, you Bmp.free should occur just after)
</div>


<div>
<br />
@epasquire<br />
<br />
Congrats for hitting the 1million points mark<br />
<br />
Now I may just get enough motivation to start answering questions again
</div>


<div>
Thank you ewangoya ! Yes it is quite a milestone. Next rank is just impossible in Delphi Zone I'm afraid.<br />
If you want more motivation : you have a bit less than 3 month to break my last year record of ~660pts.<br />
Then, you'll be halfway to the 1M pts, so maybe 3 more month of hard work. Isn't that a good challenge ? 
</div>


<div>
Nice of you to congradulate each other but can you move such comment to some where else and dont disturb my post.<br />
<br />
Thanks alot.
</div>


<div>
<b>ahamedmohideen:</b><br />
yes, sorry for pep talking in your post. The thing is there is no way to communicate directly between experts, so we do that sometimes in question threads. Most askers find it funny and often takes part of the discussion as well. But I understand you'd rather have a solution.<br />
<br />
I guess I have given you the best answer possible for the moment, as you haven't answered if what I supposed about the way you need to use this external library, is true or not. 
</div>


<div>
Please bare with me I am trying somethings out then I will answer your question.<br />

</div>


<div>
Thanks alot this thing works. It seems to be that library creates its own copy of the image. So after passing the Bitmap.Handle. I was able to free it without any problems.<br />
Thanks for your help once again.
</div>


<div>
<div class="content wysiwyg-content">
Hi Experts,<br />
<br />
Can somebody convert following code to delphi? So I can use is tp replace color of a HBitmap<br />
Thanks in advance!<br />
Best regards,<br />
Ahamed<br />

<pre><code class="code-10 nolinks" id="code-10-27381786-1"><span>HBITMAP bmpReplaceColor(HBITMAP hbm, COLORREF oldColor, COLORREF newColor)</span>
<span>{</span>
<span>	CDC hdcOld = CreateCompatibleDC(NULL);</span>
<span>	CDC hdcNew = CreateCompatibleDC(NULL);</span>
<span>	CBitmapHandle _hbmOld = NULL, _hbmOld2 = NULL, bmOld = hbm;</span>
<span>	BOOL bOK=false;</span>
<span>	CBitmap bmNew = NULL;</span>
<span>	SIZE bmpDim = { 0 };</span>
<span></span>
<span>	bmOld.GetSize(bmpDim);</span>
<span>	_hbmOld = hdcOld.SelectBitmap(bmOld);</span>
<span></span>
<span>	bmNew.CreateCompatibleBitmap(hdcOld, bmpDim.cx, bmpDim.cy);</span>
<span>	ATLASSERT(!bmNew.IsNull());//error checking!!!</span>
<span></span>
<span>	_hbmOld2 = hdcNew.SelectBitmap(bmNew);</span>
<span>       //&quot;transparent&quot; color background</span>
<span>	hdcNew.FillSolidRect(0,0,bmpDim.cx, bmpDim.cy, newColor);</span>
<span>	bOK = hdcNew.TransparentBlt(0,0,bmpDim.cx,bmpDim.cy, hdcOld, 0,0,bmpDim.cx,bmpDim.cy, oldColor);</span>
<span></span>
<span>	hdcOld.SelectBitmap(_hbmOld);</span>
<span>	hdcNew.SelectBitmap(_hbmOld2);</span>
<span>	if (bOK == FALSE) bmNew.DeleteObject();</span>
<span>return bmNew.Detach();</span>
<span>}</span>
</code></pre>
</div>
</div>


Hi Experts,

Can somebody convert following code to delphi? So I can use is tp replace color of a HBitmap
Thanks in advance!
Best regards,
Ahamed
(CODE)

How to I convert this C++ to Delphi?

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.

Delphi

C++ is an intermediate-level general-purpose programming language, not to be confused with C or C#. It was developed as a set of extensions to the C programming language to improve type-safety and add support for automatic resource management, object-orientation, generic programming, and exception handling, among other features.