DJ

DJW

    1. 2025-01-04 19:30
    2. 2012-09-06 22:25
    3. 192 wizyt

    Wpisy DJW na mikroblogu

    DJ
    DJW

    Od jakiegoś czasu piszę dużo zapytań do usług SOAP. Z racji że sam siedziałem nad tematem autoryzacji dosyć długo, postanowiłem opisać kilka przydatnych rzeczy. Pierwsza jaka przychodzi na myśl to dodanie metody autoryzacji UsernameToken Profile w wysyłanej kopercie (Envelope). WSDL importer w Delphi wykona za nas większość pracy jeżeli chodzi o mapowanie struktury do klasy pomocniczej. Następnie zostaje tylko zmodyfikowanie struktury koperty tuż przed jej wysłaniem i dodanie sekcji Security przed body w ciele koperty. Kod mówi sam za siebie:

    Kopiuj
    unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  Soap.InvokeRegistry, System.Net.URLClient, Soap.Rio, Soap.SOAPHTTPClient,
  SynEdit, SynEditHighlighter, SynHighlighterXML, Xml.xmldom, Xml.XMLIntf,
  Xml.XMLDoc,
  msxml;

type
  TForm2 = class(TForm)
    HTTPRIO1: THTTPRIO;
    SOAPRequestXML: TXMLDocument;
    procedure HTTPRIO1BeforeExecute(const MethodName: string;
      SOAPRequest: TStream);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.HTTPRIO1BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
var
  SOAPMessage: IXmlNode;
  SOAPBody: IXmlNode;
  SOAPSecurity: IXMLNode;
  UsernameToken: IXMLNode;
begin
  SOAPRequest.Position := 0;
  SOAPRequestXML.LoadFromStream(SOAPRequest);
  SOAPMessage := SOAPRequestXML.DocumentElement;
  //Dodajemy przestrzeń nazw wss
  SOAPMessage.DeclareNamespace('wss', 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd');

  SOAPBody := SOAPMessage.ChildNodes[0];
  
   //Dodawanie nagłówka Security jako piewszy node koperty
  SOAPSecurity := SOAPMessage.AddChild('wss:Security',0);

  //Dodajemy sekcje Security wraz z tokenem i danymi do uwierzytelnienia
  UsernameToken := SOAPSecurity.AddChild('wss:UsernameToken');
  UsernameToken.AddChild('wss:Username').NodeValue := 'user';
  UsernameToken.AddChild('wss:Password').NodeValue := 'password';
  SOAPRequest.Position:= 0;
  SOAPRequestXML.SaveToStream(SOAPRequest);
end;

end.

    W taki oto sposób możemy zmodyfikować wysyłaną wiadomość do usługi SOAP. Referencje do komponentu HTTPRIO1 przekazujemy podczas wywoływania funkcji dostarczanych przez usługę. Przed samym wysłaniem zapytania zdarzenie BeforeExecute będzie dodawało odpowiednie dane autoryzacyjne do koperty.

    Zobacz całość
    0 głosów Obserwuj Komentuj Udostępnij
    KamilAdam
    KamilAdam

    Ooo, Pascal i SOAP. Brakuje tylko tabliczek glinianych XD

    Poznaj

    Aktywność

    2023-09-06 14:28

    Od jakiegoś czasu piszę dużo zapytań do usług SOAP. Z racji że sam siedziałem nad te...

    -1 pkt za Wpis na mikroblogu
    2023-09-06 14:03

    gg

    2023-09-06 14:03

    gg

    1 pkt za Edycja strony
    2012-09-06 23:58

    EndOfTheMonth

    1 pkt za Edycja strony
    2012-09-06 23:56

    EndOfTheMonth

    1 pkt za Edycja strony
    2012-09-06 23:46

    EndOfTheMonth

    1 pkt za Edycja strony
    2012-09-07 00:09

    EndOfTheDay

    1 pkt za Edycja strony
    2012-09-06 23:55

    EndOfTheDay

    1 pkt za Edycja strony
    2012-09-06 23:20

    EndOfTheDay

    1 pkt za Edycja strony
    2012-09-06 23:14

    EndOfTheDay

    Historia reputacji

    47 pkt

    Uprawnienia

    • 1
      użycie chińskich znaków w tekście
    • 10
      używanie wspomnień użytkowników
    • 50
      oddawanie głosów na wpisy innych
    • 50
      publikacja URL do strony WWW w profilu
    • 50
      dodanie URL do strony WWW w sygnaturze na forum
    • 300
      dodawanie nowych tagów
    • 1000
      publikacja wątków z krótkim tytułem
    • 10000
      brak reklam banerowych oraz na mikroblogu
    • 10000
      edycja własnych postów do 1 miesiąca od daty napisania

    Sprawdź czym są punkty reputacji i jak możesz je zdobyć