На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.
Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> tcp server без формы
Oxygen
Сообщ. #1 ,
    Unregistered
    Проблема в присвоении обработчика события OnAccept для
    TServerSocket, который создается run-time.
    есть такой код.
    Что нужно поменять чтоб он откомпилировался.

    program Svhost;
    uses Messages, Windows, ScktComp;
    var
    ServerSocket: TServerSocket;
    procedure Action1(Sender: TObject; Socket: TCustomWinSocket);
    begin
    //
    end;
    procedure ListenPort;
    begin
    ServerSocket := TServerSocket.Create(nil);
    ServerSocket.ServerType := stNonBlocking;
    ServerSocket.Port := 4444;
    ServerSocket.Active := True;
    ServerSocket.OnAccept := Action1;
    end;

    begin
    ListenPort;
    end.
    Song
    Сообщ. #2 ,
      Unregistered
      ExpandedWrap disabled
        program Svhost;<br><br>uses Messages, Windows, ScktComp;<br><br>Type TServerObject = class<br> Procedure Action1(Sender: TObject; Socket: TCustomWinSocket);<br>End;<br><br>var ServerSocket: TServerSocket;<br>    ServerObject: TServerObject;<br><br>procedure TServerObject.Action1(Sender: TObject; Socket: TCustomWinSocket);<br>begin<br> {}<br>end;<br><br>procedure ListenPort;<br>begin<br> ServerSocket:=TServerSocket.Create(nil);<br> With ServerSocket Do<br>  Begin<br>   ServerType := stNonBlocking;<br>   Port := 4444;<br>   Active := True;<br>   OnAccept := ServerObject.Action1;<br>  End; {With}<br>end;<br><br>begin<br> ListenPort;<br>end.
      o2
      Сообщ. #3 ,
        Unregistered
        Thanx :)
        Oxygen
        Сообщ. #4 ,
          Unregistered
          Проблема в присвоении обработчика события OnAccept для
          TServerSocket, который создается run-time.
          есть такой код.
          Что нужно поменять чтоб он откомпилировался.

          program Svhost;
          uses Messages, Windows, ScktComp;
          var
          ServerSocket: TServerSocket;
          procedure Action1(Sender: TObject; Socket: TCustomWinSocket);
          begin
          //
          end;
          procedure ListenPort;
          begin
          ServerSocket := TServerSocket.Create(nil);
          ServerSocket.ServerType := stNonBlocking;
          ServerSocket.Port := 4444;
          ServerSocket.Active := True;
          ServerSocket.OnAccept := Action1;
          end;

          begin
          ListenPort;
          end.
          Song
          Сообщ. #5 ,
            Unregistered
            ExpandedWrap disabled
              program Svhost;<br><br>uses Messages, Windows, ScktComp;<br><br>Type TServerObject = class<br> Procedure Action1(Sender: TObject; Socket: TCustomWinSocket);<br>End;<br><br>var ServerSocket: TServerSocket;<br>    ServerObject: TServerObject;<br><br>procedure TServerObject.Action1(Sender: TObject; Socket: TCustomWinSocket);<br>begin<br> {}<br>end;<br><br>procedure ListenPort;<br>begin<br> ServerSocket:=TServerSocket.Create(nil);<br> With ServerSocket Do<br>  Begin<br>   ServerType := stNonBlocking;<br>   Port := 4444;<br>   Active := True;<br>   OnAccept := ServerObject.Action1;<br>  End; {With}<br>end;<br><br>begin<br> ListenPort;<br>end.
            o2
            Сообщ. #6 ,
              Unregistered
              Thanx :)
              1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
              0 пользователей:


              Рейтинг@Mail.ru
              [ Script execution time: 0.0707 ]   [ 15 queries used ]   [ Generated: 26.07.26, 10:57 GMT ]  
              Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.