IdTcpServer Delphi XE8 прием передача данных

[ArtGrek]

AContext.Connection.IOHandler.Write (Pointer(S1)^, SizeOf(s1), 1);

[dcc32 Error] Unit1.pas(380): E2250 There is no overloaded version of 'Write' that can be called with these arguments

[Aliens_wolfs]

Пост #9 посмотри подправил кое что

[ArtGrek]

Pos('<policy-file-request/>', s) <> 0

неплохо решил)
а с остальным все по прежнему
пост #10 видел?

[Aliens_wolfs]

Сейчас Xe поставлю проверю, отпишусь

[Aliens_wolfs]

у ВАС ОТВЕТ '<policy-file-request/> приходит в одной строке или еще что то в этой строке приходит?

[ArtGrek]

запрос: <policy-file-request/>
ответ: <?xml version="1.0"?><cross-domain-policy><allow-access-from domain="*" to-ports="*" /></cross-domain-policy>

[Aliens_wolfs]

Так попробуйте не нужно использовать TStringStream он ждет поток данных а у вас одна строка

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  s1: AnsiString;
begin
   S1:= AContext.Connection.IOHandler.ReadLn();
  if Pos('<policy-file-request/>', S1) <> 0 then
 begin
    s1 := '<?xml version="1.0"?><cross-domain-policy><allow-access-from domain="*" to-ports="*" /></cross-domain-policy>';
    AContext.Connection.SendCmd(S1);
    AContext.Connection.Disconnect;
  end;
end;

Да и вообще эти индейские компоненты иногда странно ведут себя, я стараюсь использовать WinSock

[ArtGrek]

тоже не помогло
во так сервер принимает, но не отвечает
Socket Error # 10038 Socket operation on non-socket.

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  s, s1: AnsiString;
begin
  AContext.Connection.IOHandler.ReadStream(MemStream, -1, True);
  s := MemStream.DataString;
  if Pos('<policy-file-request/>', s) <> 0 then
  begin
    s1 := '<?xml version="1.0"?><cross-domain-policy><allow-access-from domain="*" to-ports="*" /></cross-domain-policy>';
    AContext.Binding.SendTo(AContext.Binding.PeerIP, AContext.Binding.PeerPort, s1, Id_IPv4, nil);
  end;
end;

а если убрать строку приема, сервер отправляет сообшение

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  s, s1: AnsiString;
begin
  //AContext.Connection.IOHandler.ReadStream(MemStream, -1, True);
  s := MemStream.DataString;
  if Pos('<policy-file-request/>', s) <> 0 then
  begin
    s1 := '<?xml version="1.0"?><cross-domain-policy><allow-access-from domain="*" to-ports="*" /></cross-domain-policy>';
    AContext.Binding.SendTo(AContext.Binding.PeerIP, AContext.Binding.PeerPort, s1, Id_IPv4, nil);
  end;
end;

[Aliens_wolfs]

А почему AContext.Connection.IOHandler.ReadS tream(MemStream, -1, True);? используете ведь это же потоковое а у вас одна строка? Поэтому и не принимает ждет много строк

Пример же написал я в посте #17

[ArtGrek]

следующии ответ на запрос 35000 символов
зы. у меня MemStream : TStringStream;
просто название переменной осталось от опытов