ssl compatible (issue 1)

This commit is contained in:
Administrator 2015-10-01 08:39:43 +02:00
parent c9eeb12691
commit 8e7f63aeb6

View file

@ -1136,7 +1136,8 @@ begin
AppendBytes(bData, aData); //important: send all at once!
ioffset := 0;
repeat
Result := Binding.Send(bData, ioffset);
//Result := Binding.Send(bData, ioffset);
Result := inherited WriteDataToTarget(bdata, iOffset, (Length(bData) - ioffset)); //ssl compatible?
Inc(ioffset, Result);
until ioffset >= Length(bData);