Desisto/cansei do MinGW

[Sommus]

Prezados,
Depois de insistir por alguns meses com o MinGW, venho aqui para pedir aos desenvolvedores de Xailer que não deixem de dar a opção de compilar com o BCC, pois com o MinGW, não funciona, dá erro GPF constantemente. Portanto, continuarei com o BCC...
Obrigado pela atenção,
Reginaldo

[jfgimenez]

Reginaldo,
> Depois de insistir por alguns meses com o MinGW, venho aqui
> para pedir aos desenvolvedores de Xailer que não deixem de
> dar a opção de compilar com o BCC, pois com o MinGW, não
> funciona, dá erro GPF constantemente. Portanto, continuarei
> com o BCC...
Si los problemas los tienes solamente con MinGW, y con Harbour+BCC
puedes compilar bien, entonces significa que tienes módulos en C que
contienen errores, y aunque te estén funcionando en BCC, los errores
están ahí­, y tarde o temprano te va a fallar también con BCC. Lo que
tienes que hacer es corregirlos.
Te recuerdo, como he dicho muchas veces, que MinGW es mucho más
restrictivo que BCC. Es posible escribir código erroneo que BCC se
traga, mientras que MinGW no. Por otro lado, MinGW además de compilar,
optimiza el código, por lo que hace aflorar los problemas del código que
no está bien. Pero cuando el código es correcto, MinGW funciona mucho mejor.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Sommus]

Caro José,
Tenho o problema de erro GPF até em projetos onde não tenho nenhum código C escrito por mim...

[jrcpoli-quitar_1]

Saludos:
Un pequeño proyecto que mostrara la parte de código o parte del
programa que produce el GPF serí­a bueno que mostraras, yo tengo unos 10
programas entre pequeños y grandes pasados a MinGW y no he tenido ningún
problema en pasarlo de BCC, por supuesto en algunos he tenido que
cambiar la secuencia de desarrollo que tení­a porque verdaderamente no
era lógica, y funcionaba con BCC y me daba un GPF con MinGW.
El 21/11/2013 11:06, Sommus - Reginaldo escribió:
> Caro JosíƒÂ©,
>
> Tenho o problema de erro GPF atíƒÂ© em projetos onde níƒÂ£o
> tenho nenhum cíƒÂ³digo C escrito por mim...
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus está activa.
http://www.avast.com

[Sommus]

O maior problema é que funciona bem num computador com windows 7 e não
funciona em outro com o mesmo windows 7.... Então não consigo mostrar um
exemplo do erro.... A mesma aplicação, funciona em um ambiente e em outro
não...
"José Ramón Castro Polinio" escreveu na notí­cia da
mensagem:528e0555$[email=2@svctag-j7w3v3j....]2@svctag-j7w3v3j....[/email]
Saludos:
Un pequeño proyecto que mostrara la parte de código o parte del
programa que produce el GPF serí­a bueno que mostraras, yo tengo unos 10
programas entre pequeños y grandes pasados a MinGW y no he tenido ningún
problema en pasarlo de BCC, por supuesto en algunos he tenido que
cambiar la secuencia de desarrollo que tení­a porque verdaderamente no
era lógica, y funcionaba con BCC y me daba un GPF con MinGW.
El 21/11/2013 11:06, Sommus - Reginaldo escribió:
> Caro JosíƒÂ©,
>
> Tenho o problema de erro GPF atíƒÂ© em projetos onde níƒÂ£o
> tenho nenhum cíƒÂ³digo C escrito por mim...
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast!
Antivirus está activa.
http://www.avast.com

[Cassiano de Oliveira]

Mas Reginaldo então aparentemente não seria a aplicação gerada no Xailer e
mais algo a ní­vel de ambiente, vc não acha?
[]´s
Cassiano
"Sommus - Reginaldo" wrote in message news:528e1339$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
O maior problema é que funciona bem num computador com windows 7 e não
funciona em outro com o mesmo windows 7.... Então não consigo mostrar um
exemplo do erro.... A mesma aplicação, funciona em um ambiente e em outro
não...
"José Ramón Castro Polinio" escreveu na notí­cia da
mensagem:528e0555$[email=2@svctag-j7w3v3j....]2@svctag-j7w3v3j....[/email]
Saludos:
Un pequeño proyecto que mostrara la parte de código o parte del
programa que produce el GPF serí­a bueno que mostraras, yo tengo unos 10
programas entre pequeños y grandes pasados a MinGW y no he tenido ningún
problema en pasarlo de BCC, por supuesto en algunos he tenido que
cambiar la secuencia de desarrollo que tení­a porque verdaderamente no
era lógica, y funcionaba con BCC y me daba un GPF con MinGW.
El 21/11/2013 11:06, Sommus - Reginaldo escribió:
> Caro JosíƒÂ©,
>
> Tenho o problema de erro GPF atíƒÂ© em projetos onde níƒÂ£o
> tenho nenhum cíƒÂ³digo C escrito por mim...
--
José R.Castro
---
Este mensaje no contiene virus ni malware porque la protección de avast!
Antivirus está activa.
http://www.avast.com

