我做了一个网络监听程序,可是在我退出时提示出错,一下是错误内容
project ipsearch.exe raised execption class ESocketError with message 'WSACleanup',process stopped, use step or run to continue.
点击OK后,提示如下弹出一个error对话框:runtime error 217 at 00475B2F.
请各位大侠指点一下,小弟实在解决不了
我的部分代码如下:
procedure TForm1.N7Click(Sender: TObject); //退出Button
begin
close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
closesocket(MySocket);
WSACleanup();
end;
project ipsearch.exe raised execption class ESocketError with message 'WSACleanup',process stopped, use step or run to continue.
点击OK后,提示如下弹出一个error对话框:runtime error 217 at 00475B2F.
请各位大侠指点一下,小弟实在解决不了
我的部分代码如下:
procedure TForm1.N7Click(Sender: TObject); //退出Button
begin
close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
closesocket(MySocket);
WSACleanup();
end;
program IPSearch;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {AboutBox: TFrame},
Unit3 in 'Unit3.pas';
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
GetLastError();
end.--------------->这句时出现的错误
不知道是什么原因!