各位大哥,小弟用IndyTCPClient和IndyTCPServer组件编了一个远程数据采集接受的程序,可是最后编译的时候却出现这个情况,把用户名和密码输入到登录界面后,按确定应该进入主界面,可是我电脑上的卡巴斯基报警说有病毒,如下:可是杀毒又杀不了,杀完后它又马上备份生成,难道是我Delphi软件有毒;而且我还把程序考到同学的电脑上去编译,却出现一个对话框,上面是这样的写的:project.exe raised exception class EIdSocketError with message'Socket Error #10049
Cannot assign requested address.'Process stopped.Use step or run to contiune.
望高手指教,该怎么做,不慎感激啊!
Cannot assign requested address.'Process stopped.Use step or run to contiune.
望高手指教,该怎么做,不慎感激啊!
解决方案 »
- delphi 中TString类型的属性中关于strings【index】如何动态赋值?
- 郁闷啊::最简单的indy收发文件的代码,可是除文本文件可以外,其他都不行
- 初手问题:Delphi怎样把“多维动态数组”做 参数 和 返回值
- 急救,图片怎样使它随着窗体的改变而改变。
- ********著名关心结贴率爱国人士者Ghyghost给大家送分了************
- savetofile
- DBGRID怎么合并两行吗??
- 请问如何实现将两个dbgrid的数据导出到excel的多个sheet中
- 在QuickRep中如何指定显示的小数字段的位数?
- 如何在DBGRID里自动填写数据
- 一个字符能不能付给一个字符数组中的一个元素
- oracle sql问题,在线等待 帮我翻一下谢谢
是不是你的杀毒安全级别设置的太高的,外部的任何exe程序卡巴斯基都把它当作病毒处理了。二,上面是这样的写的:project.exe raised exception class EIdSocketError with message'Socket Error #10049
Cannot assign requested address.'Process stopped.Use step or run to contiune. 产生这个异常,一般是因为你同学电脑上没安装Delphi 的Socket 。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, Mask, DBCtrls, DB, ADODB,
IdBaseComponent, IdComponent, IdTCPServer, IdTCPConnection, IdTCPClient;type
TForm2 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit5: TEdit;
lbl3: TLabel;
ds1: TDataSource;
dbedta: TDBEdit;
dbedtb: TDBEdit;
dbedtc: TDBEdit;
dbedtd: TDBEdit;
dbedte: TDBEdit;
dbedtf: TDBEdit;
Label5: TLabel;
Label6: TLabel;
IdTCPServer1: TIdTCPServer;
qry1: TADOQuery;
tbl1: TADOTable;
idtcpclnt1: TIdTCPClient;
procedure IdTCPServer1Execute(AThread: TIdPeerThread);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementationuses Unittable;{$R *.dfm}procedure TForm2.IdTCPServer1Execute(AThread: TIdPeerThread);
var
RevData:string;
buf:array[0..9]of Char;
X:string;
i:Integer;
begin
with qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select*from Table_Data');
Open;
end;
i:=0;
SetLength(RevData,1);
AThread.Connection.ReadBuffer(RevData,1);
if RevData='H' then
AThread.Connection.ReadBuffer(RevData,1);
while RevData<>'H' do
begin
Move(RevData[1],buf[i],1);
i:=i+1;
AThread.Connection.ReadBuffer(RevData,1);
end;
Setlength(X,i+1);
Move(buf[0],X[1],i+1);
Edit5.Text:=X; if RevData='I' then
AThread.Connection.ReadBuffer(RevData,1);
while RevData<>'I' do
begin
Move(RevData[1],buf[i],1);
i:=i+1;
AThread.Connection.ReadBuffer(RevData,1);
end;
Setlength(X,i+1);
Move(buf[0],X[1],i+1);
qry1.FieldByName('a').AsString:=X;
qry1.Post ; if RevData='J' then
AThread.Connection.ReadBuffer(RevData,1);
while RevData<>'J' do
begin
Move(RevData[1],buf[i],1);
i:=i+1;
AThread.Connection.ReadBuffer(RevData,1);
end;
Setlength(X,i+1);
Move(buf[0],X[1],i+1);
qry1.FieldByName('b').AsString:=X;
qry1.Post ; if RevData='K' then
AThread.Connection.ReadBuffer(RevData,1);
while RevData<>'K' do
begin
Move(RevData[1],buf[i],1);
i:=i+1;
AThread.Connection.ReadBuffer(RevData,1);
end;
Setlength(X,i+1);
Move(buf[0],X[1],i+1);
qry1.FieldByName('c').AsString:=X;
qry1.Post ; if RevData='L' then
AThread.Connection.ReadBuffer(RevData,1);
while RevData<>'L' do
begin
Move(RevData[1],buf[i],1);
i:=i+1;
AThread.Connection.ReadBuffer(RevData,1);
end;
Setlength(X,i+1);
Move(buf[0],X[1],i+1);
qry1.FieldByName('d').AsString:=X;
qry1.Post ; if RevData='M' then
AThread.Connection.ReadBuffer(RevData,1);
while RevData<>'M' do
begin
Move(RevData[1],buf[i],1);
i:=i+1;
AThread.Connection.ReadBuffer(RevData,1);
end;
Setlength(X,i+1);
Move(buf[0],X[1],i+1);
qry1.FieldByName('e').AsString:=X;
qry1.Post ; if RevData='N' then
AThread.Connection.ReadBuffer(RevData,1);
while RevData<>'N' do
begin
Move(RevData[1],buf[i],1);
i:=i+1;
AThread.Connection.ReadBuffer(RevData,1);
end;
Setlength(X,i+1);
Move(buf[0],X[1],i+1);
qry1.FieldByName('f').AsString:=X;
qry1.Post ;
end;procedure TForm2.Button1Click(Sender: TObject);
var
SndData:string;
Len:Integer;
begin
SndData:='START';
Len:=SizeOf(SndData);
idtcpclnt1.Host :=Edit5.Text ;
idtcpclnt1.Port :=8080;
idtcpclnt1.Connect(5000);
try
idtcpclnt1.WriteBuffer(SndData[1],Len);
finally
idtcpclnt1.Disconnect;
end;
end;procedure TForm2.Button2Click(Sender: TObject);
var
SndData:string;
Len:Integer;
begin
SndData:='STOP';
Len:=SizeOf(SndData);
idtcpclnt1.Host :=Edit5.Text ;
idtcpclnt1.Port :=8080;
idtcpclnt1.Connect(5000);
try
idtcpclnt1.WriteBuffer(SndData[1],Len);
finally
idtcpclnt1.Disconnect;
end;
end;procedure TForm2.Button3Click(Sender: TObject);
begin
Form3.Show;
end;end.