Конференция "Сети" » Call SAP Service without importing [D7]
 
  • A Memmedov (06.06.18 12:27) [0]
    Pri 2 om poste (IdHTTP.Post(p_url, v_Request2, response2);) polucayu osibki
    http/1.1 500 internal server error . Kto nibut smojet naytiosibku?

    Function GetSoapXMLResult(p_url,p_username,p_password,p_barcode: AnsiString;p_salepoint:string): Integer;
     var
       IdHTTP     : TIdHTTP;
       v_tt : WideString;
       XML_Result1 : WideString;

       XML_Result2 : WideString;
       V_Url      : String;
       F          : TextFile;
       response1   : TStringStream;
       response2   : TStringStream;
       v_XmlData1  : wideString;
       v_XmlData2  : wideString;
       v_Request1  : TStream;
       v_Request2  : TStream;
       v_result : Integer;
         LHandler: TIdSSLIOHandlerSocketOpenSSL;
     begin
         v_XmlData1 :=CreateSoapRequestWeb(p_username,p_password,p_barcode,1,p_salepoint );
         v_XmlData2 :=CreateSoapRequestWeb(p_username,p_password,p_barcode,2,p_salepoint);
         v_Request1 := TStringStream.Create(v_XmlData1, TEncoding.UTF8, true);
         v_Request2 := TStringStream.Create(v_XmlData2, TEncoding.UTF8, true);
         response1   := TStringStream.Create('', TEncoding.UTF8);
         response2   := TStringStream.Create('', TEncoding.UTF8);

         LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
         IdHTTP := TIdHTTP.Create();
         IdHTTP.IOHandler:=LHandler;
         IdHTTP.ConnectTimeout:=30000;
         IdHTTP.Request.ContentType  :='application/soap+xml';
         IdHTTP.Request.BasicAuthentication:= true;
         IdHTTP.Request.Username := p_username;
         IdHTTP.Request.Password := p_password;

         IdHTTP.Response.ContentType     :='application/soap+xml';
         IdHTTP.Response.ContentEncoding :='UTF-8';

         try
           IdHTTP.Post(p_url, v_Request1, response1);
           XML_Result1 :=response1.DataString;
         except
           v_Request1.Free;
           v_Request2.Free;
           response1.Free;
           response2.Free;
           IdHTTP.Free;
           GetSoapXMLResult:=-3;
           Exit;
         End;
         v_result:=XML_Result1
         Sleep(500);
         if v_result='200'  then
         Begin
           try
             IdHTTP.Post(p_url, v_Request2, response2);
             XML_Result2 :=response2.DataString;
           except
             v_Request1.Free;
             v_Request2.Free;
             response1.Free;
             response2.Free;
             IdHTTP.Free;
             GetSoapXMLResult:=-4;
             Exit;
           End;
           v_Request1.Free;
           v_Request2.Free;
           response1.Free;
           response2.Free;
           IdHTTP.Disconnect();
           IdHTTP.Free;
           v_result:=XML_Result2;
           if v_result='200'   then
             GetSoapXMLResult:=2
           else
             GetSoapXMLResult:=-v_result;

         end
         else
         Begin
           v_Request1.Free;
           v_Request2.Free;
           response1.Free;
           response2.Free;
           IdHTTP.Disconnect();
           IdHTTP.Free;
           GetSoapXMLResult:=-v_result;
         End;

     end;
 
Конференция "Сети" » Call SAP Service without importing [D7]
Есть новые Нет новых   [93443   +21][b:0.001][p:0.001]