[Bingen Ugaldebere]

Todas nuestras aplicaciones grandes o pequeñas funcionan perfectamente
con MinGW.
Tuvimos algún GPF al cambia de xHb a Hb pero era código incorrecto que
reescribimos y listo.
Salu2.

[XeviCOMAS]

Todas las aplicaciones que tengo corren perfectamente en MinGW... por decir
que ya no mantengo ni genero ninguna aplicación Xailer que no sea en MinGW.
Como todo, cuesta al principio, pero todo tiene una recompensa finalmente.
Un Saludo,
Xevi.
"Sommus - Reginaldo" ha escrit al missatge:528d2ad2$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Prezados,
Depois de insistir por alguns meses com o MinGW, venho aqui
para pedir aos desenvolvedores de Xailer que não deixem de
dar a opção de compilar com o BCC, pois com o MinGW, não
funciona, dá erro GPF constantemente. Portanto, continuarei
com o BCC...
Obrigado pela atenção,
Reginaldo

[jfgimenez]

Reginaldo,
> O maior problema é que funciona bem num computador com windows 7 e não
> funciona em outro com o mesmo windows 7.... Então não consigo mostrar
> um exemplo do erro.... A mesma aplicação, funciona em um ambiente e em
> outro não...
intenta averiguar qué produce el GPF (una DLL ajena, un OCX, alguna
rutina especial,...). Es necesario concretar más para poder solucionarlo.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[emeasoft]

Hello José,
Is there any other thing that may cause the GPFs?
TIA,
Juliano

[jfgimenez]

Juliano,
> Is there any other thing that may cause the GPFs?
Well, anything could produce a GPF, but what I said are the most
probable things. The most important when searching the cause of a GPF is
to fix what was you doing and what routines were involved there. Then,
suspect on those routines that were written in C or that were not part
of your program (an OCX, DLL, ...) and try to repeat everything avoiding
calling them. In next steps, try to run your program splitting it into
parts, each one calling one of the suspected routines. Also, putting
lots of LogDebug(), or OutputDebugString(), in your code can help here
to find the offending code.
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info

[emeasoft]

Hello José and thanks for the help!
The problem to detect this gpf is that it occurs most on our clients and it is not a fixed routine...
The routines in C that we have is the webcam capture and a the blockinput.
OCX we have the outsideX (PDF reader) and the microsoft webbrowser.
It is very difficult to detect what is causing the problems...

[jfgimenez]

Juliano,
> Hello José and thanks for the help!
>
> The problem to detect this gpf is that it occurs most on our
> clients and it is not a fixed routine...
>
> The routines in C that we have is the webcam capture and a
> the blockinput.
>
> OCX we have the outsideX (PDF reader) and the microsoft
> webbrowser.
>
> It is very difficult to detect what is causing the
> problems...
Yes, I'm aware that sometimes it's difficult to fix a GPF, but there is
no "magic" wand. First all, ask to your client to send you the dialog
showing the GPF. You also may use LogFile() (since LogDebug() is not
useful there) from every routine in order to get a record log which
could help to find the problem.
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info

[Ingo JH]

Juliano,
we had the same problems with MinGW. Therefore we went back to BCC.
Does the GPF occur if you're using Harbour and BCC?
Regards
Ingo
"www[dot]eMeAsOfT[dot]com" <mario[at]emeasoft[dot]com[dot]br> schrieb im
Newsbeitrag news:52948cc7$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hello José and thanks for the help!
>
> The problem to detect this gpf is that it occurs most on our
> clients and it is not a fixed routine...
>
> The routines in C that we have is the webcam capture and a
> the blockinput.
>
> OCX we have the outsideX (PDF reader) and the microsoft
> webbrowser.
>
> It is very difficult to detect what is causing the
> problems...
>
> --
> http://www.eMeAsOfT.com
> http://emeasoft.blogspot.com/
> http://twitter.com/emeasoft
> http://www.facebook.com/emeasoft
> https://plus.google.com/102999253031532804222
> http://g.co/maps/26gey
>

