HMGforum.com

HMG 64 Bits :: HMG3.6 and MySQL :: Author serge_girard

2025-02-14T13:03:59+00:00

Some strange behaviour I found...

I have a sql-field defined as CHAR(1) in my table.

When selecting it like this:

 ? 'aCurRow1:fieldGet(9)',  aCurRow1:fieldGet(9), len(aCurRow1:fieldGet(9))
 ? 'trim aCurRow1:fieldGet(9)', alltrim(aCurRow1:fieldGet(9)), len(aCurRow1:fieldGet(9))

It should always give a CHAR(1) and LEN=1 as result but first result is LEN=4

Any idea somebody?

Serge

HMG 64 Bits :: Re: HMG3.6 and MySQL :: Reply by edk

2025-02-14T20:21:41+00:00

Hi. What you get with hb_ulen(aCurRow1:fieldGet(9)) and hb_utf8len(aCurRow1:fieldGet(9)) ?

HMG 64 Bits :: Re: HMG3.6 and MySQL :: Reply by serge_girard

2025-02-15T08:22:10+00:00

Hi Edward,

Both suggestions give also LEN=4 !
Field with char(50) gives len=200.
latin1_swedish_ci

Serge

HMG 64 Bits :: Re: HMG3.6 and MySQL :: Reply by serge_girard

2025-02-15T09:07:45+00:00

It looks like all fields len * 4...

HMG 64 Bits :: Re: HMG3.6 and MySQL :: Reply by edk

2025-02-15T13:24:33+00:00

Try the test with a different libmysql.dll library

HMG 64 Bits :: Re: HMG3.6 and MySQL :: Reply by serge_girard

2025-02-15T16:40:03+00:00

Thx, I try tomorrow!

HMG 64 Bits :: Re: HMG3.6 and MySQL :: Reply by serge_girard

2025-02-16T13:38:43+00:00

Edward,

Is it possible to retrieve version number libmysql.dll when running to program?

Serge

HMG 64 Bits :: Re: HMG3.6 and MySQL :: Reply by serge_girard

2025-02-17T10:34:43+00:00

Found out how to get file_info..
S

HMG General Help :: testing :: Author RPC

2025-01-20T10:25:10+00:00

testing

HMG General Help :: Re: testing :: Reply by serge_girard

2025-01-20T12:07:12+00:00

and?

HMG General Help :: Re: testing :: Reply by RPC

2025-01-20T15:01:37+00:00

I am unable to attach a program file along with message.
Are you also facing any difficulty

HMG General Help :: Re: testing :: Reply by serge_girard

2025-01-20T15:19:54+00:00

No, but I haven't try attachments!

HMG General Help :: Re: testing :: Reply by serge_girard

2025-01-20T19:44:40+00:00

test

Attachments

test.zip (0.29 KiB)

HMG General Help :: Re: testing :: Reply by mol

2025-01-20T19:45:36+00:00

I'm trying attachment too

Attachments

mollogo.zip (9.69 KiB)

HMG General Help :: Re: testing :: Reply by serge_girard

2025-01-20T20:13:29+00:00

no problem with upload nor download !

HMG General Help :: Re: testing :: Reply by Algernon

2025-01-21T09:27:02+00:00

Hello World

Attachments

Hello World.7z (0.15 KiB)

HMG General Help :: Re: testing :: Reply by mol

2025-01-21T14:11:44+00:00

I'm trying with Edge, newest version

Attachments

mollogo.zip (9.69 KiB)

HMG General Help :: Re: testing :: Reply by serge_girard

2025-01-21T15:52:30+00:00

ok, no problems!

HMG General Help :: Re: testing :: Reply by serge_girard

2025-01-21T15:52:48+00:00

RPC, now OK?

HMG General Help :: Re: testing :: Reply by RPC

2025-01-22T06:59:55+00:00

Yes now ok with Chrome.
Thanks.

HMG General Help :: Re: TLS 1.2 / TIPCLIENTHTTP:New() & httpS :: Reply by serge_girard

2025-01-20T12:19:32+00:00

Edward,

Is there also some libs for 64bits?

Serge

HMG General Help :: Re: TLS 1.2 / TIPCLIENTHTTP:New() & httpS :: Reply by edk

2025-01-21T20:41:26+00:00

