Kto nubud v delfi poslal bolsoy data v SAP. U menya taka problama: Esli data malenkaya to rabotaet. esli mnogo strok s pervogo raza osibka. Potom rabotate.

function GetZSD_EP_ORDER(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): ZSD_EP_ORDER;
{
const
 defWSDL = 'http://intipp.intersun.az:8000/sap/bc/srt/wsdl/srvc_0050569A51001ED5A7B2FEA43F0C15C4/wsdl11/allinone/ws_policy/document?sap-client=500';
 defURL  = 'http://intipp.intersun.az:8000/sap/bc/srt/rfc/sap/zsd_ep_order/500/zsd_ep_order/zsd_ep_order';
 defSvc  = 'ZSD_EP_ORDER';
 defPrt  = 'ZSD_EP_ORDER';
}
var
 RIO: THTTPRIO;
begin
 Result := nil;
 if (Addr = '') then
 begin
   if UseWSDL then
     Addr := defWSDL
   else
     Addr := defURL;
 end;
 if HTTPRIO = nil then
   RIO := THTTPRIO.Create(nil)
 else
   RIO := HTTPRIO;

 RIO.HTTPWebNode.UserName := V_UserName;
 RIO.HTTPWebNode.Password := V_Password;
 RIO.HTTPWebNode.ConnectTimeout :=V_timeout;
 RIO.HTTPWebNode.ReceiveTimeout :=V_timeout;
 RIO.HTTPWebNode.SendTimeout    :=V_timeout;

 try
   Result := (RIO as ZSD_EP_ORDER);
   if UseWSDL then
   begin
     RIO.WSDLLocation := Addr;
     RIO.Service := defSvc;
     RIO.Port := defPrt;
   end else
     RIO.URL := Addr;
 finally
   if (Result = nil) and (HTTPRIO = nil) then
     RIO.Free;
 end;
end;