как открыть 6112 порт c помощбю delphi?

 

В warcraft решил поиграть
попробуй отключить защиту, типа брандмаудера и других прог-фаерволов

 

создавать немагу

тут или ip нет или порт закрыт

 

никто незнает чтоль?

 

<!--QuoteBegin-Codekid+18:08:2006, 10:12 -->
<span class="vbquote">(Codekid @ 18:08:2006, 10:12 )</span><!--QuoteEBegin-->никто незнает чтоль

[snapback]42433" rel="nofollow" target="_blank[/snapback]​

[/quote]
просто вопрос поставлен неоднозначно.<!--QuoteBegin-Codekid+16:08:2006, 15:47 -->
<span class="vbquote">(Codekid @ 16:08:2006, 15:47 )</span><!--QuoteEBegin-->как открыть 6112 порт c помощбю delphi

[snapback]42315" rel="nofollow" target="_blank[/snapback]​

[/quote]

procedure TForml.ButtonlClick(Sender: TObject);
var
i:Integer;
ipstr:String;
begin
ipstr:='127.0.0.1';
TcpClientl.RemotePort:=IntToStr(6112);
//Пытаемся открыть
TcpClientl.Open;
//Если удалось, то сообщаем об этом
if TcpClientl.Connected then
ShowMessage(IntToStr(6112)+' открыт');
//Закрываем порт
TcpClientl.Close;
end;

 

Если он заблокирован(занят) скажем каким либо программно аппартным средством к которому вы не имеете доступа .. то "открыть" его никак не получится...