Bitcoin Forum

RPC_PARSE_ERROR      = -32700

function SendJson(js:string):string;
var
  Json: string;
  sResponse: string;
  JsonToSend: TStringStream;
begin
JSON := JS;
  JsonToSend := TStringStream.Create(Utf8Encode(Json)); 
  try
    Form1.IDHTTP1.Request.ContentType := 'application/json';
    Form1.IDHTTP1.Request.CharSet := 'utf-8';
    Form1.IdHTTP1.Request.Username:='Xuser';
    Form1.IdHTTP1.Request.Password:='Q123456789';

    try
      sResponse := Form1.IDHTTP1.Post('http://127.0.0.1:8332', JsonToSend);
    except
      on E: Exception do
        ShowMessage('Error on request: '#13#10 + e.Message);
    end;
  finally
    JsonToSend.Free;
  end;
Result := sResponse;

end;
//---------------------------------
procedure TForm1.Button3Click(Sender: TObject);
begin

memo1.Lines.Add( SendJson('{"id": 2, "method": "mining.authorize", "params": ["Xuser", "Q123456789"]}'));

memo1.Lines.Add( SendJson('{"id": 1, "method": "mining.subscribe", "params": ["cpuminer/2.4.1"]}'));

memo1.Lines.Add( SendJson('{"jsonrpc": "1.0", "method": getinfo, "params": "[]" }'));

end;

rpcuser=Xuser
rpcpassword=Q123456789
rpcport=8332
daemon=1
server=1
listen=1
rpcallowip=127.0.0.1

<?php // Get cURL resource
  require_once 'jsonRPCClient.php';
 
  $bitcoin = new jsonRPCClient('http://xuser:123456789@127.0.0.1:8332');

  echo "<pre>\n";
  print_r($bitcoin->getinfo()); echo "\n";
  print_r($bitcoin->getblocknumber()); echo "\n";

  echo "Received: ".$bitcoin->getreceivedbylabel("n3sCmQrQsSyMRpHHuSjFU4r5sTcsjZSZYn")."\n";
  echo "<pre>\n";
  

  echo include(json_decode( $url));

?>