AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Exchange Web Services Anbindung

Ein Thema von delphseb · begonnen am 13. Aug 2013 · letzter Beitrag vom 10. Apr 2018
 
delphseb

Registriert seit: 13. Aug 2013
5 Beiträge
 
#1

Exchange Web Services Anbindung

  Alt 13. Aug 2013, 14:48
Hallo,

ich nutze Delphi XE und muss eine Anbindung zu einer EWS-Schnittstelle herstellen. Mein Problem liegt darin, dass wenn ich aus der Tool-Palette das THTTPRIO-Element auswähle und die WSDL-Location angebe, keinen Service und Port auswählen kann und ich beim Compilieren folgenden Codes

Code:
unit FMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, InvokeRegistry, Rio, SOAPHTTPClient;

type
  TForm1 = class(TForm)
    Button1: TButton;
    HTTPRIO: THTTPRIO;
    procedure Button1Click(Sender: TObject);
    procedure HTTPRIOBeforeExecute(const MethodName: string;
      SOAPRequest: TStream);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  Services, Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  lESB : ExchangeServicePortType;
  lServerVer: ServerVersionInfo;
  lResNames: ResolveNames;
  lReqVersion: RequestServerVersion;
  lResResult: ResolveNamesResponse;
begin
   lServerVer := ServerVersionInfo.Create;
   lResNames  := ResolveNames.Create;
   lReqVersion := RequestServerVersion.Create;
   lResResult := ResolveNamesResponse.Create;
   lESB := (HTTPRIO as ExchangeServicePortType);
   lESB.ResolveNames(lResNames,
                           nil,             // Impersonation
                           nil,
                           '',             // MailboxCulture
                           lReqVersion,
                           lResResult,
                           lServerVer);
end;

procedure TForm1.HTTPRIOBeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SOAPRequest.Position := 0;
    SL.LoadFromStream(SOAPRequest);
  finally
    FreeAndNil(SL);
  end;
  Clipboard.AsText := SL.Text;
end;

end.
die Fehlermeldung erhalte, dass der "URL-Endpunkt für Service "/" Port nicht von WSDL 'https://[...].wsdl' gelesen werden kann". Selbst stundenlangenes Googlen hat bisher keinen Erfolg gebracht. Ich hoffe, ihr könnt helfen.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz