Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=185182 Sun, 02 Nov 2003 14:56:04 +0000 tcp server без формы https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=185182 o2 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=185181 Sat, 01 Nov 2003 11:38:52 +0000 tcp server без формы https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=185181
    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.
]]> Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=185180 Sat, 01 Nov 2003 10:50:28 +0000 tcp server без формы https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=185180 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.


]]> Oxygen Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=38706 Sun, 02 Nov 2003 14:56:04 +0000 tcp server без формы https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=38706 o2 Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=38703 Sat, 01 Nov 2003 11:38:52 +0000 tcp server без формы https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=38703
    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.
]]> Song Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=38700 Sat, 01 Nov 2003 10:50:28 +0000 tcp server без формы https://forum.sources.ru/index.php?showtopic=2512&view=findpost&p=38700 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.


]]> Oxygen Delphi: Сетевое программирование