paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* LHelp: harden message sending. Patch by Mike Thompson.

Browse Source 
git-svn-id: trunk@46342 -
This commit is contained in:
reiniero 2014-09-28 15:34:46 +00:00
parent a05b8d84a9
commit 13fcf53a0d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/chmhelp/packages/help/lhelpcontrol.pas
View File

@ -130,8 +130,11 @@ end;
function TLHelpConnection.SendMessage(Stream: TStream): TLHelpResponse;
begin
Result := srNoAnswer;
fServerOut.SendMessage(mtUnknown, Stream);
Result := WaitForMsgResponse;
if fServerOut.Active then
begin
fServerOut.SendMessage(mtUnknown, Stream);
Result := WaitForMsgResponse;
end;
end;
constructor TLHelpConnection.Create;