langs a-z

Task/HTTP/TSE-SAL/http.tse

@@ -0,0 +1,23 @@
+DLL "<urlmon.dll>"
+ INTEGER PROC FNUrlGetSourceApiI(
+  INTEGER lpunknown,
+  STRING urlS : CSTRVAL,
+  STRING filenameS : CSTRVAL,
+  INTEGER dword,
+  INTEGER tlpbindstatuscallback
+) : "URLDownloadToFileA"
+END
+
+// library: url: get: source <description></description> <version control></version control> <version>1.0.0.0.3</version> (filenamemacro=geturgso.s) [kn, ri, su, 13-04-2008 05:12:53]
+PROC PROCUrlGetSource( STRING urlS, STRING filenameS )
+ FNUrlGetSourceApiI( 0, urlS, filenameS, 0, 0 )
+END
+
+PROC Main()
+STRING s1[255] = "http://www.google.com/index.html"
+STRING s2[255] = "c:\temp\ddd.txt"
+IF ( NOT ( Ask( "url: get: source: urlS = ", s1, _EDIT_HISTORY_ ) ) AND ( Length( s1 ) > 0 ) ) RETURN() ENDIF
+IF ( NOT ( AskFilename( "url: get: source: filenameS = ", s2, _DEFAULT_, _EDIT_HISTORY_ ) ) AND ( Length( s2 ) > 0 ) ) RETURN() ENDIF
+ PROCUrlGetSource( s1, s2 )
+ EditFile( s2 )
+END