2

Delphi 2010 でこれを行う必要があります。.net は使用しません。

このコードは Java です。

HttpClient client = new HttpClient();
GetMethod method = new GetMethod();
method = new GetMethod("https://www.xxxxx.xx/portal/ILlogin?username=XXXXXX&password=XXXXXXXX&skin=yyyyyyyyyy&portal=GG");
method.setFollowRedirects(false);
int rc = client.executeMethod(method);
Header locationHeader = method.getResponseHeader("location");
if(locationHeader != null) {
  tokenURL = locationHeader.getValue();
}

これは、webreader へのリダイレクトを生成する http 要求です。

Delphi 2010 でこれをコーディングするにはどうすればよいですか。

4

1 に答える 1

3

Delphi は、Indy がプリインストールされた状態で出荷されます。Indy の TIdHTTP コンポーネントを使用できます。

client := TIdHTTP.Create(nil);
try
  client.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(client);
  TIdSSLIOHandlerSocketOpenSSL(client.IOHandler).SSLOptions.Method := sslvSSLv23;

  client.HandleRedirects := False; 
  client.Get('https://www.xxxxx.xx/portal/ILlogin?username=XXXXXX&password=XXXXXXXX&skin=yyyyyyyyyy&portal=GG', [300, 301, 302, 303, 305, 306, 307]);

  if client.Response.Location <> '' then
    tokenURL := client.Response.Location;
finally
  client.Free;
end;
于 2012-09-07T05:49:44.910 に答える