PureBasic

Code : Tout sélectionner

EnableExplicit 

Define url.s = "https://www.escrime-info.com/gregxml/Greg/envoyer.php?fichier="
Define fileName.s
Define *buffer, size

InitNetwork()

;// Le fichier étant bidon tu verras une erreur dans le débug
fileName = "test.xml" 

*Buffer = ReceiveHTTPMemory(url + fileName)
If *Buffer
  size = MemorySize(*Buffer)
  Debug "Résultat: " + PeekS(*Buffer, Size, #PB_UTF8|#PB_ByteLength)
  FreeMemory(*Buffer)
Else
  Debug "Ooops url non disponible"
EndIf

Code : Tout sélectionner

;################################################################
;# 22/2/2006 - Upload file to web trough POST command | Pantcho #
;# Mar-19-2015 - update so it works on other systems?           #
;# PB 5.31 x64                                                  # 
;################################################################
; CompilerIf #PB_Compiler_Unicode 
;   Debug "NO UNICODE FOR THIS ONE"
;   End
; CompilerEndIf
; 

EOL$ = Chr(13)+Chr(10) 
QT$=Chr(34)
URL$ = "bmaillard.free.fr" ; the main domain "posttestserver.com" is a good test domain
PATH$ = "/greg/receive.php"         ; /post.php works fine at "posttestserver.com" or what ever script that accepts the enctype="multipart/form-data"    
Debug "repertoire actuel "+ GetCurrentDirectory()
FullFileName$ = "test.xml" ; Full path+filename, choose your own path
ActionName$ = "filesend"            ; this is important!! this action must be the same as  <form ... name="filesend">
Border$ = "232323RANDOMLETTERSNUMBERS23232" ; Border to the file data (Check RFC for more info)

; added an extra POST variable because sometimes you need this when you are posting like a security password etc.
; so the post on this will be "varnonumber" and the data will be "dataforvarnonumber 1" I called it varnonumber because "var2" would not work!!
FileHeader$ = "Content-Disposition: form-Data; name="+QT$+"varnonumber"+ QT$+EOL$+EOL$+"dataforvarnonumber 1"+EOL$+"--"+Border$+EOL$; Silly var names no numbers

FileHeader$ + "Content-Disposition: form-Data; name="+QT$+ActionName$ + QT$ +"; filename="+QT$+ FullFileName$+ QT$ +EOL$ 
FileHeader$ + "Content-Type: text/plain" ; <= Here change the content type regarding your file! (text,image etc...) we go on text
; ^^^ note: Havn't been tested with binary files.

If InitNetwork()
  conid.l = OpenNetworkConnection(URL$,80)
  If conid
      Debug "Connected"
      *Buffer = AllocateMemory(65000) ; some memory for our file buffer
      POST$ = "POST "+ PATH$ +" HTTP/1.1"+#CRLF$+"Host: "+URL$+#CRLF$+"Accept: */*"+#CRLF$+"User-Agent: PureBasic/4.04 CFNetwork/711.1.16 Darwin/14.0.0"  ; the Post command we are going to send to the server
   
      OpenFile(1,FullFileName$)
      Repeat
        Text$ = ReadString(1)
        FILE$ + EOL$+Text$
      Until Eof(1)
      ; This is the border header for uploading
      FILE$ = "--"+Border$ + EOL$ + FileHeader$ +EOL$ + FILE$ +EOL$+ "--" + Border$ + "--" 
      ; Back to post, while sending header with the correct content length (border+file+border)
      POST$ + EOL$ + "Content-Type: multipart/form-Data, boundary="+Border$ + EOL$ + "Content-Length: " + Str(Len(FILE$)) 
      POST$ + EOL$ + EOL$ + FILE$ 
      CloseFile(1)
      ;Debug POST$
      ;Debug "+++++++++++++++++++"
      
      
      PokeS(*Buffer,"",0)
      PokeS(*Buffer,POST$,Len(POST$))
      
      Debug "§§§§§§§§§§§§§§§§§§§"
      Debug conid
      Debug "*******************"
      Debug *Buffer
      Debug PeekS(*Buffer) 
      Debug "*******************"
      
      SendNetworkData(conid,*Buffer,Len(POST$))
      ;SendNetworkData(conid,*Buffer,100)

      Repeat
        Server$ = PeekS(*Buffer)
        res.l = ReceiveNetworkData(conid, *Buffer, 1000)
      Until Server$ = PeekS(*Buffer)
      Debug Server$
  Else 
    Debug "NO CONNECTION"
  EndIf
Else
  Debug "Pas de connexion"
EndIf
;filereceive.php
;// PHP sample file you could upload to a server. Name this filereceive.php and change PATH$="filereceive.php" on this PB program.
;// it is expecting ActionName$="filesend" from this PB Sample
;// all it does is take the temp file you sent and echo it back to you. 
; <?PHP
; If (isset($_FILES['filesend']['error'])){echo "SEND ERROR";}                //checks for errors
;       If ($_FILES['filesend']['error'] == UPLOAD_ERR_OK               //checks For errors
;      && is_uploaded_file($_FILES['filesend']['tmp_name'])) { //checks that file is uploaded
;   echo file_get_contents($_FILES['filesend']['tmp_name']); //SENDS FILE BACK TO YOU
;   }
;   //End TEST
;  ?>
;// end of php sample
  

Code : Tout sélectionner

<?PHP
	print("<HTML>");
	print "XML Data = " . $_REQUEST["XML"];
	print("</HTML>");
?>

Code : Tout sélectionner

XML$ = "XML=<Test>Hello World</Test>"

HttpRequest = HTTPRequest(#PB_HTTP_Post, "127.0.0.1/envoyer.php", XML$)

If HttpRequest
    Debug "Status : " + HTTPInfo(HTTPRequest, #PB_HTTP_StatusCode)
    Reponse$ = HTTPInfo(HTTPRequest, #PB_HTTP_Response)
    FinishHTTP(HTTPRequest)
    
    ; Affichage de test
    File$ = GetTemporaryDirectory() + "test.html"
    DeleteFile(File$)
    OpenFile(0, File$)
    WriteString(0, Reponse$)
    CloseFile(0)
    RunProgram(File$)
    
Else
    Debug "La requête a échoué"
EndIf