From 9a2615ec3defdceb40c7a6a47890edb74cd9c854 Mon Sep 17 00:00:00 2001 From: Matheus Barzon Date: Mon, 13 Nov 2023 13:53:49 -0300 Subject: [PATCH 1/2] =?UTF-8?q?Adicionando=20fun=C3=A7=C3=A3o=20Synchroniz?= =?UTF-8?q?eEvents=20para=20engine=20NetHTTP?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/RESTRequest4D.Request.Contract.pas | 1 + src/RESTRequest4D.Request.NetHTTP.pas | 8 ++++++++ 2 files changed, 9 insertions(+) diff --git a/src/RESTRequest4D.Request.Contract.pas b/src/RESTRequest4D.Request.Contract.pas index ef7a9f7..933c4ed 100644 --- a/src/RESTRequest4D.Request.Contract.pas +++ b/src/RESTRequest4D.Request.Contract.pas @@ -70,6 +70,7 @@ interface function ClearBody: IRequest; {$IF DEFINED(RR4D_NETHTTP)} function Asynchronous(const AValue: Boolean): IRequest; + function SynchronizeEvents(const AValue: Boolean): IRequest; {$ENDIF} {$IF DEFINED(RR4D_INDY) or DEFINED(FPC) or DEFINED(RR4D_SYNAPSE) or DEFINED(RR4D_NETHTTP)} function AddParam(const AName, AValue: string): IRequest; diff --git a/src/RESTRequest4D.Request.NetHTTP.pas b/src/RESTRequest4D.Request.NetHTTP.pas index 9ff9b70..2e70b57 100644 --- a/src/RESTRequest4D.Request.NetHTTP.pas +++ b/src/RESTRequest4D.Request.NetHTTP.pas @@ -76,6 +76,7 @@ TRequestNetHTTP = class(TInterfacedObject, IRequest) function AddFile(const AFieldName: string; const AFileName: string; const AContentType: string = ''): IRequest; overload; function AddFile(const AFieldName: string; const AValue: TStream; const AFileName: string = ''; const AContentType: string = ''): IRequest; overload; function Asynchronous(const AValue: Boolean): IRequest; + function SynchronizeEvents(const AValue: Boolean): IRequest; function MakeURL(const AIncludeParams: Boolean = True): string; function Proxy(const AServer, APassword, AUsername: string; const APort: Integer): IRequest; function DeactivateProxy: IRequest; @@ -311,6 +312,12 @@ function TRequestNetHTTP.Asynchronous(const AValue: Boolean): IRequest; FNetHTTPClient.Asynchronous := AValue; end; +function TRequestNetHTTP.SynchronizeEvents(const AValue: Boolean): IRequest; +begin + Result := Self; + FNetHTTPClient.SynchronizeEvents := AValue; +end; + function TRequestNetHTTP.BaseURL(const ABaseURL: string): IRequest; begin Result := Self; @@ -379,6 +386,7 @@ constructor TRequestNetHTTP.Create; FNetHTTPClient.OnRequestError := DoHTTPProtocolError; FNetHTTPClient.OnRequestCompleted := DoAfterExecute; FNetHTTPClient.Asynchronous := False; + FNetHTTPClient.SynchronizeEvents := True; FParams := TStringList.Create; FUrlSegments := TStringList.Create; From 23a4761386fbc79532805d5760c4ddfe7c71cc8e Mon Sep 17 00:00:00 2001 From: Matheus Barzon Date: Mon, 13 Nov 2023 14:40:09 -0300 Subject: [PATCH 2/2] =?UTF-8?q?Renomeando=20fun=C3=A7=C3=A3o=20de=20Synchr?= =?UTF-8?q?onizeEvents=20para=20SynchronizedEvents?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/RESTRequest4D.Request.Contract.pas | 2 +- src/RESTRequest4D.Request.NetHTTP.pas | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/RESTRequest4D.Request.Contract.pas b/src/RESTRequest4D.Request.Contract.pas index 933c4ed..2e5ed0d 100644 --- a/src/RESTRequest4D.Request.Contract.pas +++ b/src/RESTRequest4D.Request.Contract.pas @@ -70,7 +70,7 @@ interface function ClearBody: IRequest; {$IF DEFINED(RR4D_NETHTTP)} function Asynchronous(const AValue: Boolean): IRequest; - function SynchronizeEvents(const AValue: Boolean): IRequest; + function SynchronizedEvents(const AValue: Boolean): IRequest; {$ENDIF} {$IF DEFINED(RR4D_INDY) or DEFINED(FPC) or DEFINED(RR4D_SYNAPSE) or DEFINED(RR4D_NETHTTP)} function AddParam(const AName, AValue: string): IRequest; diff --git a/src/RESTRequest4D.Request.NetHTTP.pas b/src/RESTRequest4D.Request.NetHTTP.pas index 2e70b57..c5d190c 100644 --- a/src/RESTRequest4D.Request.NetHTTP.pas +++ b/src/RESTRequest4D.Request.NetHTTP.pas @@ -76,7 +76,7 @@ TRequestNetHTTP = class(TInterfacedObject, IRequest) function AddFile(const AFieldName: string; const AFileName: string; const AContentType: string = ''): IRequest; overload; function AddFile(const AFieldName: string; const AValue: TStream; const AFileName: string = ''; const AContentType: string = ''): IRequest; overload; function Asynchronous(const AValue: Boolean): IRequest; - function SynchronizeEvents(const AValue: Boolean): IRequest; + function SynchronizedEvents(const AValue: Boolean): IRequest; function MakeURL(const AIncludeParams: Boolean = True): string; function Proxy(const AServer, APassword, AUsername: string; const APort: Integer): IRequest; function DeactivateProxy: IRequest; @@ -312,7 +312,7 @@ function TRequestNetHTTP.Asynchronous(const AValue: Boolean): IRequest; FNetHTTPClient.Asynchronous := AValue; end; -function TRequestNetHTTP.SynchronizeEvents(const AValue: Boolean): IRequest; +function TRequestNetHTTP.SynchronizedEvents(const AValue: Boolean): IRequest; begin Result := Self; FNetHTTPClient.SynchronizeEvents := AValue;