HMG FTP Sample ?

[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 1538 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 1538 times

[Pcmodula]

Hi Daniel,
maybe if you use the arrow buttons at the mid of two grid...

Saludos
Pcmodula

[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 ...

Code: Select all

   RunByExtsion( cPath, cFile )

i will make a new Thread "run by Extension"

[AUGE_OHR]

hi,

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

HBFTP07.ZIP

(14.55 KiB) Downloaded 173 times

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