VFP 愛用者社區

[Ruey]

http://www.meizibbs.3322.org/bbs/dispbbs.asp?boardID=2&ID=49111&page=1
梅子論壇 mfhjz

已完善的图片处理，能缩放，能选区域，jpg与bmp转换

[garfield]

這個網站:http://www.xstandard.com/download.asp
也有 Image Size Component 的公用程式, 是free的.
另外 Zip Component 也是 free的.

[garfield]

我試過下載沒問題,
解壓也沒問題,
如果你再下載一次但還會有問題,
那你要試看看你的防毒軟體或 winrar 是否有問題或版本太舊.

[Ruey]

我是用winrar3.42

[garfield]

另外一個純prg 呼叫 GDI 的程式 : GPIMAGE2
開發者網站: http://cchalom.sites.uol.com.br/GPIMAGE/index.htm
下載點: http://www.geocities.com/macmarbr/gpimage2.zip

功能很強, 也可用在報表檔. 真厲害.

Methods:

Create(tnWidth, tnHeight, tcPixelFormat)
Creates an empty image object

tcPixelFormat is optional; if omitted, default is 32bppARGB NEW

Load(tcFileName)
Loads an image from file

FromResource(tcFileName, tcBitmapName)
Loads an image from bitmap resource in EXE/DLL file. Resource can be identified by name: img.FromResource("dxdiag.exe", "DIRECTX"), or by number: img.FromResource("shell32.dll", "#309").

FromPicture(toPicture)
Creates an image object from Picture object

GetPicture()
Returns Picture object

FromClipboard()
Creates an image object from clipboard content

ToClipboard()
Copies an image to clipboard

Thumbnail(tnWidth, tnHeight)
Creates thumbnail of specified size

SaveAsBMP(tcFileName)
Stores image in BMP file

SaveAsJPEG(tcFileName, tnQuality, tnTransform)
Stores image in JPEG file.

Optional parameter tnQuality specifies quality of JPEG compression, 0 - highest compression, 100 - highest quality, default value - 75.

Optional parameter tnTransform specifies type of transformation without loss of information, any of EncoderValueTransform values.

SaveAsGIF(tcFileName)
Stores image in GIF file

SaveAsTIFF(tcFileName, tnCompress, tnColorDepth)
Stores image in TIFF file.

Parameter tnCompress specifies type of compression, any of EncoderValueCompression values, optional.

Parameter tnColorDepth specifies number of colors in bits per pixel (1,4,8,16,24,32,48,64), optional.

SaveAsPNG(tcFileName)
Stores image in PNG file

SaveAsMultipageTIFF(tcFileName, tnCompress, tnColorDepth)
Stores image as first page of multipage TIFF file

SaveAddPage(tnImage)
Adds specified image as page of multipage file. Parameter tnImage is a value, returned by GetImage() function of another image object.

GetImage()
Returns pointer to GDI+ image object which can be used in API functions and SaveAddPage() function.

GetPixelColor(x, y)
Returns color value of pixel

GetPixelAlpha(x, y)
Returns alpha value of pixel

SetPixel(x, y, tnColor, tnAlpha)
Sets color and alpha values of pixel

Crop(x, y, tnWidth, tnHeight)
Crops an image

RotateFlip(rotateFlipType)
Rotates and flips an image

Resize(tnWidth, tnHeight, tnInterpolationMode)
Resizes an image

GetPageCount()
Returns number of pages in multipage (TIFF) file

SelectPage(tnPage)
Selects the specified page

GetFrameCount()
Returns number of time frames in multiframe (GIF) file

SelectFrame(tnFrame)
Selects the specified time frame

Capture(thWnd)
Captures the window, specified by handle or desktop, if handle is not specified


**********
Methods:

CreateFromImage(tnImageHandle)
Creates Graphics from Image Handle NEW

CreateFromHWND(tnFormHWND)
Creates Graphics from Form’s HWND NEW

SetPen(tnColor, tnWidth, tnUnit)
Sets the pen to be used by “DrawRect”, “DrawLine”; tnWidth (1) and tnUnit (0)are optional NEW

More great information about PEN at http://www.bobpowell.net/pensone.htm

DrawLine(x1, y1, x2, y2)
Draws a Line between two points x1y1 and x2y2, based on “SetPen”

DrawRect(x, y, tnWidth, tnHeight)
Draws a rectangle based on “SetPen”

DrawEllipse(x, y, tnWidth, tnHeight)
Draws an ellipse based on “SetPen”

DrawPie(x, y, tnWidth, tnHeight, nStart, nSweep)


Draws a pie slice based on “SetPen”

nStart = starting point to start draw

nSweep = Size in angles of the slice (0-360) NEW

DrawArc(x, y, tnWidth, tnHeight, nStart, nSweep)
Draws an arc, using same parameters of “DrawPie”; Portion of circle within the rectangle defined by the angles NEW

DrawPolygon(taPoints)
Draws a polygon based on “SetBrush”

taPoins = 2-D array with integer positions

column1 = X ; column 2 = Y

also connects first and last points to close the figure drawn. NEW

SetBrush(tnColor, tnAlpha)
Sets the Brush to be used by “FillRect” and “DrawString”

Sets color and alpha values of pixel

Alpha ranges from 0 (transparent) to 255 (opaque) NEW

More great information on BRUSHES at http://www.bobpowell.net/brushesone.htm

SetHatchBrush(tnHatchStyle, tnBackCol, tnBackAlpha, tnForeCol, tnForeAlpha)
Creates a HatchBrush object based on a hatch style, a foreground color, and a background color

tnHatchStyle is numeric constant. See codes in Gpimage.h NEW

SetTextureBrush(tcFileName, tnWrapMode)
Creates a TextureBrush object based on an image and a wrap mode. The size of the brush defaults to the size of the image, so the entire image is used by the brush. tnWrapMode is numeric constant. See codes in Gpimage.h NEW

FillRect(x, y, tnWidth, tnHeight)
Draws and Fills a rectangle based on “SetBrush”

FillEllipse(x, y, tnWidth, tnHeight)
Draws and Fills an ellipse based on “SetBrush”

FillPie(x, y, tnWidth, tnHeight, nStart, nSweep)


Draws and Fills a pie slice based on “SetPen”

nStart = starting point to start draw

nSweep = Size in angles of the slice (0-360) NEW

FillPolygon(taPoints)
Draws and Fills a polygon based on “SetBrush”

taPoins = 2-D array with integer positions

column1 = X ; column 2 = Y NEW

SetRect(x, y, tnWidth, tnHeight)
Sets a rectangle in which “DrawString” will draw the text

TranslateTransform(tnX, tnY)
Translates by (x,y) the graphics object NEW

RotateTransform(tnAngle)
Sets the rotaion by the specified angle, based on the matrix created by “TranslateTransform” NEW

ResetTransform
Resets the transform matrix NEW

SetAlignment(thAlignment, tvAlignment, tFlags)
Sets the horizontal, vertical and flags for the “DrawString” alignment. The three parameters are numeric constants. See codes in Gpimage.h NEW

DrawString(tcText, tcFontName, tnFontSize, tcFontStyle, tlMeasureString)
Draws a String on the image, based to “SetBrush”, “SetAlignment” and “SetRect”. tcFontStyle is character

“B” – Bold

“I” – Italic

“U” – Undeline

“S” – Superscript

tlMeasureString is optional; .T. sends string measures to properties StringW, StringH, StringChars and StringLines NEW

More great information on DRAWING STRINGS at http://www.bobpowell.net/begintext.htm

MeasureString(tcText, tcFontName, tnFontSize, tcFontStyle)
Same parameters as “DrawString” – updates properties StringW, StringH, StringChars and StringLines NEW

DrawImage(tcImageFile, x, y, tnWidth, tnHeight)
Draws a picture on the image

tcImageFile can be either the file name or handle of another loaded image in another instance of gpimage (see examples) NEW

tnWidth and tnHeight are optional

More great information on DRAWING IMAGES at http://www.bobpowell.net/imagesone.htm

DrawImageScaled(tcImageFile, x, y, tnWidth, tnHeight)
Draws a picture on the image Scaled to the size of the virtual rectangle

DrawImageRectRect(tcFileName, dstx, dsty, dstwidth, dstheight, srcx, srcy, srcwidth, srcheight)
Draws the specified portion of the specified Image object at the specified location and with the specified Size. This method will draw the image using the IMAGEATTRIBUTES predefined in REMAPTABLE and SETCOLORMATRIX (see below) NEW

RemapTable(tnOldColor, tnNewColor, tnOldAlpha, tnNewAlpha)
Converts the colors in an image according to a color remap table. Makes possible to change some desired colors. This command creates an ImageAttributes. To apply the changes, draw the Remapped Image using DRAWIMAGERECTRECT NEW

See example file REMAPPINGCOLORS.PRG

SetColorMatrix(taColMatrix)
The ColorMatrix structure contains a 5x5 matrix of real numbers. Using this matrix it is possible to make adjustments in image colors.

See example file MATRIX.PRG

Check also in MSDN article “Using a Color Matrix to Transform a Single Color” NEW

More great information about COLOR MATRICES at http://www.bobpowell.net/negativeimage.htm

ChangeColors(tnRed, tnGreen, tnBlue, tnAlpha)
This is the easiest way to convert colors.

tnRed, tnGreen, thBlue and tnAlpha represent the percentage of a single color you need to add / decrease in the image. Ranges from -100 to +100

All 4 parameter are needed



It has also 2 predefined color matrices

To use them, sen only one parameter

1 for Black and White convesion

2 for negative conversion



Soon I will be adding some new matrices that deal with brightness and contrast. NEW



To better understand this method you should run example file TESTGPIMAGE.SCX and CHANGECOLORS.PRG

GetGraphics
Gets the graphics handle

[xyz119]

to: garfield
http://www.geocities.com/macmarbr/gpimage2.zip 已无法下载，能否上传一份到论坛？

非常感谢！

[garfield]

不是無法下載,
而是中國對世界上很多ip皆有封鎖.
過一陣子這個社區會改用中華電信的線路,
到時如果剛好是在被封鎖的範圍內,
那就不知何時能再見了.....

[xyz119]

非常感谢garfield
如果真象是你所说的那样，真是太可悲了，期望别发生这样的事情。
再次表示感谢！