FiveTech Software tech support forums

... scanner only produces JPG instead of BMP. However I cannot get the Method RotateImage to work it says message not found, and I cannot seem to resize the image, does this work, or am I doing something wrong.

Thanks,


There are some FreeImage DLLS in which the Rotate function does not appear ...

... 537.36 (KHTML, like Gecko) Chrome/103.0.5060.53 Mobile Safari/537.36" )
// oWebView:OpenDevToolsWindow( .T. )

ACTIVATE WINDOW oWnd CENTER ;
ON RESIZE oWebView:SetSize( nWidth, nHeight )

return nil

function JSSearch()

local cCode

TEXT INTO cCode
function WebSearch( cText )
{
document ...

I have been using the TImage class because my scanner hardware died, and the other scanner only produces JPG instead of BMP. However I cannot get the Method RotateImage to work it says message not found, and I cannot seem to resize the image, does this work, or am I doing something wrong.

Thanks,

... buttons which are generally only three in other situations they are 5 and to avoid always having to rewrite them and consequently set them in the resize function of the dialog I thought of making a small class that does nothing but insert the buttons

so in the procedure I use I only have to load ...

... if !lIsDir(cCurDir+'TEMP')
lMkDir(cCurDir+'TEMP')
endif

cTempPath := cCurDir+'TEMP\'

DEFINE WINDOW oWnd FROM 0, 0 TO 400, 600 PIXEL TITLE 'Test Resize Image'

oWnd:SetFont( oFont )

@ 100, 100 BUTTON oBtn PROMPT 'Run Now' SIZE 80, 40 PIXEL ACTION ReSizeGstImg() // TestBrow() //

ACTIVATE ...

... 200000, 15, ;
IIF( Filesize( cFile ) > 150000, 20, 25 ) )

IF Filesize( cFile ) >= 32768 // 65536

oImage := GdiBmp():New( cFile )

oImage:Resize( oImage:GetWidth() / 1.3, oImage:GetHeight() / 1.3 )
oImage:Save( cNewFile )

oImage:End()

SYSREFRESH()

aImg := Fw_ReadImage( NIL, cFile ...

... iif(filesize(cFile)>150000, 20, 25 ))

// if filesize(cFile) >= 32768 // 65536

oImage := GdiBmp():New( cFile )
// ? oImage:GetWidth()
oImage:Resize( oImage:GetWidth()/1.3, oImage:GetHeight()/1.3 )
oImage:Save( cNewFile )
oImage:End()

aImg := Fw_ReadImage( nil, cFile )
// xbrowse( aImg ...

... feedback.

Ok, first lets try to identify where the memory leak comes from.

Please comment out this section and run your code again:
/* oImage := GdiBmp():New( cFile )
oImage:Resize( oImage:GetWidth()/1.3, oImage:GetHeight()/1.3 )
oImage:Save( cNewFile )
oImage:End()
*/

waiting for your news

... iif(filesize(cFile)>150000, 20, 25 ))

// if filesize(cFile) >= 32768 // 65536

oImage := GdiBmp():New( cFile )
// ? oImage:GetWidth()
oImage:Resize( oImage:GetWidth()/1.3, oImage:GetHeight()/1.3 )
oImage:Save( cNewFile )
oImage:End()

aImg := Fw_ReadImage( nil, cFile )
// xbrowse( aImg ...

... your feedback.

Ok, first lets try to identify where the memory leak comes from.

Please comment out this section and run your code again:
/* oImage := GdiBmp():New( cFile )
oImage:Resize( oImage:GetWidth()/1.3, oImage:GetHeight()/1.3 )
oImage:Save( cNewFile )
oImage:End()
*/

waiting for your news

Dear Antonio,

I replaced as your recommend but It does not help. I try to resize the image for 500 images. The memory was started is 40MB and after resized take 1,400MB.

Antonio Linares wrote: Tue Mar 04, 2025 6:23 pm Dear Dutch,

Please replace Memory( -1 ) with:

SysRefresh()
hb_gcAll()

... filesize(cFile)>200000,15, iif(filesize(cFile)>150000, 20, 25 ))

if filesize(cFile) >= 32768 // 65536

oImage := GdiBmp():New( cFile )
oImage:Resize( oImage:GetWidth()/1.3, oImage:GetHeight()/1.3 )
oImage:Save( cNewFile )
oImage:End()

aImg := Fw_ReadImage( nil, cFile )
FW_SaveImage( aImg[ 1 ...

... oGemini:getValue() ) + "')",;
cAnswer := StrTran( cAnswer, Chr( 10 ), "" ),;
oWebView:Eval( cAnswer ) }

ACTIVATE WINDOW oWnd CENTER ;
ON RESIZE oWebView:SetSize( nWidth, nHeight )

oGemini:End()

return nil


Me arroja los siguientes errores, que estoy haciendo mal ?

Un saludo y mil ...

... cAnswer | oGemini:Send( aInfo[ 1 ] ),;
cAnswer := "sendResponse('" + hb_Utf8ToStr( oGemini:getValue() ) + "')",;
cAnswer := StrTran( cAnswer, Chr( 10 ), "" ),;
oWebView:Eval( cAnswer ) }

ACTIVATE WINDOW oWnd CENTER ;
ON RESIZE oWebView:SetSize( nWidth, nHeight )

oGemini:End()

return nil

Me pasaba lo mismo.
Le quité la clausula ON RESIZE y ya no se sale del sistema.