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

在php中，Delphi等同于"fsockopen"函数是什么？

在 PHP 手册中：

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中创建一个新帐户。