BCB代码转C或C#

2009-09-12 02:52:01 111 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python自然语言处理 NLTK 库用法入门教程【经典】 @本文来源于公众号：csdn2299，喜欢可以关注公众号程序员学府本文实例讲述了Python自然语言处理 NLTK 库用法。分享给大家供大家参考，具体如下：在这篇文章中，我们将基于 Python 讨论自然语言处理（NLP）。本教程将会使用 Python NLTK 库。NLTK 是一个当下流行的，用于自然语言处理的 Python 库。那么 NLP 到底是什么？学习 NLP 能带来什么好处？ ... 阅读详情

刚刚开始学windows程序设计。
代码如下，希望有高手能帮忙解决。
BLENDFUNCTION blend ;
TPoint P ;
TSize S ;
int X, Y;
Graphics::TBitmap *TempBmpRGBA ;
byte Alpha ;
PRGBQuad Linia32 ;
PRGBQuad Linia32RGBA ;
Graphics::TBitmap *bmpRGBA = Form1->Image1->Picture->Bitmap;
try
{
TempBmpRGBA = new Graphics::TBitmap();
try
{
TempBmpRGBA->Width = bmpRGBA->Width;
TempBmpRGBA->Height = bmpRGBA->Height;
TempBmpRGBA->PixelFormat = pf32bit;
for( Y = 0 ;Y<TempBmpRGBA->Height;Y++)
{
Linia32RGBA = (PRGBQuad)bmpRGBA->ScanLine[Y];
Linia32 = (PRGBQuad)TempBmpRGBA->ScanLine[Y];
for( X = 0;X<TempBmpRGBA->Width;X++)
{
if( PtInRegion(Region, X, Y))
{
Alpha = 0;
}
else
{
Alpha = Linia32RGBA->rgbReserved;
}
Linia32->rgbRed = MulDiv(Linia32RGBA->rgbRed, Alpha, 255);
Linia32->rgbGreen = MulDiv(Linia32RGBA->rgbGreen, Alpha, 255);
Linia32->rgbBlue = MulDiv(Linia32RGBA->rgbBlue, Alpha, 255);
Linia32->rgbReserved = Alpha;
Linia32++;
Linia32RGBA++;
}
}

P = Point(0, 0);
S.cx = bmpRGBA->Width;
S.cy = bmpRGBA->Height;
blend.BlendOp = AC_SRC_OVER;
blend.BlendFlags = 0;
blend.AlphaFormat = AC_SRC_ALPHA;
blend.SourceConstantAlpha = 255;
UpdateLayeredWindow(Hnd, GetDC(0), NULL, &S,
TempBmpRGBA->Canvas->Handle, &P, 0,
&blend, ULW_ALPHA);
}__finally
{
delete TempBmpRGBA;
TempBmpRGBA = NULL;
}
}__finally
{
}

...全文