Delphi socket
Hello All,
Не подскажет ли кто. почему не работает следующая функция? В ComboBox1
IP адреса возможных серверов.
Если первый адрес коректен, все нормально, если нет то сплошные
ошибки.
procedure TForm1.Conect;
var
i:byte;
c:Boolean;
begin
c:=false;
for i:=0 to ComboBox1.Items.Count-1 do begin
ClientSocket1.Address:=ComboBox1.Items.Strings[i];
try
ClientSocket1.Active:=true;
except
ClientSocket1.Active:=false;
Continue;
end;
C:=true;
Break;
end;
if not c then begin
ShowMessage('Не удается подключится к серверу');
Exit;
end;
PageControl1.ActivePageIndex:=1;
end;
Заранее благодарен.