update for HTTP(s)

Author: ThomasMaul

Documentation/Classes/FileTransfer.md …cumentation/Classes/FileTransfer_curl.mdDocumentation/Classes/FileTransfer.md renamed to Documentation/Classes/FileTransfer_curl.md Documentation/Classes/FileTransfer.md renamed to Documentation/Classes/FileTransfer_curl.md

@@ -3,7 +3,7 @@ Class constructor($hostname : Text; $username : Text; $password : Text; $protoco
 	If ($protocol="")
 		$protocol:="ftp-ftps"
 	End if 
-	$col:=New collection:C1472("ftp"; "ftps"; "sftp"; "ftp-ftps")
+	$col:=New collection:C1472("ftp"; "ftps"; "sftp"; "ftp-ftps"; "https"; "http")
 	ASSERT:C1129($col.indexOf($protocol)>=0; "Unsupported protocol")
 	This:C1470._host:=$hostname
 	This:C1470._user:=$username
@@ -272,6 +272,13 @@ Function _buildURL()->$url : Text
 				$url+=This:C1470._user+":"+This:C1470._password+"@"
 			End if 
 			$url+=This:C1470._host
+			
+		: ((This:C1470._protocol="https") | (This:C1470._protocol="http"))
+			$url:=This:C1470._protocol+"://"
+			If (This:C1470._user#"")
+				$url+=This:C1470._user+":"+This:C1470._password+"@"
+			End if 
+			$url+=This:C1470._host
 		Else 
 			ASSERT:C1129(True:C214; "unsupported protocol")
 	End case 

Project/Sources/Classes/FileTransfer.4dm …ct/Sources/Classes/FileTransfer_curl.4dmProject/Sources/Classes/FileTransfer.4dm renamed to Project/Sources/Classes/FileTransfer_curl.4dm Project/Sources/Classes/FileTransfer.4dm renamed to Project/Sources/Classes/FileTransfer_curl.4dm

@@ -9,8 +9,8 @@ If (True:C214)
 	$credentials.url:="192.168.10.54:3421"
 End if 
 
-var $ftp : cs:C1710.FileTransfer
-$ftp:=cs:C1710.FileTransfer.new($credentials.url; $credentials.user; $credentials.pass; "ftp")
+var $ftp : cs:C1710.FileTransfer_curl
+$ftp:=cs:C1710.FileTransfer_curl.new($credentials.url; $credentials.user; $credentials.pass; "ftp")
 //$ftp.setCurlPath("/opt/homebrew/opt/curl/bin/curl")
 //$ftp.setCurlPath("C:\\Users\\thomas.DE\\Documents\\4D\\Komponenten\\curl.exe")
 $ftp.setConnectTimeout(5)

Project/Sources/Methods/test.4dm

@@ -0,0 +1,14 @@
+//%attributes = {}
+var $ftp : cs:C1710.FileTransfer_curl
+$ftp:=cs:C1710.FileTransfer_curl.new("www.4d.com"; ""; ""; "https")
+$ftp.setConnectTimeout(5)
+
+$source:="/de"
+$target:=System folder:C487(Desktop:K41:16)+"newtest2.txt"
+$target:=Convert path system to POSIX:C1106($target)
+$ftp.setCurlPrefix("--location")  // follow 301 or 302
+$result:=$ftp.download($source; $target)
+If ($result.success)
+	$answer:=$result.data
+End if 
+

Project/Sources/Methods/test_http.4dm

@@ -19,8 +19,8 @@ This class allows easy usage of cURL to transfer files to and from FTP and FTPS
 # Usage example
 
 ```4D
-var $ftp : cs.FileTransfer
-$ftp:=cs.FileTransfer.new("ftp.4d.com"; "username"; "password"; "ftps")
+var $ftp : cs.FileTransfer_curl
+$ftp:=cs.FileTransfer_curl.new("ftp.4d.com"; "username"; "password"; "ftps")
 $source:="/product/4D.dmg"
 $target:=Convert path system to POSIX(System folder(Desktop))
 $result:=$ftp.download($source; $target)
@@ -53,4 +53,20 @@ Copy this 2-4 files into your project, done.
 See Class documentation (in 4D use Explorer/Documentation)
 [Documentation](https://github.com/ThomasMaul/FileTransfer_Class/blob/main/Documentation/Classes/FileTransfer.md)
 
+# HTTP/HTTPS
+cURL is also a great tool for HTTP(s) communication, to upload or download files.
+While the class is mainly written for (s)FTP(s), it can also be use for HTTP(s).
+Read cURL documentation to find about feature set, such as to reuse cookies or follow redirects.
 
+## Usage example for http
+```4D
+var $ftp : cs.FileTransfer_curl
+$ftp:=cs.FileTransfer_curl.new("www.4d.com"; ""; ""; "https")
+$ftp.setConnectTimeout(5)
+
+$source:="/de"
+$target:=System folder(Desktop)+"newtest2.html"
+$target:=Convert path system to POSIX($target)
+$ftp.setCurlPrefix("--location")  // follow 301 or 302
+$result:=$ftp.download($source; $target)
+```