Serge.
If you built hbssl using the instructions in this post https://hmgforum.com/viewtopic.php?p=71447#p71447 , you don't need any external SSL libraries. When building an application that uses hbssl, the necessary libraries will be included in the executable. See example in attachment.

hbtip64.zip

Attachments

hbtip64.zip (1.1 KiB)

HMG General Help :: Re: TLS 1.2 / TIPCLIENTHTTP:New() & httpS :: Reply by serge_girard

2025-01-22T14:20:49+00:00

Edward,

Somehow it always tries to find lssleay32 ..

Code: Select all

Harbour 3.2.0dev (r2304211101)
Copyright (c) 1999-2023, https://harbour.github.io/
P:/hmg.3.6/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/13.1.0/../../../../x86_64-w64-mingw32/bin/ld.exe: cannot find -lssleay32: No such file or directory
P:/hmg.3.6/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/13.1.0/../../../../x86_64-w64-mingw32/bin/ld.exe: cannot find -llibeay32: No such file or directory
collect2.exe: error: ld returned 1 exit status
hbmk2: Error: Running linker. 1
gcc.exe C:/Users/Serge/AppData/Local/Temp/hbmk_44snhb.dir/httspadv.o C:/Users/Serge/AppData/Local/Temp/hbmk_44snhb.dir/hbmk_2mq7xs.o P:/hmg.3.6/DB_GEN_NEW/_temp.o    -pthread  -static-libgcc  -static-libstdc++  -static -lpthread -mconsole -Wl,--start-group -l"hmg-64" -l"crypt-64" -l"edit-64" -l"editex-64" -l"graph-64" -l"ini-64" -l"report-64" -l"hfcl-64" -lmsvfw32 -lvfw32 -lhbmysql -llibmysql -l"hbvpdf-64" -lhbct -lhbwin -lhbmzip -lminizip -lhbmemio -lhbmisc -lhbtip -lsqlite3 -lhbsqlit3 -lsddodbc -lrddsql -lhbodbc -lodbc32 -lhbhpdf -lhbnetio -lxhb -lpng -llibhpdf -lhbzebra -lhbssl -lssleay32 -llibeay32 -lhbextern -lhbdebug -lhbvmmt -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmainstd -lwinmm -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -liphlpapi -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib   -Wl,--end-group -ohttps_adv_64.exe  -LP:/hmg.3.6/harbour64/lib/win/mingw64 -L"P:/hmg.3.6/lib-64"

I surely miss something...!

Serge

HMG General Help :: Re: TLS 1.2 / TIPCLIENTHTTP:New() & httpS :: Reply by edk

2025-01-22T16:14:18+00:00

Check what libraries you have set in config of your project. For the new hbssl 3.0 64-bit you should have
libs=hbssl
libs=libssl-3-x64
libs=libcrypto-3-x64
or there is something wrong with hbssl integration.

I'm uploading my hmg.3.6 integration with OpenSSL 3 and mySQL: https://www.easypaste.org/file/GDwo7dzk ... 7z?lang=en

HMG General Help :: Help needed Edward (edk) :: Author RPC

2025-01-21T07:03:03+00:00

Hi
I am trying to download stock quotes for S&P 500 stocks from marketwatch.com website.
However when I download them , I can download only first 190-200 stocks and then I receive garbage.
I am enclosing my program and its output.
Can you help me resolve this.
Thanks
Rajeev

Attachments

SP500Dnld.zip (10.59 KiB)

HMG General Help :: Re: Help needed Edward (edk) :: Reply by edk

2025-01-23T11:49:52+00:00

Unfortunately, but the marketwatch.com website has a bot protection.
If the website detects that you are downloading data in bulk and too fast, a captcha protection appears to confirm that you are a human. That is why you get garbage in response (html and js code trying to show a captcha image).

SP500-bot protect.jpg

Attachments

SP500-bot protect.jpg (209.49 KiB)

HMG General Help :: Re: Help needed Edward (edk) :: Reply by RPC

2025-01-23T17:30:30+00:00

Edward
Thanks for the reply,
1) I also thought anti-scraping measures are implemented by the website, Do we have to enter captcha during the process of download. I can do that .
2) I tried chatGPT to find a solution. It suggested rotating User-Agent, mimicking request coming from different browser.
Is there a way we can do it.
3) Alternatively, I found python can download from yahoo finance which also does not allow to download using anti-scraping mechanism. Can we integrate python code in our program.
Thanks.
Rajeev.

