Exchange Web Services Anbindung

[delphseb]

Zitat von mkinzler:

Ist das Zertifikat gültig oder wurde die Prüfung deaktiviert?

Die Prüfung des Zertifikats ist deaktiviert (unter InvokeOptions steht soIgnoreInvalidCerts auf true).

Zitat von Union:

Also Deine Routine HTTPRIOBeforeExecute schleust auf jeden Fall einen Fehler ein. Im finally muss nochmals SOAPRequest.Position := 0; rein, sonst wird er auf eof stehen.

Danke für den Hinweis, ist abgeändert.

Leider bleibt das Problem weiterhin bestehen.

[Union]

Welche EWS-Version setzt Du da ein? Ich habe bei ResolveNames nur 6 Parameter. Und welche URL verwendest Du?

[delphseb]

Melde mich etwas spät, aber inzwischen habe ich es tatsächlich geschafft, einen Response vom Server zu erhalten. Jetzt folgt aber mein nächstes Problem. Ich möchte über eine FindItem-Funktion meine Kalendereinträge auslesen, das Problem ist jedoch, dass sie scheinbar nicht in lFindItemResponse gespeichert werden, obwohl der Response sie anzeigt.
Somit wird zum Beispiel die Textbox Edit1 mit dem Wert 0 gefüllt, obwohl TotalItemsInView im Response 26 anzeigt.

Code:

unit Form_Main;

interface

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

type
  TForm1 = class(TForm)
    HTTPRIO: THTTPRIO;
    btn1: TButton;
    mmoLog: TMemo;
    ListBox1: TListBox;
    ListView1: TListView;
    Edit1: TEdit;
    procedure HTTPRIOAfterExecute(const MethodName: string;
      SOAPResponse: TStream);
    procedure btn1Click(Sender: TObject);
    procedure HTTPRIOBeforeExecute(const MethodName: string;
      SOAPRequest: TStream);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses
  services, XSBuiltIns;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
    lESB: ExchangeServicePortType;
    lServerVer: ServerVersionInfo;
    lReqVersion: RequestServerVersion;
    lSSC: SerializedSecurityContext;
    lImpers: ExchangeImpersonation;
    lGetItemResponse: GetItemResponse;
    lFindItem: FindItem;
    lFindItemResponse: FindItemResponse;
    lFindItemResponseMessage: FindItemResponseMessageType;
    lCalendar: CalendarItemType;
begin
    lReqVersion := RequestServerVersion.Create;
    lReqVersion.Version := ExchangeVersionType.Exchange2007;
    lServerVer := ServerVersionInfo.Create;

    lSSC := SerializedSecurityContext.Create;
    lSSC.UserSid:= 'pda2';
    lImpers := ExchangeImpersonation.Create;
    lImpers.ConnectingSID := ConnectingSIDType.Create;
    lESB := (HTTPRIO as ExchangeServicePortType);

    lFindItem := FindItem.Create;
    lFindItem.CalendarView  :=CalendarViewType.Create;
    lFindItem.CalendarView.StartDate :=TXSDateTime.Create;
    lFindItem.CalendarView.EndDate:=TXSDateTime.Create;
    lFindItem.CalendarView.StartDate.XSToNative('2013-01-01T00:00:00Z');
    lFindItem.CalendarView.EndDate.XSToNative('2013-12-31T00:00:00Z');

    lFindItemResponse := FindItemResponse.Create;

    lFindItem.ItemShape := ItemResponseShapeType.Create;
    lFindItem.ItemShape.BaseShape := DefaultShapeNamesType.AllProperties;

    lFindItem.ParentFolderIds := NonEmptyArrayOfBaseFolderIdsType.Create;
    lFindItem.ParentFolderIds.DistinguishedFolderId := DistinguishedFolderIdType.Create;
    lFindItem.ParentFolderIds.DistinguishedFolderId.Id := DistinguishedFolderIdNameType.calendar;
    lFindItem.Traversal :=ItemQueryTraversalType.Shallow;

     lFindItemResponse.ResponseMessages := ArrayOfResponseMessagesType.Create;

     lESB.FindItem(
      lFindItem,
      lImpers,
      lSSC,              // Impersonation
      'x',               // MailboxCulture
      lReqVersion,
      lFindItemResponse,
      lServerVer);

    lFindItemResponse.ResponseMessages.FindItemResponseMessage :=FindItemResponseMessageType.Create;
    lFindItemResponse.ResponseMessages.FindItemResponseMessage.ResponseClass := ResponseClassType.Success;

    lFindItemResponse.ResponseMessages.FindItemResponseMessage.ResponseCode := ResponseCodeType.NoError;
    lFindItemResponse.ResponseMessages.FindItemResponseMessage.MessageXml := MessageXml.Create;

    lFindItemResponse.ResponseMessages.FindItemResponseMessage.RootFolder := FindItemParentType.Create;
    lFindItemResponse.ResponseMessages.FindItemResponseMessage.RootFolder.IncludesLastItemInRange := true;
    lFindItemResponse.ResponseMessages.FindItemResponseMessage.RootFolder.Items := ArrayOfRealItemsType.Create;
    lFindItemResponse.ResponseMessages.FindItemResponseMessage.RootFolder.Items.Item := ItemType.Create;
    lFindItemResponse.ResponseMessages.FindItemResponseMessage.RootFolder.Items.CalendarItem := CalendarItemType.Create;

    Edit1.Text :=  FloatToStr(lFindItemResponse.ResponseMessages.FindItemResponseMessage.RootFolder.TotalItemsInView);

end;

procedure TForm1.HTTPRIOAfterExecute(const MethodName: string;
  SOAPResponse: TStream);
var
   TS: TStringStream;
   S : String;
begin
   S := MmoLog.Text + #13#10#13#10 + 'Response:' + #13#10#13#10;
   TS := TStringStream.Create(S);
   try
      TS.Position := Length(S);
      SOAPResponse.Position := 0;
      TS.CopyFrom(SOAPResponse,SOAPResponse.Size);
      TS.Position := 0;
      MmoLog.Lines.LoadFromStream(TS);
   finally
      SOAPResponse.Position := 0;
      TS.Free;
   end;
end;

procedure TForm1.HTTPRIOBeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
var
   TS: TStringStream;
   S : String;
begin
   S := MmoLog.Text + #13#10#13#10 + 'Request:' + #13#10#13#10;
   TS := TStringStream.Create(S);
   try
      TS.Position := Length(S);
      SOAPRequest.Position := 0;
      TS.CopyFrom(SOAPRequest,SOAPRequest.Size);
      TS.Position := 0;
      MmoLog.Lines.LoadFromStream(TS);
   finally
      SOAPRequest.Position := 0;
      TS.Free;
   end;
end;

end.

[schotti65]

Zitat von delphseb:

Melde mich etwas spät, aber inzwischen habe ich es tatsächlich geschafft, einen Response vom Server zu erhalten....

Keine 5 Jahre später habe ich das gleiche Problem.
Wie hattest du denn das Problem mit "URL-Endpunkt für Service/Port ... kann nicht von WSDL ... gelesen werden" gelöst?