Fixed Indy to correctly assign request headers

This commit is contained in:
2015-10-06 22:01:27 +02:00
parent 2c8721bc20
commit b260f184f8
3 changed files with 7 additions and 6 deletions

View File

@@ -336,6 +336,7 @@ begin
begin
LDest := TIdEntityHeaderInfo(Destination);
LDest.FRawHeaders.Assign(FRawHeaders);
LDest.FCustomHeaders.Assign(FCustomHeaders);
LDest.FCacheControl := FCacheControl;
LDest.FCharSet := FCharSet;
LDest.FContentDisposition := FContentDisposition;
@@ -966,9 +967,9 @@ begin
// TODO: omitted intentionally?
// LDest.FHost := FHost;
// LDest.FProxyConnection := FProxyConnection;
end else begin
inherited AssignTo(Destination);
end;
inherited AssignTo(Destination);
end;
procedure TIdRequestHeaderInfo.Clear;