No replies to this topic

[genriquez]

Hola Amigos

Estoy tratando de compilar el DsPack en Delphi XE6,  pero veo que hay un componente de indy con la nueva versión 10,  alguien ha trabajado con esto?


no existe ya el objeto TidTCPServerConnection

delphi

procedure SendData(Conn: TidTCPServerConnection; var Header: TCommHeader; Data: PByte);
var
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    ms.Write(Header, SizeOf(Header));
    if Header.DPSize > 0 then
      ms.Write(Data^, Header.DPSize);
    ms.Seek(0, soFromBeginning);
    if Conn.Connected then
      Conn.WriteStream(ms, false, false, ms.Size);
  finally
    ms.Free;
  end;
end;