Частный случай, то есть программа работает, а вот на одном филиале при попытке отправить через IdHTP + SSL обычное текстовое сообщение вылетает (точнее не вылетает, а логируется) ошибка ClassName = ERangeError, Message = Range check error. Как я понял, ошибка происходит при выполнении метода Post. Код отправки:
| Код |
function THCreateMsg.SendMsg(p1, p2, p3, p4, p5: String): Integer;
var
MsgData: TIdMultiPartFormDataStream;
HTTP: TIdHTTP;
SSL: TIdSSLIOHandlerSocketOpenSSL;
ResponseStream: TMemoryStream;
begin
Result := -2;
HTTP := TIdHTTP.Create(nil);
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
ResponseStream := TMemoryStream.Create;
HTTP.IOHandler := SSL;
HTTP.ConnectTimeout := 10000;
HTTP.ReadTimeout := 10000;
MsgData := TIdMultiPartFormDataStream.Create;
try
MsgData.AddFormField('p1', p1);
MsgData.AddFormField('p2', p2);
MsgData.AddFormField('p3', p3);
MsgData.AddFormField('p4', p4);
MsgData.AddFormField('p5', p5);
try
HTTP.Post(URL, MsgData, ResponseStream);
except
on E: Exception do
begin
if E.ClassName = 'EIdSocketError' then
Application.MessageBox('Подключение не установлено! Проверте подключение к интернету!',
'Ошибка подключения', MB_OK + MB_ICONERROR);
LogErr(E);
Exit;
end;
end;
try
XMLResponse.LoadFromStream(ResponseStream);
Result := StrToInt(XMLResponse.DocumentElement.ChildNodes['msg_code'].Text);
except
on E: Exception do LogErr(E);
end;
finally
MsgData.Free;
ResponseStream.Free;
HTTP.Free;
end;
end;
|
Может кто то сталкивался с подобной проблемой |
)
