pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-24 08:02:15 +02:00
Code Issues Actions Releases Activity

ResponseFilterBrowser : reset vars after using the stream contents

Browse Source
This commit is contained in:
Salvador Díaz Fau 2018-02-07 11:20:38 +01:00
parent fe2b80f3a0
commit d998a912b0
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
demos/ResponseFilterBrowser/uResponseFilterBrowser.pas
View File

@ -229,10 +229,16 @@ procedure TResponseFilterBrowserFrm.StreamCopyCompleteMsg(var aMessage : TMessag
begin
try
FStreamCS.Acquire;
FStream.Seek(0, soBeginning);
Memo1.Lines.Clear;
Memo1.Lines.LoadFromStream(FStream);
FStream.Clear;
FRscSize := 0;
FRscCompleted := False;
finally
FStreamCS.Release;
end;