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， 註解 無‧
|
發表時間：2007-07-30 16:55:56
IP:61.220.xxx.xxx 訂閱
附加檔案：系統時間：2024-04-28 21:02:21
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |