Товарище знающие подскажите плиз, делаю так:| Код |
{============================================================================}
host:='ya.ru';
port:=80;
TelnetConnect:=false;
Form1.ClientSocket1.Host:=host;
Form1.ClientSocket1.Port:=port;
try
Form1.ClientSocket1.Active:=true;
except
end;
Form1.ClientSocket1.Active:=false;
if TelnetConnect=false then begin
ListView1.Items.Item[3].ImageIndex:=3;
end else ListView1.Items.Item[3].ImageIndex:=2;
{============================================================================}
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add('Ïîäêëþ÷åíî');
TelnetConnect:=true;
//Form1.ClientSocket1.Active:=false;
end;
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add('Îòêëþ÷åíî');
end;
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
Memo2.Lines.Add('Îøèáêà: '+IntToStr(ErrorCode));
ErrorCode:=0;
end;
|
Но почему код:| Код |
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo2.Lines.Add('Ïîäêëþ÷åíî');
TelnetConnect:=true;
//Form1.ClientSocket1.Active:=false;
end;
|
Выполняется когда уже это выполнилось:
| Код |
if TelnetConnect=false then begin
ListView1.Items.Item[3].ImageIndex:=3;
end else ListView1.Items.Item[3].ImageIndex:=2;
|
Задача проста, сделать телнет на указаный адрес и порт. если прителнетилось поменять иконку... |
Звените, про режим что-то не подумал.