[jfgimenez]

Hi Ingo,
> we had the same problems with MinGW. Therefore we went back to BCC.
Have you tried using Xailer 3.2 + Harbour + MinGW 4.8.1? If not, please,
test it and tell us if your problem is solved.
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info

[Ingo JH]

Jose,
I didn't try it again with MinGW 4.8.1.
Now I will do it and then post the result.
Regards
Ingo
"Jose F. Gimenez" <jfgimenezAM]"@wanadoo.es> schrieb im Newsbeitrag
news:5295b53d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hi Ingo,
>
>> we had the same problems with MinGW. Therefore we went back to BCC.
>
> Have you tried using Xailer 3.2 + Harbour + MinGW 4.8.1? If not, please,
> test it and tell us if your problem is solved.
>
>
> Regards,
>
> Jose F. Gimenez
> http://www.xailer.com
> http://www.xailer.info

[Ingo JH]

<Libraries>
<Library Filename="[harbour]hbmisc"/>
<Library Filename="[harbour]hbct"/>
<Library Filename="[xailer]xailer" First="Y"/>
<Library Filename="[xailer]xailertcls"/>
<Library Filename="[xailer]samples"/>
<Library Filename="[xailer]sqlite" Link="N"/>
<Library Filename="[xailer]mariadb" Link="N"/>
<Library Filename="[xailer]mysql" Link="N"/>
<Library Filename="[xailer]xailer.res"/>
<Library Filename="[xailer]xailermsg.res"/>
<Library Filename="[harbour]hbextern"/>
<Library Filename="[harbour]hbdebug"/>
<Library Filename="[harbour]hbvm"/>
<Library Filename="[harbour]hbvmmt" Link="N"/>
<Library Filename="[harbour]hbrtl"/>
<Library Filename="[harbour]hblang"/>
<Library Filename="[harbour]hbcpage"/>
<Library Filename="[harbour]hbuddall"/>
<Library Filename="[harbour]hbrdd"/>
<Library Filename="[harbour]hbusrrdd"/>
<Library Filename="[harbour]rddntx"/>
<Library Filename="[harbour]rddcdx"/>
<Library Filename="[harbour]rddnsx"/>
<Library Filename="[harbour]rddfpt"/>
<Library Filename="[harbour]rddads" Link="N"/>
<Library Filename="[harbour]ace32" Link="N"/>
<Library Filename="[harbour]hbhsx"/>
<Library Filename="[harbour]hbsix"/>
<Library Filename="[harbour]hbmacro"/>
<Library Filename="[harbour]hbcplr"/>
<Library Filename="[harbour]hbpp"/>
<Library Filename="[harbour]hbcommon"/>
<Library Filename="[harbour]hbtip"/>
<Library Filename="[harbour]hbmxml"/>
<Library Filename="[harbour]mxml"/>
<Library Filename="[harbour]hbpcre"/>
<Library Filename="[harbour]hbwin"/>
<Library Filename="[harbour]hbmzip"/>
<Library Filename="[harbour]minizip"/>
<Library Filename="[harbour]hbzlib"/>
<Library Filename="[harbour]xharbour"/>
<Library Filename="[mingw]crt2.o"/>
<Library Filename="[mingw]gccmingw324.8.1crtbegin.o"/>
<Library Filename="[mingw]mingw32"/>
<Library Filename="[mingw]gccmingw324.8.1gcc"/>
<Library Filename="[mingw]moldname"/>
<Library Filename="[mingw]mingwex"/>
<Library Filename="[mingw]msvcrt"/>
<Library Filename="[mingw]kernel32"/>
<Library Filename="[mingw]user32"/>
<Library Filename="[mingw]gdi32"/>
<Library Filename="[mingw]advapi32"/>
<Library Filename="[mingw]ws2_32"/>
<Library Filename="[mingw]winspool"/>
<Library Filename="[mingw]comctl32"/>
<Library Filename="[mingw]comdlg32"/>
<Library Filename="[mingw]shell32"/>
<Library Filename="[mingw]uuid"/>
<Library Filename="[mingw]ole32"/>
<Library Filename="[mingw]oleaut32"/>
<Library Filename="[mingw]oledlg"/>
<Library Filename="[mingw]mpr"/>
<Library Filename="[mingw]winmm"/>
<Library Filename="[mingw]mapi32"/>
<Library Filename="[mingw]imm32"/>
<Library Filename="[mingw]msimg32"/>
<Library Filename="[mingw]odbc32"/>
<Library Filename="[mingw]wininet"/>
<Library Filename="[mingw]version"/>
<Library Filename="[mingw]setupapi"/>
</Libraries>
--

