ssl compatible (issue 1)
This commit is contained in:
parent
c9eeb12691
commit
8e7f63aeb6
|
@ -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);
|
||||
|
||||
|
|
Loading…
Reference in a new issue