TIdSSLIOHandlerSocketOpenSSL 的 StartSSL 該如何用 ? 何時必須用 ? |
缺席
|
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
TIdSSLIOHandlerSocketOpenSSL 的 StartSSL 該如何用 ? 何時必須用 ?
<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.Button2Click(Sender: TObject); const URL = 'https://hp.kubtelecom.ru:8888/pls/fsun/'; POST = 'htm_db.callhpage'; var Request : String; HTML: String; F: TextFile; S: String; IdHTTP : TIdHTTP; IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL; begin IdHTTP := TIdHTTP.Create; IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create; //Request := '?p_logname=' E_Login.Text '&' 'p_pwd=' E_Password.Text '&' 'p_lang=RUS'; Request := ''; try IdHTTP.Request.ContentType:='text/html'; // IdHTTP.Request.Method := hmPost; // Undeclared identifier: 'hmPost' IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1; try IdSSLIOHandlerSocketOpenSSL1.StartSSL; // 這行會發生錯誤, 然後執行到 except , 但是兩個 SSL Library 明明在 // StartSSL 就算啟動失敗也應該未必是找不到 SSL Library // 錯誤訊息 // Project Project1.exe raised exception class EAcessViolation with message 'Access violation at address 00488807 in // module 'Project1.exe' Read of address 00000014'. except ShowMessage( 'Couldn''t load ssl library! '); end; HTML := IdHTTP.Get( URL POST Request ); except on E:Exception do HTML:='$E ' E.Message; end; IdHTTP.Free; IdSSLIOHandlerSocketOpenSSL1.Free; end;</textarea>
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
|
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
|
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
去 Google 了一下
Delphi ICS 元件 (Internet Component Suite) 官方網站 (下載點在左上的 What's New 跑馬燈, 最後版2005/05/29) http://www.overbyte.be 看他解壓的目錄, 似乎只保證支援 Delphi 1, 2, 3 不知對 Delphi 7 和 2007 支援情況如何?
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
ICS V6 for Delphi 7 and up Beta (July 18, 2007)
Support all Delphi and BCB versions 你看到的是資料夾。在 ..\ICS\Delphi\Vc32
編輯記錄
wameng 重新編輯於 2007-08-01 11:23:56, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |