Сокеты и Delphi

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by mr.The, 15 Dec 2007.

  1. mr.The

    mr.The Elder - Старейшина

    Joined:
    30 Apr 2007
    Messages:
    1,079
    Likes Received:
    456
    Reputations:
    38
    Помогите написать программу которая -
    1.Открывает на компе порт.
    2.Ждёт подключения на него.
    3.Пишет каждому кто подключился "Preved".
    4.и закрывает входящее соеденение.

    желательно многопоточная.

    и очень прошу - с коментариями!.

    сделал бы сам да давно не писал на delphi.
     
  2. zl0y

    zl0y Banned

    Joined:
    13 Sep 2006
    Messages:
    371
    Likes Received:
    270
    Reputations:
    109
    var
    Form1: TForm1;
    Connections : integer;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    ServerSocket1.Active:=true;
    Connections:=0;
    end;

    procedure TForm1.ServerSocket1Accept(Sender: TObject;
    Socket: TCustomWinSocket);
    begin
    Inc(Connections);
    Socket.SendText('Preved');
    Edit1.Text:=IntToStr(Connections);
    Socket.Disconnect(Connections);
    Dec(Connections);
    end;
     
    1 person likes this.
  3. mr.The

    mr.The Elder - Старейшина

    Joined:
    30 Apr 2007
    Messages:
    1,079
    Likes Received:
    456
    Reputations:
    38
    спс. вроде разобрался..
    а как читать из сокета?
     
  4. DWORD

    DWORD Elder - Старейшина

    Joined:
    24 Jul 2007
    Messages:
    129
    Likes Received:
    70
    Reputations:
    -36
    На таких сокетах далеко не уедешь...
     
    1 person likes this.
  5. GlOFF

    GlOFF Elder - Старейшина

    Joined:
    8 May 2006
    Messages:
    689
    Likes Received:
    484
    Reputations:
    4
    А на каких нужно уходить? Поделись...
     
  6. DWORD

    DWORD Elder - Старейшина

    Joined:
    24 Jul 2007
    Messages:
    129
    Likes Received:
    70
    Reputations:
    -36
    Ну я имею ввиду winsock, а не всякие ООПшные надстройки.
     
  7. GlOFF

    GlOFF Elder - Старейшина

    Joined:
    8 May 2006
    Messages:
    689
    Likes Received:
    484
    Reputations:
    4
    Ды я понел. Просто есть вопрос, нужен ответ. можете предложить лучше. Будем только рады, я бы и сам поучился у Вас.
     
  8. zl0y

    zl0y Banned

    Joined:
    13 Sep 2006
    Messages:
    371
    Likes Received:
    270
    Reputations:
    109
    там события есть OnRead,OnWrite.
     
Loading...