pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-17 06:57:13 +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 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);
Move(data_in^, data_out^, data_out_written);
if (data_out_written > 0) then
Move(data_in^, data_out^, data_out_written);
end; end;
data_in_read := FStream.Write(data_in^, data_in_size); if (data_in_size > 0) then
aResult := RESPONSE_FILTER_NEED_MORE_DATA; data_in_read := FStream.Write(data_in^, data_in_size);
aResult := RESPONSE_FILTER_NEED_MORE_DATA;
end; end;
except except
on e : exception do on e : exception do