Einzelnen Beitrag anzeigen

Benutzerbild von jokerfacehro
jokerfacehro

Registriert seit: 13. Feb 2007
306 Beiträge
 
Delphi 7 Enterprise
 
#5

AW: Winsock HTTP Post

  Alt 17. Feb 2012, 16:09
Das hat schon alles seinen Sinn mit WinSock

Ich hätte auch IdHTTP nehmen können, aber darum geht es nicht.

Edit: so sieht das script zur abfrage aus, in der index.php wird dann einfach ein

Delphi-Quellcode:
<?
echo $_POST['a'];
?>
aufgerufen



Delphi-Quellcode:
<?php

$sock = fsockopen( "localhost", 80, $errno, $erro, 2);

$header = "POST /testserver/index.php HTTP/1.1 \r\n"
         ."Host: localhost \r\n"
      // ."Connection: Close \r\n"
       ."User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:10.0.1) Gecko/20100101 Firefox/10.0.1 \r\n"
       ."Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 \r\n"
       ."Content-Type: application/x-www-form-url-encoded"
       ."Content-Length: 8 \r\n\r\n"
       ."a=blabla&b=dsfdf&a=whjdbwdj";
       
fwrite( $sock, $header);
$data = $header;

while(!feof($sock)) {
$data .= fread( $sock, 128);
}


fclose($sock);

$data = str_replace( "\r\n", "<br>", $data);
echo $data;

?>
"Never touch a running system administrator !"

Geändert von jokerfacehro (17. Feb 2012 um 16:25 Uhr)
  Mit Zitat antworten Zitat