HMG General Help :: Re: Help needed Edward (edk) :: Reply by edk

2025-01-24T10:01:47+00:00

Ad.1 We cannot execute java scripts using the ServerXMLHTTP object. We would have to emulate the browser in some way, but I don't know how.
Ad.2 It seems to me that this would be sufficient if we wanted to download several dozen links, but not nearly 500 per day. In addition, it seems to me that web service checks the number of requests from the IP address, and this address does not change.
Ad.3 If the phyton code uses its own native libraries and/or classes, it may be difficult or impossible to convert it to harbour.

I'm sorry, but I can't help with this issue.

HMG General Help :: Re: Help needed Edward (edk) :: Reply by serge_girard

2025-01-24T16:33:15+00:00

data in bulk and too fast: maybe build a kind of pause/wait and let program run some hours..?

HMG General Help :: Re: Help needed Edward (edk) :: Reply by RPC

2025-01-24T18:23:32+00:00

Thanks Edward for providing satisfying answer to my problem.
Rajeev

HMG General Help :: Re: Help needed Edward (edk) :: Reply by RPC

2025-01-24T18:26:33+00:00

Serge, What you suggested was programmed by Edward in my another program.
There I had to wait only for a few seconds only. In marketwatch case wait may be for few hours so it is not practical.
Thanks for suggestion though.

HMG General Help :: Icon in RC file :: Author serge_girard

2025-02-02T13:17:09+00:00

Hello,

I have some strange behaviour. In my RC file I have this:

Code: Select all

FAVICON    ICON    OPTIOS.ICO

In my folder the ICON is from a previous project and I can't get the ICO right. When I make a copy the ICON is OK.
It's a small app to load data into database and there is no FORM.
In order to run I made a shortcut on my desktop. I attached manually the right ICON.

What is going on, someone has an idea or tip?

Serge

Attachments

opt.png (39.81 KiB)

HMG General Help :: Re: Icon in RC file :: Reply by Pcmodula

2025-02-04T08:51:39+00:00

Good morning Serge, your problem seems to be caused by the operating system, basically the icon cache goes crazy or is corrupted, in fact you just need to move the executable to another folder and magically the icon is correct.
On the Internet you can find some solutions but it is not always said that you can solve it with the simple cleaning of the cache.
Good luck!

PcModula.

HMG General Help :: Re: Icon in RC file :: Reply by serge_girard

2025-02-04T09:10:41+00:00

Thanks PcModula,

You may be right. This morning I cold-started my PC and the ICON now is correct!

Serge

HMG General Help :: XLS Saveas :: Author serge_girard

2025-02-11T19:23:00+00:00

Hello,

I create XLS and when the sheet is ready and shown this command will ask to save:

Code: Select all

oSheet1:SaveAs("C:\folder\file.XLS")

Then when I choose not to save I will give runtime error:

Code: Select all

Error WINOLE/1007 (0x800A03EC): SAVEAS
Parameter : [ 1] = C "C:\folder\file.XLS" (DOS Error -2147352567)
Called from TOLEAUTO:SAVEAS(0)

Is there a way to catch this error and ignore?

Greetings, Serge

HMG General Help :: Re: XLS Saveas :: Reply by vagblad

2025-02-12T10:05:01+00:00

Hi Serge,

You could try catching it with a sequence:

Code: Select all

BEGIN SEQUENCE WITH {|o| break(o)}
  oSheet1:SaveAs("C:\folder\file.XLS")
RECOVER
  Msgdebug("File not saved!")
  RETURN
END SEQUENCE

HMG General Help :: Re: XLS Saveas :: Reply by serge_girard

2025-02-12T10:26:24+00:00

Thanks, I try!

HMG General Help :: Re: XLS Saveas :: Reply by serge_girard

2025-02-12T10:33:48+00:00

It works fine!

HMG General Help :: Re: Change grid field widths in while in grid. :: Reply by tonton2

2025-02-11T20:25:31+00:00

Good evening, can we put colored text in MsgYesNo, thank you

HMG General Help :: Re: Change grid field widths in while in grid. :: Reply by franco

2025-02-12T16:43:17+00:00

