91 lines
2.1 KiB
ObjectPascal
91 lines
2.1 KiB
ObjectPascal
// Copyright (c) Ivan Bondarev, Stanislav Mikhalkovich (for details please see \doc\copyright.txt)
|
|
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
|
|
unit ClientServer;
|
|
|
|
uses System.Net, System.Net.Sockets, System.IO;
|
|
|
|
var
|
|
servername := '127.0.0.1';
|
|
port := 13000;
|
|
|
|
/// Çàïóñêàåò ñåðâåð, ïðèíèìàþùèé îò êëèåíòà ñòðîêó è âûïîëíÿþùèé óêàçàííîå äåéñòâèå
|
|
procedure RunServer(OnProcessCommand: string -> ());
|
|
begin
|
|
var server := new TcpListener(IPAddress.Any, port);
|
|
server.Start();
|
|
|
|
while (true) do
|
|
begin
|
|
var client := server.AcceptTcpClient();
|
|
var stream := client.GetStream();
|
|
|
|
var br := new BinaryReader(stream);
|
|
var data := br.ReadString();
|
|
br.Close();
|
|
|
|
stream.Close();
|
|
client.Close();
|
|
|
|
OnProcessCommand(data);
|
|
end;
|
|
end;
|
|
|
|
/// Çàïóñêàåò ñåðâåð, ïðèíèìàþùèé îò êëèåíòà ñòðîêó, âûïîëíÿþùèé óêàçàííîå äåéñòâèå è îòïðàâëÿþùèé ñòðîêó â îòâåò
|
|
procedure RunServer(OnProcessCommand: string -> string);
|
|
begin
|
|
var server := new TcpListener(IPAddress.Any, port);
|
|
server.Start();
|
|
|
|
while (true) do
|
|
begin
|
|
var client := server.AcceptTcpClient();
|
|
var stream := client.GetStream();
|
|
|
|
var br := new BinaryReader(stream);
|
|
var data := br.ReadString();
|
|
|
|
data := OnProcessCommand(data);
|
|
|
|
var bw := new BinaryWriter(stream);
|
|
bw.Write(data);
|
|
bw.Flush();
|
|
|
|
stream.Close();
|
|
client.Close();
|
|
end;
|
|
end;
|
|
|
|
/// Âûçûâàåòñÿ Êëèåíòîì äëÿ îòïðàâêè êîìàíäû Ñåðâåðó
|
|
procedure SendCommand(s: string);
|
|
begin
|
|
var client := new TcpClient(servername,port);
|
|
var stream := client.GetStream();
|
|
|
|
var bw := new BinaryWriter(stream);
|
|
bw.Write(s);
|
|
bw.Flush();
|
|
|
|
stream.Close();
|
|
client.Close();
|
|
end;
|
|
|
|
/// Âûçûâàåòñÿ Êëèåíòîì äëÿ îòïðàâêè êîìàíäû Ñåðâåðó è ïîëó÷åíèÿ îòâåòà
|
|
function SendCommandAndReceiveAnswer(s: string): string;
|
|
begin
|
|
var client := new TcpClient(servername,port);
|
|
var stream := client.GetStream();
|
|
|
|
var bw := new BinaryWriter(stream);
|
|
bw.Write(s);
|
|
bw.Flush();
|
|
|
|
var br := new BinaryReader(stream);
|
|
Result := br.ReadString();
|
|
|
|
stream.Close();
|
|
client.Close();
|
|
end;
|
|
|
|
|
|
begin
|
|
end. |