pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-02-02 10:25:26 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
demos/ResponseFilterBrowser/uResponseFilterBrowser.pas
View File

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