德爾福2010 - 生成HTTP請求，並重定向到網絡瀏覽器

Question

我需要做到這一點在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請求。

我如何在德爾福2010年代碼。

Answer 1

德爾福附帶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;