pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Code Issues Actions Releases Activity

Bug fix : used wrong variable for data size

Browse Source 
- Used data_in_read instead of data_in_size before the move command.
- Added more checks before wirtting to the buffer and stream.
This commit is contained in:
Salvador Díaz Fau
2018-02-07 10:02:24 +01:00
parent dc24988ff0
commit 552bc75aab
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
demos/ResponseFilterBrowser/uResponseFilterBrowser.pas
View File

@ -141,11 +141,15 @@ begin
begin begin
if (data_out <> nil) then if (data_out <> nil) then
begin begin
data_out_written := min(data_in_read, data_out_size); data_out_written := min(data_in_size, data_out_size);
if (data_out_written > 0) then
Move(data_in^, data_out^, data_out_written); Move(data_in^, data_out^, data_out_written);
end; end;
if (data_in_size > 0) then
data_in_read := FStream.Write(data_in^, data_in_size); data_in_read := FStream.Write(data_in^, data_in_size);
aResult := RESPONSE_FILTER_NEED_MORE_DATA; aResult := RESPONSE_FILTER_NEED_MORE_DATA;
end; end;
except except