Порт!

Тема в разделе "Delphi - Система", создана пользователем Codekid, 16 авг 2006.

Статус темы:
Закрыта.
  1. Codekid

    Codekid Гость

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

    sdriver Гость

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

    Codekid Гость

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

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

    Codekid Гость

    никто незнает чтоль?:D
     
  5. ????

    ???? Гость

    <!--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]
    Код (Text):
    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;
     
  6. Barmutik

    Barmutik Гость

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

Поделиться этой страницей