請問如何用 Delphi 7 不靠 Indy 做 HTTPS POST ? 目前從舊文章中查到一點資料, 努力中 ...

用 Google 搜尋 "delphi winsock https post begin" 中 ...

HttpSendRequest
http://msdn2.microsoft.com/en-us/library/aa384247.aspx
Microsoft 有提供wininet 及 winhttp 皆可使用https可查詢MSDN

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

找到一點資訊, 不過要 Import 元件, 有些麻煩
http://community.csdn.net/Expert/topic/4853/4853087.xml?temp=.760174
在delphi中選擇功能表Project->Import Type library,然後分別把
Microsoft WinHTTP Services,version5.1(Version 5.1)
和
Microsoft Scripting Runtime (Version 1.0)
加到程式中 (點擊Create Unit)

代碼:
<textarea class="delphi" rows="10" cols="60" name="code"> procedure TForm1.Button1Click(Sender: TObject); var http:WinhttpRequest; fso:FileSystemObject; fs:TextStream; fil:File_; url,user,password,path,xmlFile,statusStr:string; begin try path:='c:\test.xml'; url:='https://test/test/test'; user:='test'; password:='test'; fso:=CreateComObject(CLASS_FileSystemObject) as FileSystemObject; fil:=fso.GetFile(path); fs:=fil.OpenAsTextStream(ForReading,TristateUseDefault); xmlFile:=fs.ReadAll; fs.Close; http:=CreateComObject(CLASS_WinHttpRequest) as WinHttpRequest; http.SetTimeouts(10000,10000,10000,10000); http.Option[WinHttpRequestOption_SslErrorIgnoreFlags]:=13056; http.Open('POST',url,EmptyParam); http.SetRequestHeader('Content-Type','text/xml'); http.SetRequestHeader('Content-Length',inttostr(length(xmlFile))); http.SetCredentials(user,password,0); http.Send(xmlFile); statusStr:=http.StatusText; if statusStr='200' then begin ShowMessage('send success'); end else begin ShowMessage('send failed'); end; except on err:EOleException do begin ShowMessage(err.Message); end else begin ShowMessage('other error!'); end; end; end; </textarea>

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

SSL DLL下載地點
http://www.indyproject.org/Sockets/SSL.en.aspx

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

請問版主大大，下載之後怎麼用，我找了相關的文章滿久了，都沒有提到，請問能麻煩你說明一下嗎？

===================引 用 pcboy 文 章===================
SSL DLL下載地點
http://www.indyproject.org/Sockets/SSL.en.aspx
?

放在你程式所在的目錄

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

pcboy 大大你好：
我的 IDE 是 BCB 6.0，Indy 是 8.0.25 的版本，我在網路上有看到說明這兩個檔案和程式放在一起即可，但以下的程式碼和那兩個檔案有什麼關係嗎？且我在我的 Indy 版本中，好像也沒辦法編譯成功以下的程式碼，請問問題是出在哪裡呢？


[code cpp]

IdSSLIOHandlerSocket1->SSLOptions->Method=TIdSSLVersion(sslvSSLv23);

IdSSLIOHandlerSocket1->SSLOptions->RootCertFile="test.cer";

IdHTTP1->IOHandler=IdSSLIOHandlerSocket1;
[/code]

編輯記錄

1.不同版本 Indy, 程式寫法可能有點不同
2.當您使用的 API 實際上是某 .dll 提供的, 該 .dll 必須放在 OS 目錄或程式所在目錄
3.手邊機器沒有安裝 BCB 6.0, 您要自力救濟了

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

pcboy 大大，我瞭解了，謝謝你 ^_^