Online inquiry, said delphi7 THTTPRIO control have to do is set the timeout property, but there is no this attribute delphi6, only from the underlying modified,
Steps:
1. Open the Delphi VCL source code, find SOAPHTTPTrans. Pas files,'ll copy the file to the project file directory, and add to the project, so the Delphi source file is modified to take effect,
2. Find procedure THTTPReqResp. Connect (Value: Boolean);
3. Write a variable:
Timeout: DWORD;
4. In FInetRoot:=InternetOpen (PChar (FAgent), AccessType, PChar (FProxy), PChar (FProxyByPass), 0). Before the code to add the following line of code:
//set the timeout 10 minutes, 10 minutes in general will be enough,
Timeout:=600000;
InternetSetOption (nil, INTERNET_OPTION_RECEIVE_TIMEOUT,
@ the Timeout, sizeof (Timeout));
4. Recompile the project, to run the program, the following webservice is not restricted to 30 seconds of super times abnormal problems!
CodePudding user response:
CodePudding user response:
Very well, with delphi6 interface of social security, struggle for a long time, finally solve the problem, thank you very much love's
CodePudding user response:
Struggle for a long time, finally solve the problem, thank you very much love's
CodePudding user response:
