Dephi中有关socket的异常解决

[dovedrake]

在用Dephi中现成的客户端socket编程时，当与服务器端相连时，如果服务器端没开，将会出现一个异常，但程序还可以继续运行下去，只是弹出一个讨厌的对话框！用try...except却捕获不到这个异常，不知是怎么回事。
请各位帮帮忙，顺便再问一下，有没有什么办法，将Dephi中弹出的异常窗口屏蔽掉

[ch81]

你可以用
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;

end;
procedure TForm1.AppException(Sender: TObject; E: Exception);

begin
end;
你用没用控件进行连接？如果有,则用该控件的ONEXCEPTION

[dovedrake]

但是在函数声明的时候是怎么声明呀！
当写到Application.OnException := AppException;时，程序总是要我输入参数，但当我随便编个参数时，它又说我'TExceptionEvent' and 'procedure, untyped pointer or untyped parameter'
能把相关的代码全部列出来让我看看吗？
我以前编程的时候，当动态生成某个控件的某个事件时，它也要求我输入参数，可有些书中介绍时，总是将相应的函数句柄赋给它就可以了，但我也那么做时，却调不通，这是怎么回事呀？

[dovedrake]

这位兄弟，是不是怪我问的问题太低级了，帮帮忙吗！只要程序能调的通，一定给分，而且，分不会给的太少，帮帮忙了！

[ch81]

明天考完试，我帮你编一个。
最近太忙了，明天CET BAND 4！！MY GOD！

[ch81]

type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
ClientSocket1.Open;
except
end;
end;
end.
//我估计你的程序差不多如上把，会出现10061错误。出提示框把。
//下面为问题解决，已运行通过。在DELPHI的ADDITIONAL的控件版上应能看见
//有一个控件为TApplicationEvent,然后在event中选onexception，然后填入代码
//如果象下面，什么也不填，则不会有任何提示框。
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp, AppEvnts;
type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
Button1: TButton;
ApplicationEvents1: TApplicationEvents;
procedure Button1Click(Sender: TObject);
procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Open;
end;
procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
begin
//ShowMessage('xixi');//你的代码
end;
end.

//很奇怪，我最初的解决方法，再我机子上是正常的。你的为什么出错？
//我自定义了一个事件。
//下面是我刚试成功的。
type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Exception(Sender: TObject; E: Exception);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Exception(Sender: TObject; E: Exception);
begin
//Showmessage('ee');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Open;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException:=Exception;
end;

end.

[dovedrake]

哈哈，可不吗！这个4你可要珍重呀！先谢谢你了！

[dovedrake]

谢谢你了，原行不好使可能是我没uses AppEvnts吧，谁知道呢，我从来没用过AppEvnts，一会回去查查帮助。
你的四级考的怎么样呀？

[ch81]

你也考四级吗？
差不多吧，你如何？你哪里的？

[dovedrake]

四级我刚过，我是哈尔滨的，但马上就不在哈了，你呢？

[dovedrake]

四级我刚过，我是哈尔滨的，但马上就不在哈了，你呢？

[ch81]

同样，我在合肥，广东人。

[firewing]

用得着这么麻烦吗？
在socket的onError事件上，添加处理错误的代码，然后把ErrorCode=0就行了！

[dovedrake]

可乐好简单呀！
呵呵，我家的机器可能是有毛病，前些日子运行通过的程序，这两天就不好使了。惹火了我，把它全格了！
ch81找到工作了吗？在哪呀？

[runbuff]

关注。

[runbuff]

关注。

[ch81]

兄弟，我还没毕业，你呢？
他的那一个SQL语句，应该是游标实现的。
你看一下ORACLE中的游标。

[dovedrake]

对了，用query的SQL语句可以实现一般的数据库功能，但我不知道，如果用SQL来写，怎么样才能实现table的next（即将记录指针移向下一行）

[dovedrake]

OK,我大四了，这两天就毕业了：）呵呵，而且早就以低价把自己卖了！