DouKaku? 9194 egtra: MSXMLのXmlHttpRequest...(LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する)

Comment detail

LL Golf Hole 1 - tinyurl.comを使ってURLを短縮する (Nested Flatten)

MSXMLのXmlHttpRequestを使いました。というわけでWindows限定です。さらに、#importを使っているので、Visual C++などでしかコンパイルできないです。なお、#import内のmsxml6.dllはmsxml3.dllやmsxml4.dllに置き換えても動くでしょう。

このプログラム自体は、std::wstringを全く使わなくても出来上がりますが、コピペして使い回すときの便を（少しだけ）考えてstd::wstringで入出力するようにしてあります。

XMLHTTPRequestの各メソッド・プロパティも_com_errorを投げる可能性があります。使い回すときには考慮しておいたほうが良いでしょう。

#include <iostream>
#include <boost/algorithm/string/predicate.hpp>
#include <boost/range.hpp>
#include <comdef.h>
#include <comutil.h>
#import <msxml6.dll>

_bstr_t ToBStr(const std::wstring& s)
{
    return _bstr_t(SysAllocStringLen(s.c_str(), s.size()), false);
}

std::wstring ToWString(const _bstr_t& s)
{
    return std::wstring(static_cast<PCWSTR>(s), static_cast<PCWSTR>(s) + s.length());
}

boost::iterator_range<const wchar_t*> BStrRange(const _bstr_t& s)
{
    return boost::make_iterator_range(static_cast<PCWSTR>(s), static_cast<PCWSTR>(s) + s.length());
}

std::wstring GetTinyUrlString(const std::wstring& url)
{
    MSXML2::IXMLHTTPRequestPtr xmlhttp;
    HRESULT hr = xmlhttp.CreateInstance("Msxml2.XMLHTTP");
    if (FAILED(hr))
    {
        throw _com_error(hr);
    }
    xmlhttp->open(L"GET", ToBStr(L"http://tinyurl.com/api-create.php?url=" + url));
    xmlhttp->send();
    _bstr_t result = xmlhttp->GetresponseText();
    if (boost::algorithm::iequals(BStrRange(result), L"error"))
    {
        throw std::runtime_error("Tinyurl returns error");
    }
    return ToWString(result);
}

int main()
{
    HRESULT hr = CoInitialize(0);
    if (FAILED(hr))
    {
        throw _com_error(hr);
    }
    std::wcout << GetTinyUrlString(L"http://ll.jus.or.jp/2008/info/xgihyo") << std::endl;
    CoUninitialize();
}

参考までに、同じものをJavaScriptで投稿しておきます。WSHで実行するように作っているので、これを試すには拡張子jsを付けて保存したファイルを直接実行してください。Windowsでない方にはごめんなさい。

function GetTinyUrlString(url)
{
    var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
    xmlhttp.open("GET", "http://tinyurl.com/api-create.php?url=" + url);
    xmlhttp.send();
    var result = xmlhttp.responseText;
    if (result.toLowerCase() == "error")
    {
        throw "Tinyurl returns error";
    }
    return result;
}

WScript.Echo(GetTinyUrlString("http://ll.jus.or.jp/2008/info/xgihyo"))

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq