#1 DCCF Server 2.1 patch #1

[simpletk]

When server send compile cycle report to the client,
sometimes client doesn't receive complete data and
report page become empty. This is a problem of server
how it sends the report file. Here is the workaround
for this bug:

Add this function to DCCF_Server\src\pas\main_p.pas:

procedure SocketSafeSend(socket : TCustomWinSocket;
packet : string);
var dlzka, poslane, spolu : integer;
begin
// send text to socket in a safe way
dlzka:=length(packet);
poslane:=0;
repeat
spolu:=socket.SendText(packet);
if spolu>0 then
poslane:=poslane+spolu;
application.ProcessMessages;
until poslane>=dlzka;
end;

And in Tmain_f.ServerSocket1ClientRead event in the
main_p.pas change this lines:

for k:=0 to reportmemo1.lines.Count-1 do
socket.SendText('*RPI~'+reportmemo1.lines[k]+'~`');

To this:

for k:=0 to reportmemo1.lines.Count-1 do

SocketSafeSend(socket,'*RPI~'+reportmemo1.lines[k]+'~`');

And recompile the server. Another work around should be
to set up directory C:\Program Files\DCCF
Server\reports as shared and in client setup set the
location of the latest report, e.g.
\\server\reports\report_latest.txt

dvh.tosomja@post.sk