Hi Tonton2, I am not sure without going into hmg which most do not recommend.
I have a program in all my main programs called cProc.prg. In here I put my special functions.
I made a Function called mymsgbox(). I use it for msgbox() so I Can control how it works.
You could make your own mymsgyesno() function and control anything you want.
Thanks for the thought. I think I will make one that works as I want.

HMG General Help :: Re: Change grid field widths in while in grid. :: Reply by tonton2

2025-02-14T09:00:19+00:00

franco wrote: ↑Wed Feb 12, 2025 4:43 pm Hi Tonton2, I am not sure without going into hmg which most do not recommend.
I have a program in all my main programs called cProc.prg. In here I put my special functions.
I made a Function called mymsgbox(). I use it for msgbox() so I Can control how it works.
You could make your own mymsgyesno() function and control anything you want.
Thanks for the thought. I think I will make one that works as I want.

Merci beaucoup , Thank's

GUI Basics :: Webcam capture :: Author vagblad

2025-02-11T14:32:12+00:00

Hello to everyone,

I've been fiddling around lately with capturing images from webcams using Vfw. Specifically the code from the webcam sample from the MiniGUI distribution.
Long story short, i've been having two problems:

1)I want to use the camera through Windows remote desktop(Windows 10/11 client - Windows Server 2019) and it won't just work. It wo'nt connect to the camerasource despite the camera shows up in the Server's device manager as it should be. Now Grigory suggested a few things to do like
https://www.net-usb.com/usb-over-rdp/ho ... -over-rdp/
To clarify the app works fine when i run it locally. I've downloaded other really small apps which take control of cameras and they work fine both on the local machine and through remote desktop.

Unfortunately it didn't help since i've already had tried the above steps before.

2)The maximum resolution of the captured image is only 640x480. Tried a few things with Vfw macros but still i couldn't raise it above that. I asked the same question on the MiniGUI google group but i thought i'd give it a try here as well in case someone has encountered a similar situation before.

The code used to access the webcams is pretty straightforward: You enuemrate the available drivers first with capGetDriverDescription, create a capture window and connect it to the camera source with capCreateCaptureWindow. After that you capture the image with capFileSaveDIB and that's pretty much it. As i said it's essentially the code from the MiniGUI sample.

Last thing i've tried is to call the Video format dialog (capDlgVideoFormat) which again unfortunately only allows up tto 640X480 resolution.

3)What would be the next logical step/upgrade from Vfw for such functionality like capturing images from webcam etc..? DirectShow maybe? Should i give it a go with that?Or is is there something else that i could try.

Thanks a lot for the help.

General :: Re: GRID - HEADER / CABECERA :: Reply by tonton2

2025-01-26T14:19:36+00:00

Bonjour a toute l'équipe .
"voilla un programme d'entrée de produits dans une base de donnée ENSTOCKDBF.DBF en choisissant le produit dans une base CONSTART.DBF .je voudrais remplacer la recherche effectuée par COMBOBX dans la grille GRDSTOCK par une recherche dynamique par lettre"
translation google :
Hi!
"Here is a program for entering products into a database ENSTOCKDBF.DBF by selecting the product from a CONSTART.DBF database. I would like to replace the search done by COMBOBOX in the GRDSTOCK grid with a dynamic letter-based search."
Thank's

Attachments

stock.rar (22.15 KiB)

General :: Re: GRID - HEADER / CABECERA :: Reply by franco

2025-01-26T18:25:35+00:00

SALINETAS24, I like simple. This is how I would handle this. Not sure if it would work for you.

Code: Select all

program
private g2h := 0                     
Define win
Define Grid Grid_2
ONHEADCLICK { {|| g2h:=1,msgbox(g2h),g2h:=0 }, {|| g2h:=2,something(),g2h:=0 }}

General :: Re: GRID - HEADER / CABECERA :: Reply by tonton2

2025-01-27T11:10:20+00:00

franco wrote: ↑Sun Jan 26, 2025 6:25 pm SALINETAS24, I like simple. This is how I would handle this. Not sure if it would work for you.
Code: Select all
program
private g2h := 0                     
Define win
Define Grid Grid_2
ONHEADCLICK { {|| g2h:=1,msgbox(g2h),g2h:=0 }, {|| g2h:=2,something(),g2h:=0 }}

Merci beaucoup
But ,I didn't understand how to use it in my program (how to put this line in the GRDStock grid)

General :: Re: GRID - HEADER / CABECERA :: Reply by franco

