|
@@ -71,79 +71,3 @@ Function SplitUrl( url$,server$ Var,file$ Var )
|
|
|
EndIf
|
|
|
End Function
|
|
|
|
|
|
-Function HTTPGetBank:TBank( url$ )
|
|
|
-
|
|
|
- Local server$,file$
|
|
|
- SplitUrl url,server,file
|
|
|
-
|
|
|
- Local t_server$=server
|
|
|
- If opt_proxy t_server=opt_proxy
|
|
|
-
|
|
|
- Local t_port=80
|
|
|
- If opt_proxyport t_port=opt_proxyport
|
|
|
-
|
|
|
- Local stream:TStream=TSocketStream.CreateClient( t_server,t_port )
|
|
|
- If Not stream Return
|
|
|
-
|
|
|
- stream.WriteLine "GET http://"+url+" HTTP/1.0"
|
|
|
- stream.WriteLine "Host: "+server
|
|
|
- stream.WriteLine ""
|
|
|
-
|
|
|
- While Not stream.Eof()
|
|
|
- Local t$=stream.ReadLine()
|
|
|
- If Not t Exit
|
|
|
- Wend
|
|
|
-
|
|
|
- Local bank:TBank=TBank.Create(0)
|
|
|
- Local bank_stream:TStream=TBankStream.Create( bank )
|
|
|
-
|
|
|
- CopyStream stream,bank_stream
|
|
|
-
|
|
|
- bank_stream.Close
|
|
|
- stream.Close
|
|
|
-
|
|
|
- Return bank
|
|
|
-
|
|
|
-End Function
|
|
|
-
|
|
|
-Function HTTPPostBank$( bank:TBank,url$ )
|
|
|
-
|
|
|
- Local server$,file$
|
|
|
- SplitUrl url,server,file
|
|
|
-
|
|
|
- Local t_server$=server
|
|
|
- If opt_proxy t_server=opt_proxy
|
|
|
-
|
|
|
- Local t_port=80
|
|
|
- If opt_proxyport t_port=opt_proxyport
|
|
|
-
|
|
|
- Local stream:TStream=TSocketStream.CreateClient( t_server,t_port )
|
|
|
- If Not stream Return
|
|
|
-
|
|
|
- stream.WriteLine "POST http://"+url+" HTTP/1.0"
|
|
|
- stream.WriteLine "Host: "+server
|
|
|
- stream.WriteLine "Content-Type: application/octet-stream"
|
|
|
- stream.WriteLine "Content-Length: "+bank.Size()
|
|
|
- stream.WriteLine ""
|
|
|
-
|
|
|
- Local bank_stream:TStream=TBankStream.Create( bank )
|
|
|
- CopyStream bank_stream,stream
|
|
|
- bank_stream.Close
|
|
|
-
|
|
|
- While Not stream.Eof()
|
|
|
- Local t$=stream.ReadLine()
|
|
|
- If Not t Exit
|
|
|
- Wend
|
|
|
-
|
|
|
- Local r$
|
|
|
- While Not stream.Eof()
|
|
|
- Local t$=stream.ReadLine()
|
|
|
- r:+t+"~n"
|
|
|
- Wend
|
|
|
-
|
|
|
- stream.Close
|
|
|
-
|
|
|
- Return r
|
|
|
-
|
|
|
-End Function
|
|
|
-
|