php - Delphi 相当于 php 中的 "fsockopen"函数是什么？

Question

Delphi 相当于 php 中的“fsockopen”函数是什么？

在 PHP Manual :

resource fsockopen ( string $hostname [, int $port = -1 [, int &$errno [, string &$errstr     [, float $timeout = ini_get("default_socket_timeout") ]]]] )
Initiates a socket connection to the resource specified by hostname.

我的代码完全是:

function accountcreate($username, $password, $connection, $bandwidth, $disabledate,  $disabletime)
{
$adminpassword='';
$adminport=82;
$proxyaddress='127.1.1.1';

$fp = fsockopen($proxyaddress, $adminport, &$errno, &$errstr, 1000);
if(!$fp) 
{
        echo "$errstr ($errno)<br>\n";
} 
else 
{
    $url_ = "/account";
    $url = "add=1"."&";
    .
    .
    $url = $url."userid=-1";
    $len = "Content-Length: ".strlen($url);
    $auth = "Authorization: Basic ".base64_encode("admin:".$adminpassword);
    $msg = "POST ".$url_." HTTP/1.0\r\nHost: ".$proxyaddress."\r\n".$auth."\r\n".$len."\r\n"."\r\n".$url;
    fputs($fp,$msg);
    echo $msg;

    fclose($fp);
}

该代码在 ccproxy 中创建了一个新帐户。

Answer 1

也许看看 Delphi 附带的 Indy Components(至少假设 Delphi7)。你需要:

TIdTCPConnection Documentation

其中包含 IOHandler属性 (TIdIOHandler)，您可以在其中指定 fsockopen 中使用的参数:

TIdTCPConnection.IOHandler Property

TIdIOHandler Documentation

然而，正如其他人所指出的，通过查看 PHP 代码中的大局并可能使用更高级的工具(如 TIdHTTP)来实现其功能，您可能会得到很好的服务。 :

TIdHTTP Documentation