1

私は、iis I'm Delphi 2010 によってホストされている wcf サービスを簡単に呼び出しています。

サービスで呼び出される操作には数分かかる場合があります

Delphi でタイムアウト エラーを回避する最善の方法は何ですか?

WCF サービス内に意図的に Thread.Sleep を配置し、31 秒間待機させました。

30秒後にエラーが発生しました

プロジェクトで例外クラス ESOAPHTTPException が発生し、「要求された操作に対してハンドルが正しくない状態です - URL:http://10.1.1.4/STC.WcfServices.Host/FlexProcurementService.svc - SOAPAction:http://navsl.stcenergy. com/FlexProcurement/FlexProcurementService/GetPassthroughSummaryGridReportData'.

これは、パッチを適用した Delphi 2010 のバグであることが判明したため、エラー操作がタイムアウトしました。

function GetFlexProcurementService(const objServiceInfo: TWCFService; UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): FlexProcurementService;
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := objServiceInfo.WSDL
    else
      Addr := objServiceInfo.URL;
end;
if HTTPRIO = nil then
  RIO := THTTPRIO.Create(nil)
else
  RIO := HTTPRIO;
try
  Result := (RIO as FlexProcurementService);
  if UseWSDL then
  begin
    RIO.WSDLLocation := Addr;
    RIO.Service := objServiceInfo.Svc;
    RIO.Port := objServiceInfo.Prt;
  end else
    RIO.URL := Addr;
finally
  if (Result = nil) and (HTTPRIO = nil) then
    RIO.Free;
end;

終わり;

ポール

4

1 に答える 1

0 
uses wininet;
...

function SetTimeout(const HTTPReqResp: THTTPReqResp; Data: Pointer; NumSecs : integer) : boolean;
var
  TimeOut: Integer;
begin
  // Sets the receive timeout. i.e. how long to wait to 'receive' the response
  TimeOut := (NumSecs * 1000);
  try
    InternetSetOption(Data, INTERNET_OPTION_RECEIVE_TIMEOUT,  Pointer(@TimeOut),  SizeOf(TimeOut));
    InternetSetOption(Data, INTERNET_OPTION_SEND_TIMEOUT,  Pointer(@TimeOut),  SizeOf(TimeOut));
  except on E:Exception do
    raise Exception.Create(Format('Unhandled Exception:[%s] while setting timeout to [%d] - ',[E.ClassName, TimeOut, e.Message]));
  end;
end;

RIO OnBeforePost:

procedure TEETOUpsertWrapper.OnBeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);    begin
  SetTimeout(HTTPReqResp, Data, 5 * 60);
end;
于 2012-09-25T12:27:37.327 に答える