如何將此Perl Skript（Sipgate API）轉換爲Objective C/Cocoa？

Question

沒有人有一個小示例如何與ObjC中的Sipgate Webservice交流？ 我從來沒有使用過Webservices，我也沒有得到它。 這裏是一個小的Perl Skript，由Sipgate提供，如何與他們的web服務發送短信：

#!/usr/bin/perl -w 
# 
# Sam Buca, indigo networks GmbH, 08/2007 
# 
# This script is a very basic perl-client to the SAMURAI service 
# provided by sipgate (indigo networks GmbH) without any claim to 
# completeness and without any warranty! 
# 
# The following code shows how to use the service to send messages 
# via SMS using a sipgate account. 
# 

use strict; 
use Frontier::Client; # needed for XMLRPC 

# declare some variables for later use: 
my $VERSION = "1.0"; 
my $NAME = "sipgateAPI-sms.pl"; 
my $VENDOR = "indigo networks GmbH"; 
my $url; 
my $xmlrpc_client; 
my $xmlrpc_result; 
my $args_identify; 
my $args; 

# check the count of commandline parameters and show usage information 
# if not matching: 
unless (@ARGV == 4) { 
    print "\n"; 
    print "This script needs 4 parameters supplied on the commandline:\n"; 
    print "\n"; 
    print "parameter 1 -> the username (not SIPID) used to login to sipgate\n"; 
    print "parameter 2 -> the password associated with the username\n"; 
    print "parameter 3 -> the number to send the message to\n"; 
    print "    (with national prefix, e.g. 4917xxxxxxxxx)\n"; 
    print "parameter 4 -> the message to send quoted in \" or \'\n"; 
    print "\n"; 

    exit 0; 
} 

# define URL for XMLRPC: 

$url = "https://$ARGV[0]:$ARGV[1]\@samurai.sipgate.net/RPC2"; 

# create an instance of the XMLRPC-Client: 

$xmlrpc_client = Frontier::Client->new('url' => $url); 

# identify the script to the server calling XMLRPC-method "samurai.ClientIdentify" 
# providing client-name, -version and -vendor: 

$args_identify = { ClientName => $NAME, ClientVersion => $VERSION, ClientVendor => $VENDOR }; 

$xmlrpc_result = $xmlrpc_client->call("samurai.ClientIdentify", $args_identify); 

# the check for success is not necessary in this case since the Frontier::Client module 
# dies with an exception in case of a fault, but we do it for completeness: 

if ($xmlrpc_result->{'StatusCode'} == 200) { 
    print "Successfully identified to the server!\n"; 
} else { 
    # we should never get here! 
    print "There was an error during identification to the server!\n"; 
} 

# create the input argument set for XMLRPC: 

$args = { RemoteUri => "sip:$ARGV[2]\@sipgate.net", TOS => "text", Content => $ARGV[3] }; 

# do the call and store the result/answer to $xmlrpc_result: 

$xmlrpc_result = $xmlrpc_client->call("samurai.SessionInitiate", $args); 

# again we do the check on success for completeness: 

if ($xmlrpc_result->{'StatusCode'} == 200) { 
    print "Your request was successfully send to the server!\n"; 
} else { 
    # we should never get here! 
    print "There was an error!\n"; 
} 

誰能告訴我如何發送短信在ObjC與此WebService？不要誤解我的意思，我不是指完整的工作代碼示例，只是解釋如何做到這一點！更確切地說，我不知道請求的URL字符串是怎麼樣的！ 在Hillegass AmaZone示例中，他創建了一個URL字符串作爲Amazon Webservice的請求。

謝謝你這麼多

twickl

Answer 1

開始通過創建一個NSMutableURLRequest：

NSMutableURLRequest *theRequest = [NSMutableURLRequest requestWithURL:[NSURL URLWithString:@"http://…"]]; 
[theRequest setHTTPMethod:@"POST"]; 
[theRequest setCachePolicy:NSURLCacheStorageNotAllowed]; 
[theRequest setTimeoutInterval:5.0]; 
[theRequest setHTTPBody:@"http body…"]; 
NSURLConnection *theConnection = [[NSURLConnection alloc] initWithRequest:theRequest delegate:self]; 
if (!theConnection) { 
    // Error… 
} 

和HTTP主體設定爲所需的XML消息。要了解該消息的外觀，請使用Frontier客戶端的調試選項（http://metacpan.org/pod/Frontier::Client）。

然後在班級中實施必要的委託方法。在你的情況下，我認爲didReceiveResponse就足夠了，因爲你不想讀更復雜的數據。

- (void)connection:(NSURLConnection *)connection didReceiveResponse:(NSHTTPURLResponse *)theResponse { 
    if ([theRresponse statusCode] == 200) { 
     // Everything is fine… 
    } 
} 

祝你好運！ cmitt