PayPal SOAP Konto Bewegungen abfragen

[franktron]

Wie kann ich die Kontobewegungen von einem PayPal Konto abfragen.

Ich nutze XE2 und die WDSL habe ich importiert, ich habe aber noch nie mit WDSL gearbeitet.

[vagtler]

http://bfy.tw/AQl

Oder hast Du eine konkrete Frage?

[franktron]

Das Problem ist welche Funktionen das sind die importierte Pas ist über 30000 Zeilen lang und ich finde da nicht wirklich was.

[franktron]

Ich habe ein .Net Code gefunden, kann den jemand auf Delphi übersetzen

Code:

var client = new PayPalAPIInterfaceClient();

        var credentials = new CustomSecurityHeaderType
        {
            Credentials = new UserIdPasswordType
            {
                Username = PaypalUsername,
                Password = PaypalPassword,
                Signature = PaypalSignature
            }
        };
        var request = new TransactionSearchReq
        {
            TransactionSearchRequest = new TransactionSearchRequestType
            {
                StartDate = DateTime.Now.AddYears(-1),
                Status = PaymentTransactionStatusCodeType.Success,
                Version = "95.0"
            }
        };

        var response = client.TransactionSearch(ref credentials, request);

[vagtler]

Zitat von franktron:

Das Problem ist welche Funktionen das sind die importierte Pas ist über 30000 Zeilen lang und ich finde da nicht wirklich was.

Wer sucht denn in der .PAS?

Das ist doch alles dokumentiert?!?

https://developer.paypal.com/docs/cl...peration_SOAP/

Und mit dem PayPal API Explorer kannst Du auch alles ausprobieren.

https://devtools-paypal.com/apiexplorer/PayPalAPIs

Ansonsten verweise ich gerne wieder auf die schon genannten SOAP Tutorials.

btw: Muss es SOAP sein? PayPal bietet eine wesentlich modernere REST API.

[vagtler]

Zitat von franktron:

Ich habe ein .Net Code gefunden, kann den jemand auf Delphi übersetzen [...]

Aus dem Kopf, ohne den Proxy-Code zu kennen und einfach nur 1:1 übersetzt:

Code:

client := TPayPalAPIInterfaceClient.Creeate();

credentials := TCustomSecurityHeaderType.Create();
credentials.Credentials := TUserIdPasswordType.Create();
credentials.Credentials.Username := PaypalUsername;
credentials.Credentials.Password := PaypalPassword;
credentials.Credentials.Signature := PaypalSignature;

request := TTransactionSearchReq.Create();
request.TransactionSearchRequest := TTransactionSearchRequestType.Create();
request.TransactionSearchRequest.StartDate = DateTime.Now.AddYears(-1),
request.TransactionSearchRequest.Status = PaymentTransactionStatusCodeType.Success,
request.TransactionSearchRequest.Version = "95.0"

response := client.TransactionSearch(credentials, request);

Ich wage aber zu bezweifeln, dass das einerseits funktioniert und das andererseits die richtige Vorgehensweise ist.

[franktron]

Also ich habs jetzt aber ein Problem hab ich noch.

Delphi-Quellcode:

CurrencyCodeType = (
      AFA, 
      ALL, 
      DZD, 
      ADP, 
      AOA, 
      ARS, 
      AMD, 
      AWG, 
      AZM, 
      BSD, 
      BHD, 
      BDT, 
      ....
)
Response.PaymentTransactions[i].NetAmount.currencyID;

Wie kann ich den Response.PaymentTransactions[i].NetAmount.currencyID; in ein String umwandeln

[vagtler]

http://bfy.tw/BTO

Übrigens wäre es für Leute mit ähnlichen Problemen sicherlich sehr nett und hilfreich, wenn Du Deine Lösung auch hier zur Verfügung stellen würdest.

[TiGü]

Zitat von franktron:

Wie kann ich den Response.PaymentTransactions[i].NetAmount.currencyID; in ein String umwandeln

Wie der Zufall es will, gab es dazu erst neulich einen Blog-Post mit drei verschiedenen Möglichkeiten:
http://www.delphifeeds.com/go/f/1266...hiFeeds.com%29

[franktron]

Zitat von TiGü:

Zitat von franktron:

Wie kann ich den Response.PaymentTransactions[i].NetAmount.currencyID; in ein String umwandeln

Wie der Zufall es will, gab es dazu erst neulich einen Blog-Post mit drei verschiedenen Möglichkeiten:
http://www.delphifeeds.com/go/f/1266...hiFeeds.com%29

Danke für die Infos aber alle Methoden gehen unter XE2 nicht.

function GetEnumName(TypeInfo: PTypeInfo; Value: Integer): string; Definition von GetEnumName will integer warum auch immer.

TRttiEnumerationType.GetName Getname ist Privat