2025-01-29T07:04:02+00:00

Do you understand it now.
Just put one of these for however many grid headers you have.
{|| g2h:=2,something(),g2h:=0 }
g2h is grid header #, something is procedure you want to run, when finished g2h:=0 set g2h value back to zero.
You need one for every header. The number of headers you have.
If you don`t need to use one column still add {|| " " } in its place.

General :: Re: GRID - HEADER / CABECERA :: Reply by tonton2

2025-01-29T09:24:37+00:00

franco wrote: ↑Wed Jan 29, 2025 7:04 am Do you understand it now.
Just put one of these for however many grid headers you have.
{|| g2h:=2,something(),g2h:=0 }
g2h is grid header #, something is procedure you want to run, when finished g2h:=0 set g2h value back to zero.
You need one for every header. The number of headers you have.
If you don`t need to use one column still add {|| " " } in its place.

merci je vais esssayer

General :: HELP FOR THE HMGWEB :: Author tomtagaris

2025-02-01T18:17:06+00:00

HELLO
CAN SOMEONE HELP ME FIND
WHERE THE PROBLEM IS
c:\hmgweb\harbour\comp\mingw\bin\nm.exe: 'C:/Users/tomta/AppData/Local/Temp/hbmk_lju8bx.dir/.c': No such file
ΤΗΑΝΚΣ

General :: Re: HELP FOR THE HMGWEB :: Reply by serge_girard

2025-02-02T08:02:40+00:00

Tomtagaris,

I think HMGWeb was abandoned, so no more support or whatsoever.
Here it works fine.

Serge

General :: Re: HELP FOR THE HMGWEB :: Reply by tomtagaris

2025-02-05T16:24:33+00:00

THANKS

General :: Textos de Derecha a Izquierda :: Author jorge_riv

2025-02-18T01:22:19+00:00

Hola miagos.
Hay algun ejemplo de como hacer que un texto se desplace de derecha a Izquierda o viceversa???
En html esta la opcion MARQUEE, algo asi?
Gracias
PD: yo uso la ultima version de Minigui

HMG Samples :: Re: EASY SQL 2024.11.27 (Some Needed Fine-Tune) :: Reply by luisvasquezcl

2025-01-24T01:47:27+00:00

Thanks

HMG Samples :: Re: How to save the tree modified in the program in the DBF database ? :: Reply by kjedroska

2025-01-23T12:32:13+00:00

Sorry, guys
I think you misunderstood me.
I have a problem with the 'tree' control.
I would like to use this control to build a tree.
I would then like to save the data from this control to the DBF database so that I can recreate the tree.
I can't find the data defining the parent of the element in this "Tree" control.
Property 'Parent' in "Tree" control doesnt return this data.

HMG Samples :: Re: How to save the tree modified in the program in the DBF database ? :: Reply by edk

2025-01-23T15:15:03+00:00

Krzysztof, spójrz na ten post: https://www.hmgforum.com/viewtopic.php?p=65890#p65890, może będzie pomocny. Co prawda struktura drzewa jest zapisywana w json, ale nic nie stoi na przeszkodzie aby zapisać ją w DBF. Spróbuj to zrobić w ramach ćwiczeń z HMG.

HMG Samples :: Re: How to save the tree modified in the program in the DBF database ? :: Reply by kjedroska

2025-01-27T11:54:05+00:00

Hurry !!!
Thanks edk

My HMG Projects :: Family or friends game :: Author LOUIS

2025-01-28T23:23:50+00:00

Hola amigos del HMGFORUM

Aquí les comparto otro jueguito para que lo jueguen en Familia o entre Amigos, creo que los más pequeños lo disfrutarán.
Admite hasta 6 jugadores.

Saldrán 6 Fotos en un orden inicial y estas se intercambiarán de lugar ... Pero, antes que esto suceda, cada jugador deberá predecir dónde reaparecerá cada foto, es decir, la foto 1 podrá aparecer en la posición 4, la foto 2 en la posición 6, etc etc.
También puede darse el caso que la foto no cambie de ubicación y se quede en el mismo lugar.

Si lo hacen apostando algo (entre los jugadores), se volvería más interesante

Espero les agrade y lo disfruten

Saludos
Louis

Attachments

AFTER.jpg (189.09 KiB)

BEFORE.jpg (224.3 KiB)

ADIVINA.rar (82.12 KiB)