www.FiveTechSoft.com
https://fivetechsupport.com/forums/
Code: Select all | Expand
function ImagePixels()
local hBmp := FW_ReadImage( nil, "https://thumb.cloud.mail.ru/weblink/thumb/xw1/NipP/v5trqrynQ" )[ 1 ]
local aClrs
aClrs := ReadBmpPixels( hBmp )
DeleteObject( hBmp )
XBROWSER aClrs SHOW SLNUM
return nil
static function ReadBmpPixels( hBmp )
local hBmpOld, hDC0, hDC
local nBmpWidth := nBmpWidth( hBmp )
local nBmpHeight := nBmpHeight( hBmp )
local nRow, nCol, nClr, aCol
local aClrs := {}
hDC0 := GetDC( 0 )
hDC := CreateCompatibleDC( HDC0 )
hBmpOld := SelectObject( hDC, hBmp )
nRow := 3 // can be any
AAdd( aClrs, aCol := { 1, 1, nClr := GetPixel( hDC, 1, 1 ), cClrToCode( nClr ) } )
for nCol := 2 to nBmpWidth - 1
nClr := GetPixel( hDC, nCol, nRow )
if nClr == aCol[ 3 ]
aCol[ 2 ] := nCol
else
aCol := { nCol, nCol, nClr, cClrToCode( nClr ) }
AAdd( aClrs, aCol )
endif
next nCol
SelectObject( hDC, hBmpOld )
Deletedc( hdc )
ReleaseDC( 0, hDC0 )
return aClrswhat i´m doing wrongImgpixel.prg(9) Error E0030 Syntax error "syntax error at 'ACLRS'"
Jimmy wrote:hi,
i got this Errorwhat i´m doing wrongImgpixel.prg(9) Error E0030 Syntax error "syntax error at 'ACLRS'"
Code: Select all | Expand
#include "FiveWin.ch"
Code: Select all | Expand
MEMOWRIT( cFileTxt, FW_ValToExp( aAnyArrayData ) )
// later
cText := MEMOREAD( cFileTxt )
aArray := &c // or &(c)Code: Select all | Expand
#include "FiveWin.ch"
FUNCTION ImagePixels()
LOCAL hBmp := FW_ReadImage( NIL, "https://thumb.cloud.mail.ru/weblink/thumb/xw1/NipP/v5trqrynQ" )[ 1 ]
LOCAL aClrs, cFileTxt := "NAGES.TXT", cTxt, cText
aClrs := ReadBmpPixels( hBmp )
DeleteObject( hBmp )
XBROWSER aClrs SHOW SLNUM
cTxt := {aClrs}
MEMOWRIT( cFileTxt, FW_ValToExp( cTxt ) )
WinExec( "Notepad.exe " + cFileTxt )
RETURN NIL
STATIC FUNCTION ReadBmpPixels( hBmp )
LOCAL hBmpOld, hDC0, hDC
LOCAL nBmpWidth := nBmpWidth( hBmp )
LOCAL nBmpHeight := nBmpHeight( hBmp )
LOCAL nRow, nCol, nClr, aCol
LOCAL aClrs := {}
hDC0 := GetDC( 0 )
hDC := CreateCompatibleDC( HDC0 )
hBmpOld := SelectObject( hDC, hBmp )
nRow := 3 // can be any
AAdd( aClrs, aCol := { 1, 1, nClr := GetPixel( hDC, 1, 1 ), cClrToCode( nClr ) } )
FOR nCol := 2 TO nBmpWidth - 1
nClr := GetPixel( hDC, nCol, nRow )
IF nClr == aCol[ 3 ]
aCol[ 2 ] := nCol
ELSE
aCol := { nCol, nCol, nClr, cClrToCode( nClr ) }
AAdd( aClrs, aCol )
ENDIF
NEXT nCol
SelectObject( hDC, hBmpOld )
Deletedc( hdc )
ReleaseDC( 0, hDC0 )
RETURN aClrs
// FIN / END
Code: Select all | Expand
cTxt := {aClrs}
MEMOWRIT( cFileTxt, FW_ValToExp( cTxt ) )
Code: Select all | Expand
MEMOWRIT( cFileTxt, FW_ValToExp( aClrs ) )