Page 3 of 3
Re: HMG FTP Sample ?
Posted: Mon Jun 22, 2020 2:35 pm
by danielmaximiliano
Hi: I can compile the example in HMG.3.4.4
in the firewall I add an exception from the app
I can connect to an FTP service with a simple user but not with a username containing an @.
- 2020-06-22 11_37_08-Window.png (6.73 KiB) Viewed 1541 times
I do not understand that the example does not contain the basic buttons of
Upload and Download
- 2020-06-22 11_21_59-FTP Client -2020- Original by - Walter Formigoni - OPEN SOURCE. Version 0.0.5.png (32.01 KiB) Viewed 1541 times
Re: HMG FTP Sample ?
Posted: Mon Jun 22, 2020 5:06 pm
by Pcmodula
Hi Daniel,
maybe if you use the arrow buttons at the mid of two grid...
Saludos
Pcmodula
Re: HMG FTP Sample ?
Posted: Mon Jun 22, 2020 8:08 pm
by AUGE_OHR
hi,
i want to get rid of Registry CLASS in this FTP Sample.
Code: Select all
FUNCTION Verify()
...
IF cExt = 'EXE' .OR. cExt = 'BAT' .OR. cExt = 'COM'
_Execute( 0,, cFile,, cPath, 5 )
ELSE
cExe := GetOpenCommand( cExt )
FUNCTION GetOpenCommand( cExt )
oReg := TReg32() :New( HKEY_CLASSES_ROOT, cVar1 + "\shell\open\command", .f. )
i "think" this is to "find out" to which App Extension belong ...
i will make a new Thread "run by Extension"
Re: HMG FTP Sample ?
Posted: Tue Jun 23, 2020 12:41 am
by AUGE_OHR
hi,
danielmaximiliano wrote: ↑Mon Jun 22, 2020 2:35 pm
Upload and Download 2020-06-22 11_21_59-FTP Client -2020- Original by - Walter Formigoni - OPEN SOURCE. Version 0.0.5.png
where do you get "Attribute" on right-side come from
i have made new Sample
change from Listfiles() to List(). missing Attribute
just hbFTP.PRG, no *.C or *.H any more
add "resize"
not TOPMOST any more
up-download Button disable when transfer is active.
---
App work with MULTISELECT .F. and inside use
Code: Select all
FUNCTION GetColValue( xObj, xForm, nCol )
LOCAL nPos := GetProperty( xForm, xObj, 'Value' )
LOCAL aRet := GetProperty( xForm, xObj, 'Item', nPos )
RETURN aRet[ nCol ]
so it seems me not possible to use MULTISELECT .T. in this Concept