From bc065ad7ae31af31d3facf0589551d3aaf812093 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Tom=C3=A1=C5=A1=20Brada?= <tomasbrod@azet.sk>
Date: Tue, 13 Oct 2015 17:17:40 +0200
Subject: [PATCH] Stream Init helper to Chat.

---
 Chat.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Chat.pas b/Chat.pas
index 2280a38..075d130 100644
--- a/Chat.pas
+++ b/Chat.pas
@@ -18,6 +18,7 @@ type tChat=object
  DisposeHook: procedure of object; {called instead of freeing self}
  procedure Init(const iremote:tNetAddr);
  procedure AddHeaders(var s:tMemoryStream);
+ procedure StreamInit(var s:tMemoryStream; l:word);
  procedure Send(s:tMemoryStream);
   {the stream can be invalidated, but the buffer must not be modified or freed}
  procedure Ack;
@@ -84,6 +85,11 @@ end;
 
 procedure tCHat.AddHeaders(var s:tMemoryStream);
  begin s.skip(5) end;
+procedure tChat.StreamInit(var s:tMemoryStream; l:word);
+ begin
+ s.Init(GetMem(l+5),0,l+5);
+ AddHeaders(s);
+end;
 
 procedure tChat.Send(s:tMemoryStream);
  begin
-- 
2.11.4.GIT