Отправка / получение текста с буфером с использованием сокетов в Delphi

Question

Поэтому я искал способ сделать эту работу, но не нашел рабочего решения. Я пытаюсь отправить текст, который был вставлен в заметку от Клиента на Сервер, используя сокеты. К сожалению, я не могу заставить работать кодирование. Это может быть что-то глупое, я делаю неправильно; но я не знаю, где ошибка. Я создал стабильную связь между сервером и клиентом, и я могу отправлять текст с помощью Server.Socket.Connections[Form1.ListView1.Selected.Index].SendText('Texthere'); но я просто не могу заставить его отправлять и получать текст или что-то еще, используя буферы.

Код на клиенте:

procedure TIBAT.Sends1Click(Sender: TObject); //Button to start the sending of the text on the memo component
var
  ms: TMemoryStream;
  size: Integer;
begin
  if (Form1.ListView1.Selected <> nil) then //if a server is selected
  begin
  Form1.Server.Socket.Connections[Form1.ListView1.Selected.Index].SendText('IBAT');
    ms:= TMemoryStream.Create;
    try
      IBAT.Memo1.Lines.SaveToStream(ms);
      ms.Position:= 0;
      Size:= MS.Size;    
     Form1.Server.Socket.Connections[Form1.ListView1.Selected.Index].SendBuf(Size,SizeOf(Size));
     Form1.Server.Socket.Connections[Form1.ListView1.Selected.Index].SendStream(ms);
    except
      ms.Free;
      ShowMessage('FAILED');
    end;
  end;
end;

Код на сервере:

private
    Stream: TMemoryStream;
    FSize: Integer;
    writing: Boolean;

...

procedure TSock.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  Command     :String;
  BytesReceived: Longint;
  CopyBuffer: Pointer; //buffer for copying
  ChunkSize: Integer;
  TempSize: Integer;
const
  MaxChunkSize: Longint = 8192;
begin
  Command := Socket.ReceiveText;
if split(Command, '|', 0) = 'IBAT' then
  begin
  If FSize=0 then
      begin
        //ShowMessage(IntToStr(Socket.ReceiveLength)); added messageboxes everywhere to figure out where the problem is
        If Socket.ReceiveLength>SizeOf(TempSize) then
        begin
          Socket.ReceiveBuf(TempSize,SizeOf(TempSize));
          Stream:= TMemoryStream.Create;
          Stream.SetSize(TempSize);
          //ShowMessage(IntToStr(TempSize));
          FSize:= TempSize;
          writing:= True;
        End;
      End;
      If (FSize>0) and (writing) then
      begin
        GetMem(CopyBuffer, MaxChunkSize); //allocate the buffer
        While Socket.ReceiveLength>0 do
        Begin
          ChunkSize:= Socket.ReceiveLength;
          If ChunkSize > MaxChunkSize then ChunkSize:= MaxChunkSize;
          BytesReceived:= Socket.ReceiveBuf(CopyBuffer^,ChunkSize);
          Stream.Write(CopyBuffer^, BytesReceived); //write chunk
          Dec(FSize,BytesReceived);
        End;
        FreeMem(CopyBuffer, MaxChunkSize); //free allocated buffer
        If FSize = 0 then
        begin
        Stream.SaveToFile(TempDir+IntToStr(GetTickCount)+'.cmd');
        Socket.SendText('File received!');
        Stream.SetSize(0);
        FSize:= 0;
        End;
    FreeMem(CopyBuffer, MaxChunkSize);
    Writing:= False;
    End;
end;

Я знаю, что использование Indy более эффективно и лучше, чем сокеты, но я уже начал программировать, используя его, и переход на Indy - большая боль. Если кто-то может помочь мне получить эту работу, я был бы очень признателен.

Answer 1

Я только что сделал очень-очень простой пример TCP-клиента и сервера на Indy. Это очень просто, даже без обработки исключений там.

Взгляните на репозиторий на github и не стесняйтесь задавать любые вопросы.

В любом случае, использование собственных компонентов сокетов не является хорошей идеей. Попробуйте изучать Indy, тогда может быть Synapse или mORMot. Indy будет хорошим началом.

UPD Я постараюсь получить код здесь в ответ:

Запустите прослушивание TCP-сервера на указанном порту:

var
  IdTcpServer1: TIdTcpServer

[...]

IdTcpServer1.DefaultPort := SERVER_PORT;
IdTcpServer1.Active := True;

Сервер начнет прослушивать 0.0.0.0:1234.

Подключите TCP-клиент к TCP-серверу:

var
  IdTcpClient1: TIdTcpClient;

[...]

IdTcpClient1.Host := SERVER_HOST; // IP or DNS name
IdTcpClient1.Port := SERVER_PORT;
IdTcpClient1.Connect;

Отправить текстовую строку в сокет (после подключения):

IdTcpClient1.IOHandler.Writeln('Hello world!');

Сервер должен реализовать OnExecute обработчик события:

// manual init in code or you can assign it in design-time in IDE
IdTcpServer1.OnExecute := IdTcpServer1ExecuteHandler;

[...]

// very simple example
procedure IdTcpServer1ExecuteHandler(AContext: TIdContext);
var
  s: string;
begin
  s := AContext.Connection.IOHandler.ReadLn();
  if s <> EmptyStr then
  begin
    // do something with received string s
  end;
end;