Форум: "Сети";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Вниз

Ну не хочет Он работать!!!!!   Найти похожие ветки 

← →
Arlekin   (2002-01-29 18:45) [7]

$hade.
Слушай. А ErrorCode:=0; не работает.
Вернее работает, но на ошибку соединения.

Ладно Даю полное описание.


var
Main: TMain;
MemoPorts:TStringList;
Number:Integer;
implementation

{$R *.DFM}

Procedure TMain.Scan(PortNum:Integer);
begin
Application.ProcessMessages;
PortScan.Port:=PortNum;
Try
PortScan.Open;
Except
on ESocketError do
Begin
PortScan.Active:=False;
Portscan.ClientType:=ctNonBlocking;
PortScan.Open;
Memo.Items.add("<"+PortScan.Host+">"+" Port "+Inttostr(PortScan.port)+" : Not found");
End;
End;
PortScan.Close;
End;



procedure TMain.btStartClick(Sender: TObject);
Var I,Port:Integer;
zaq:String;
Begin
btStart.Enabled:=False;
PortScan.Host:=Host.Text;
For i :=0 to ChlBox.Items.Count-1 do
If Chlbox.Checked[i] Then
Begin
zaq:=ChlBox.Items.Strings[i];
Port:=StrtoInt(ChlBox.Items.Strings[i]);
Scan(Port);
End;
btStart.Enabled:=True;
PortScan.Active:=False;
end;

procedure TMain.PortScanConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo.Items.add("<"+PortScan.Host+">"+" Port "+Inttostr(PortScan.port)+" : Open...");
PortScan.Close;
Portscan.ClientType:=ctBlocking;
end;

procedure TMain.PortScanError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:=0;
Portscan.ClientType:=ctBlocking;
end;




Все полностью работает. при следующем условии: Если первый порт действительно открыт (На пример 139), то следйющие нормально определяются открыты или нет.


Но вот когда первый сканируемый порт неоткрыт, то следующие, хоть ты тресни, просто напросто показываются неоткрытыми (дажн тот же 139-й).

В чем глюк?
Помогите, Плз.

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c