我想讓跑出來的錯誤訊息是自訂的,不是他本身的 我看過 http://delphi.ktop.com.tw/topic.php?topic_id=21321 的文章...發覺裡面的方法都行不通... 只有P.D.版主的方法 可以成功某部分的訊息 像ClientSocket的連線錯誤訊息 若IP未輸入 則顯示No Address Specified 這個可以成功 但是像IP輸入錯誤 出現的Asynchronous socket error 10060 或 100XX之類的就不行了 不知道有沒有什麼辦法可以只出現自己的自訂訊息

orga你好: 要程式在run時有錯誤,而顯示自訂的錯誤視窗那首先程式 設計者必須了解哪裡有可能會有錯誤發生,用P.D版主所post 的程式來解讀就是設計者知道在沒連接成功時,會發生錯誤 所以才能在錯誤發生時顯示自訂的錯誤訊息,但是還有有可 能錯誤的狀況很多,如 1.程式連線後接收的資料格式錯誤, 2.連線之後,登錄者的權限不夠, 3...等等 都必須由設計者事先規劃出,才寫判定及錯誤訊息  

引言: IP輸入錯誤 出現的Asynchronous socket error 10060 或 100XX之類的就不行了

但是如果是要更改,元件本身提供的錯誤訊息欄,則要修改元件Message部分

謝謝Ko的回答    我現在要做的是 要設計在連接沒有成功的時候 跑出自訂的錯誤訊息    但是連接沒有成功 產生的錯誤訊息 不只一種    我已經知道有可能產生錯誤訊息的地方了...    但是我要如何把所有的錯誤訊息 改成我自訂的呢    例如我的程式原本是  

procedure TForm1.Button1Click(Sender: TObject);
begin
      ClientSocket1.Address := Edit1.Text;
      ClientSocket1.Open;
end;
 

要如何改呢 謝謝

orga你好 :

引言: procedure TForm1.Button1Click(Sender: TObject); begin ClientSocket1.Address := Edit1.Text; ClientSocket1.Open; end; 要如何改呢 謝謝

procedure TForm1.Button1Click(Sender: TObject); begin try ClientSocket1.Address := Edit1.Text; ClientSocket1.Open; except ShowMessage('失敗'); end; end;

這個方法我試過了 可是不行耶@@" 我是XP的不曉得有沒有差~~

orga 你好: 每個ERROR訊息所存放的地方不一,WinSock是放在某個dll裡 { DOS and OS/2 Compatible Error Code definitions returned by the Win32 Base API functions. } { Translated from WINERROR.H } { Error code definitions for the Win32 API functions } (* Values are 32 bit values layed out as follows: 3 3 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 --- - - ----------------------- ------------------------------- |Sev|C|R| Facility | Code | --- - - ----------------------- ------------------------------- where Sev - is the severity code 00 - Success 01 - Informational 10 - Warning 11 - Error C - is the Customer code flag R - is a reserved bit Facility - is the facility code Code - is the facility's status code *)

------
======================
昏睡~
不昏睡~
不由昏睡~

所有的錯誤, 會導到 ApplicationEvents.OnException事件裡 或許您在這理針對有興趣的例外做 加工處理

謝謝兩位的回答 因為最近又要忙別的事@@" 所以等有時間我會在試試看的 再次感謝^^