[Bingen Ugaldebere]

Hi Ingo
We use
Versión Xailer: Xailer 3.2.0
Compilador: Harbour 3.2.0dev (r1310281618)
Compilador C/C++: MinGW GNU C 4.8.1 (32-bit)
Plataforma: Windows 7 6.1.7601 Service Pack 1
And TwainControlX.ocx Version 3.0.0.13 works correctly without GPF
Can you test if you have the lastest version of TwainControlX.ocx
that works with TWAINDSM.dll in System32
Regards.
El 27/11/2013 12:01, Ingo escribió:
> Jose,
> I linked the project now with X3.2 + Harbour + MinGW 4.8.1.
> The GPF occurs running the TwainControlX.ocx as before.
> The libraries I linked see in the attached textfile project.libs.txt.
> Are they correct?
> BTW do you know where these messages are comming from since X3.02?
> #1: Application "??C:WINDOWSTwain_32CNQ2411CISDS.DS" found in cache
> #2: Application "??C:WINDOWSTwain_32wiatwain.ds" found in cache
> #3: Application "??C:WINDOWSsplwow64.exe" found in cache
> Best regards
> Ingo
> "Ingo" <support@mandantwin.com <mailto:support@mandantwin.com>> schrieb
> im Newsbeitrag news:5295c3f9$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> > Jose,
> >
> > I didn't try it again with MinGW 4.8.1.
> >
> > Now I will do it and then post the result.
> >
> > Regards
> >
> > Ingo
> >
> > "Jose F. Gimenez" <jfgimenezAM]"@wanadoo.es
> <mailto:jfgimenezAM]"@wanadoo.es>> schrieb im Newsbeitrag
> > news:5295b53d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> >> Hi Ingo,
> >>
> >>> we had the same problems with MinGW. Therefore we went back to BCC.
> >>
> >> Have you tried using Xailer 3.2 + Harbour + MinGW 4.8.1? If not,
> please,
> >> test it and tell us if your problem is solved.
> >>
> >>
> >> Regards,
> >>
> >> Jose F. Gimenez
> >> http://www.xailer.com
> >> http://www.xailer.info
> >

[Cassiano de Oliveira]

Hi, I imagine TwainControlX.ocx is used with WebCam, if that I need this
too, could someone provide me the files and example?
Thank you.
Cassiano.
"Bingen Ugaldebere" wrote in message news:52961571$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Hi Ingo
We use
Versión Xailer: Xailer 3.2.0
Compilador: Harbour 3.2.0dev (r1310281618)
Compilador C/C++: MinGW GNU C 4.8.1 (32-bit)
Plataforma: Windows 7 6.1.7601 Service Pack 1
And TwainControlX.ocx Version 3.0.0.13 works correctly without GPF
Can you test if you have the lastest version of TwainControlX.ocx
that works with TWAINDSM.dll in System32
Regards.
El 27/11/2013 12:01, Ingo escribió:
> Jose,
> I linked the project now with X3.2 + Harbour + MinGW 4.8.1.
> The GPF occurs running the TwainControlX.ocx as before.
> The libraries I linked see in the attached textfile project.libs.txt.
> Are they correct?
> BTW do you know where these messages are comming from since X3.02?
> #1: Application "??C:WINDOWSTwain_32CNQ2411CISDS.DS" found in cache
> #2: Application "??C:WINDOWSTwain_32wiatwain.ds" found in cache
> #3: Application "??C:WINDOWSsplwow64.exe" found in cache
> Best regards
> Ingo
> "Ingo" <support@mandantwin.com <mailto:support@mandantwin.com>> schrieb
> im Newsbeitrag news:5295c3f9$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> > Jose,
> >
> > I didn't try it again with MinGW 4.8.1.
> >
> > Now I will do it and then post the result.
> >
> > Regards
> >
> > Ingo
> >
> > "Jose F. Gimenez" <jfgimenezAM]"@wanadoo.es
> <mailto:jfgimenezAM]"@wanadoo.es>> schrieb im Newsbeitrag
> > news:5295b53d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> >> Hi Ingo,
> >>
> >>> we had the same problems with MinGW. Therefore we went back to BCC.
> >>
> >> Have you tried using Xailer 3.2 + Harbour + MinGW 4.8.1? If not,
> please,
> >> test it and tell us if your problem is solved.
> >>
> >>
> >> Regards,
> >>
> >> Jose F. Gimenez
> >> http://www.xailer.com
> >> http://www.xailer.info
> >

[Ingo JH]

Hi Bingen,
thank you for your answer.
In fact we have the TwainControlX version 3.1.0.0 too, but our customers are
still using
the older version 2.4.0.30 we shipped 6 years ago. An old saw says "Never
change a running system"
This old version was running with xHarbour + BCC very well and now it is
running with Harbour + BCC too.
But only with Harbour + MinGW it doesn't work.
We had tested the new TwainControlX.ocx in May on a Windows 8/64 and a
Windows 7/32 machine . The GPF didn't occured but the "acquire" method was
hanging-up. Therefore we stopped the tests.
Regards
Ingo
"Bingen Ugaldebere" <bingen@bisoft.es> schrieb im Newsbeitrag
news:52961571$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hi Ingo
>
> We use
>
> Versión Xailer: Xailer 3.2.0
> Compilador: Harbour 3.2.0dev (r1310281618)
> Compilador C/C++: MinGW GNU C 4.8.1 (32-bit)
> Plataforma: Windows 7 6.1.7601 Service Pack 1
>
> And TwainControlX.ocx Version 3.0.0.13 works correctly without GPF
>
> Can you test if you have the lastest version of TwainControlX.ocx
> that works with TWAINDSM.dll in System32
>
> Regards.
>
>
> El 27/11/2013 12:01, Ingo escribió:
>> Jose,
>> I linked the project now with X3.2 + Harbour + MinGW 4.8.1.
>> The GPF occurs running the TwainControlX.ocx as before.
>> The libraries I linked see in the attached textfile project.libs.txt.
>> Are they correct?
>> BTW do you know where these messages are comming from since X3.02?
>> #1: Application "??C:WINDOWSTwain_32CNQ2411CISDS.DS" found in cache
>> #2: Application "??C:WINDOWSTwain_32wiatwain.ds" found in cache
>> #3: Application "??C:WINDOWSsplwow64.exe" found in cache
>> Best regards
>> Ingo
>> "Ingo" <support@mandantwin.com <mailto:support@mandantwin.com>> schrieb
>> im Newsbeitrag news:5295c3f9$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> > Jose,
>> >
>> > I didn't try it again with MinGW 4.8.1.
>> >
>> > Now I will do it and then post the result.
>> >
>> > Regards
>> >
>> > Ingo
>> >
>> > "Jose F. Gimenez" <jfgimenezAM]"@wanadoo.es
>> <mailto:jfgimenezAM]"@wanadoo.es>> schrieb im Newsbeitrag
>> > news:5295b53d$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> >> Hi Ingo,
>> >>
>> >>> we had the same problems with MinGW. Therefore we went back to BCC.
>> >>
>> >> Have you tried using Xailer 3.2 + Harbour + MinGW 4.8.1? If not,
>> please,
>> >> test it and tell us if your problem is solved.
>> >>
>> >>
>> >> Regards,
>> >>
>> >> Jose F. Gimenez
>> >> http://www.xailer.com
>> >> http://www.xailer.info
>> >

[Bingen Ugaldebere]

Not work fine with webacm.
Sorry.

[Bingen Ugaldebere]

METHOD CreateForm( lCreate ) CLASS TScanner
IF lCreate
::SetBounds( 758, 239, 527, 511 )
::SetClientSize( 511, 473 )
::cText := "Escaner de documentos"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::nBorderStyle := bsDIALOG
::lCentered := .T.
::OnShow := "FormShow"
::OnClose := "FormClose"
::OnInitialize := "FormInitialize"
::Create()
ENDIF
::Super:CreateForm( .F. )
WITH OBJECT ::oFileSaveDlg1 := TFileSaveDlg():New( Self )
:cTitle := "Guardar imagen como..."
:cInitialDir := e"."
:cFilter := "Imagen JPG/JPEG|*.Jpg|Imagen BMP|*.Bmp|Imagen PNG|*.Png"
:lNoChangeDir := .F.
:lCenter := .T.
:Create()
END
WITH OBJECT ::oFileSaveDlg2 := TFileSaveDlg():New( Self )
:cTitle := "Guardar conjunto de imágenes como documento PDF"
:cInitialDir := e"."
:cFilter := "Documento Acrobat Reader PDF|*.Pdf"
:lNoChangeDir := .F.
:lCenter := .T.
:Create()
END
WITH OBJECT ::oBevel := TBevel():New( Self )
:SetBounds( 341, 0, 170, 473 )
:nAlign := alRIGHT
:lTransparent := .T.
:nBorderStyle := bvNONE
:Create()
END
WITH OBJECT ::oBtnSelectDevice := TBtnBmp():New( ::oBevel )
:SetBounds( 10, 12, 150, 25 )
:cText := "Seleccionar dispositivo"
:oBitmaps := "Seleccion"
:OnClick := "BtnSelectDeviceClick"
:Create()
END
WITH OBJECT ::oOwnerInterface := TCheckbox():New( ::oBevel )
:SetBounds( 14, 72, 154, 18 )
:cText := "Usar opciones del fabricante"
:OnChange := "OwnerInterfaceChange"
:Create()
END
WITH OBJECT ::oBtnPreview := TBtnBmp():New( ::oBevel )
:SetBounds( 10, 120, 150, 25 )
:cText := "Previsualizar"
:oBitmaps := "Lupa"
:OnClick := "BtnPreviewClick"
:Create()
END
WITH OBJECT ::oLabel := TLabel():New( ::oBevel )
:SetBounds( 10, 40, 150, 30 )
:cText := "Buscando scanner......."
:nAlignment := taCENTER
:nVAlignment := vaCENTER
:lAutoSize := .F.
:lMultiLine := .T.
:Create()
END
WITH OBJECT ::oBtnScan := TBtnBmp():New( ::oBevel )
:SetBounds( 10, 332, 150, 25 )
:cText := "Escanear"
:oBitmaps := "Escaner"
:OnClick := "BtnScanClick"
:Create()
END
WITH OBJECT ::oGroupBox1 := TGroupBox():New( ::oBevel )
:SetBounds( 10, 160, 151, 142 )
:cText := "Opciones del escaner"
:Create()
END
WITH OBJECT ::oAdf := TCheckbox():New( ::oGroupBox1 )
:SetBounds( 8, 20, 142, 18 )
:cText := "Usar alimentador de hojas"
:lEnabled := .F.
:OnChange := "AdfChange"
:Create()
END
WITH OBJECT ::oDual := TCheckbox():New( ::oGroupBox1 )
:SetBounds( 8, 44, 138, 18 )
:cText := "Escaner a doble cara"
:lEnabled := .F.
:OnChange := "DualChange"
:Create()
END
WITH OBJECT ::oNoBlank := TCheckbox():New( ::oGroupBox1 )
:SetBounds( 8, 68, 138, 18 )
:cText := "Evitar páginas en blanco"
:lEnabled := .F.
:OnChange := "NoBlank"
:Create()
END
WITH OBJECT ::oLabelBuddy1 := TLabelBuddy():New( ::oGroupBox1 )
:SetBounds( 24, 92, 99, 14 )
:cText := "Calidad de la imagen"
:nBuddyOffset := 100
:Create()
END
WITH OBJECT ::oCalidad := TCombobox():New( ::oGroupBox1 )
:SetBounds( 24, 108, 102, 21 )
:cText := "Blanco y negro"
:aItems := { "Blanco y negro", "Escala de grises", "Color" }
:nIndex := 1
:Create()
END
WITH OBJECT ::oBtnSalir := TBtnBmp():New( ::oBevel )
:SetBounds( 10, 396, 150, 25 )
:cText := "Guardar y Salir"
:lEnabled := .F.
:nModalResult := mrOK
:oBitmaps := "Guardar"
:OnClick := "BtnSalirClick"
:Create()
END
WITH OBJECT ::oImagen := TImage():New( Self )
:SetBounds( 0, 0, 341, 473 )
:nAlign := alCLIENT
:nBorderStyle := bvBUMP
:lAutoScroll := .F.
:lAutoFit := .T.
:OnLButtonDown := "ImagenLButtonDown"
:OnMouseMove := "ImagenMouseMove"
:Create()
END
RETURN Self

[Ingo JH]

Dear Bingen,
thank you for the code. I will try it now.
Best regards
Ingo
"Bingen Ugaldebere" <bingen@bisoft.es> schrieb im Newsbeitrag
news:52984de4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Can I Help you with this code ?
>
> Regards.
>

[Cassiano de Oliveira]

Thanks Bingen...
I Solved with this code below and add VFW32.a from MINGW.
/* Esta função captura imagem tanto de webcam como de scanner.
O driver do dispositivo de captura necessita estar devidamente instalado
no computador.
A dll eztw32 necessita estar no diretório da aplicação ou na pasta
system32 do windows.
*/
::dCapture := TCapture():New( ::oBevel1 )
IF ::dCapture:Conect()
::dCapture:PreviewRate( 15 )
::dCapture:PreViewScale( .T. )
::dCapture:Preview(.T.)
ELSE
MsgInfo("Cí¢mera desconectada !")
ENDIF
#include "Xailer.ch"
//---------------------------------------------------------- --------------------
/**
Clase de captura de imágenes através de WebCam
Original de Rafa Carmona THE FULL
con la colaboración de José Lalí­n
Modificaciones de Pablo Herranz y Bingen Ugaldebere
**/
//---------------------------------------------------------- --------------------
CLASS TCapture FROM TControl
DATA oWnd, hWndC
DATA nIndex INIT 0 // By Default index first found METHOD
New() CONSTRUCTOR
METHOD New() CONSTRUCTOR
METHOD Conect() INLINE ConectDriver( ::hWndC,
::nIndex )
METHOD End() INLINE DisConectDriver( ::hWndC )
*METHOD StartCapture() INLINE Capture( ::hWndC )
*METHOD StopCapture() INLINE CaptureStop( ::hWndC )
METHOD Preview( lPreview ) INLINE CapPreview( ::hWndC, lPreview )
METHOD PreviewRate( nRate ) INLINE CapPreviewRate( ::hWndC, nRate )
METHOD PreViewScale( lScale ) INLINE CapPreviewScale(
::hWndC,lScale )
METHOD CreateWndCapture()
*METHOD FileSaveAs( cFileName ) INLINE CapFileSaveAs( ::hWndC,
cFilename )
METHOD SaveFoto( cFile ) INLINE capFileSaveDIB(::hWndC, cFile)
*METHOD SetFile( cFile ) INLINE CapFileSetCaptureFile( ::hWndC,
cFile )
*METHOD SetupCapture() INLINE CapCaptureSetSetup( ::hWndC )
METHOD SetupVideo() INLINE SetupVideo( ::hWndC )
*METHOD Overlay( lMode ) INLINE CapOverlay( ::hWndC, lMode )
*METHOD FramesPerSec( nFrames ) INLINE CapFramesPerSec( ::hWndC,
nFrames )
*METHOD VideoCompression() INLINE CapDlgVideoCompression(
::hWndC )
*METHOD ListDrivers()
*METHOD EnumDrivers()
END CLASS
//---------------------------------------------------------- --------------------
METHOD New( oCtrl ) CLASS TCapture
::oWnd := oCtrl
*IF ::EnumDrivers() > 0
IF Len( CapGetDrivers() ) > 0
::CreateWndCapture()
ELSE
Application:lBusy:=.F.
// CMmsg(300,230, "O", "*", 1, "",.T.,{"Não encontrado o driver da
cí¢mera !","R"})
MsgAlert("Não encontrado o driver da cí¢mera !","R")
ENDIF
RETURN Self
//---------------------------------------------------------- --------------------
*METHOD EnumDrivers() CLASS TCapture
*Return( Len( CapGetDrivers() ) )
//---------------------------------------------------------- --------------------
*METHOD ListDrivers() CLASS TCapture
*Return CapGetDrivers()
//---------------------------------------------------------- --------------------
METHOD CreateWndCapture() CLASS TCapture
::hWndC := CaptureWin( "", nOR( WS_CHILD, WS_VISIBLE ),;
::oWnd:nClientLeft, ::oWnd:nClientTop,;
::oWnd:nClientWidth, ::oWnd:nClientHeight,;
::oWnd:handle, 0 )
RETURN NIL
//---------------------------------------------------------- --------------------
#pragma BEGINDUMP
#include "Windows.h"
#include "Xailer.h"
#include "vfw.h"
#include "hbapi.h"
HB_FUNC( CAPTUREWIN )
{
HWND hVentana = capCreateCaptureWindow( hb_parc( 1 ), (DWORD) hb_parnl(
2 ),
hb_parni( 3 ) ,hb_parni( 4 ),hb_parni(
5 ),hb_parni( 6 ),
(HWND) hb_parnl( 7 ), hb_parni(8) ) ;
hb_retnl( (LONG) hVentana ) ;
}
//HWND VFWAPI capCreateCaptureWindow( LPCTSTR lpszWindowName, DWORD
dwStyle, int x, int y, int nWidth, int nHeight, HWND hWnd, int
nID );
HB_FUNC( CONECTDRIVER )
{ hb_retl( SendMessage ( (HWND) hb_parnl( 1 ), WM_CAP_DRIVER_CONNECT,
hb_parni(2) , 0L) ); }
// hb_retl( capDriverConnect( (HWND) hb_parnl( 1 ), hb_parni(2) ) );
HB_FUNC( DISCONECTDRIVER )
{ hb_retl( capDriverDisconnect( (HWND) hb_parnl( 1 ) )); }
HB_FUNC( CAPPREVIEW )
{ hb_retl( capPreview( (HWND) hb_parnl( 1 ), hb_parl( 2 ) )); }
HB_FUNC( CAPPREVIEWSCALE )
{ hb_retl( capPreviewScale( (HWND) hb_parnl( 1 ), hb_parl( 2 ) )); }
HB_FUNC( CAPPREVIEWRATE )
{ hb_retl( capPreviewRate( (HWND) hb_parnl( 1 ), hb_parni( 2 ) )); }
HB_FUNC( CAPDLGVIDEODISPLAY )
{ hb_retl( capDlgVideoDisplay( (HWND) hb_parnl( 1 ) ) ); }
HB_FUNC( SETUPVIDEO )
{
CAPDRIVERCAPS CapDriverCaps;
CAPSTATUS CapStatus;
capDriverGetCaps( (HWND) hb_parnl( 1 ), &CapDriverCaps, sizeof
(CAPDRIVERCAPS));
// Video source dialog box.
if (CapDriverCaps.fHasDlgVideoSource)
capDlgVideoSource( (HWND) hb_parnl( 1 ) );
// Video format dialog box.
if (CapDriverCaps.fHasDlgVideoFormat)
{
capDlgVideoFormat( (HWND) hb_parnl( 1 ) );
// Are there new image dimensions?
capGetStatus( (HWND) hb_parnl( 1 ), &CapStatus, sizeof (CAPSTATUS));
// New Dimensions of Window
SetWindowPos( (HWND) hb_parnl( 1 ), NULL, 0, 0,
CapStatus.uiImageWidth, CapStatus.uiImageHeight, SWP_NOZORDER |
SWP_NOMOVE);
// If so, notify the parent of a size change.
}
// Video display dialog box.
if (CapDriverCaps.fHasDlgVideoDisplay)
capDlgVideoDisplay( (HWND) hb_parnl( 1 ) );
}
HB_FUNC( CAPGETDRIVERS )
{
char szDeviceName[80];
char szDeviceVersion[80];
int wIndex;
// Maximos dispositivos a tratar. Del 0...9
hb_reta(10);
for (wIndex = 0; wIndex < 10; wIndex++)
{
if ((HWND)capGetDriverDescription(wIndex, szDeviceName, sizeof
(szDeviceName), szDeviceVersion, sizeof (szDeviceVersion)))
{
// Append name to list of installed capture drivers
// and then let the user select a driver to use.
//MessageBox( GetActiveWindow(), szDeviceName, szDeviceVersion,
MB_SYSTEMMODAL );
//hb_storc( szDeviceName , -1, ( wIndex + 1 ) ); xHB
hb_storc( szDeviceName, ( wIndex + 1 ) );
}
}
}
HB_FUNC( CAPFILESAVEDIB )
{ hb_retl( capFileSaveDIB( (HWND) hb_parnl( 1 ), hb_parc(2) ) ); }
#PRAGMA ENDDUMP
"Ingo" wrote in message news:[email=52986761@svctag-j7w3v3j....]52986761@svctag-j7w3v3j....[/email]
Dear Bingen,
thank you for the code. I will try it now.
Best regards
Ingo
"Bingen Ugaldebere" <bingen@bisoft.es> schrieb im Newsbeitrag
news:52984de4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Can I Help you with this code ?
>
> Regards.
>

[Ingo JH]

Dear Bingen,
sorry your code doesn't run without GPF. Only the GPF-code is now
"c000001d".
With BCC your code is running - with some changes - perfectly.
Nevertheless thanks again.
Best Regards
Ingo
"Bingen Ugaldebere" <bingen@bisoft.es> schrieb im Newsbeitrag
news:52984de4$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Can I Help you with this code ?
>
> Regards.
>