PayPal SOAP Konto Bewegungen abfragen

[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

[vagtler]

Zitat von franktron:

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

Das glaube ich nicht, Tim.

Bitte poste Deinen Code.

[franktron]

D_VT1.FieldByName('GrossAmountcurrencyID').Text:=GetEnumName(TypeInfo(CurrencyCodeType),Response.PaymentTransactions[i].NetAmount.currencyID); Fehlermeldung [DCC Fehler] Unit2.pas(83): E2010 Inkompatible Typen: 'Integer' und 'CurrencyCodeType'

Hier nochmal der Code vom RTTI...

Delphi-Quellcode:

TRttiEnumerationType = class(TRttiOrdinalType)
  private
    function GetMaxValue: Longint; override;
    function GetMinValue: Longint; override;
    function GetUnderlyingType: TRttiType;
    constructor Create(APackage: TRttiPackage; AParent: TRttiObject; var P: PByte); override;
    {$HINTS OFF}
    function GetNames: TArray<string>;
    class function GetName<T{: enum}>(AValue: T): string; reintroduce; static;
    class function GetValue<T{: enum}>(const AName: string): T; static;
    {$HINTS ON}
  public
    property UnderlyingType: TRttiType read GetUnderlyingType;
  end;

[vagtler]

Zitat von franktron:

D_VT1.FieldByName('GrossAmountcurrencyID').Text:=GetEnumName(TypeInfo(CurrencyCodeType),Response.PaymentTransactions[i].NetAmount.currencyID); Fehlermeldung [DCC Fehler] Unit2.pas(83): E2010 Inkompatible Typen: 'Integer' und 'CurrencyCodeType' [...]

Du hast den allerersten Treffer meines in http://www.delphipraxis.net/1304215-post8.html geposteten Links ignoriert.

Das Beispiel für GetEnumName in dem von @TiGü genannten Blogpost ist tatsächlich fehlerhaft.

(Aber mal ernsthaft: Da hätte man auf Grund der Fehlermeldung des Compilers aber auch durchaus drauf kommen können...)

[TiGü]

Zitat von 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.

TRttiEnumerationType.GetName Getname ist Privat

Du musst den Typ mitgeben!
Sonst nimmt er die private function GetName aus der Basisklasse TRttiType.
Es ist eine wiedereingeführte generische Klassenfunktion.

Delphi-Quellcode:

uses
  System.Rtti;
...
var
  str : string;
begin
  str := TRttiEnumerationType.GetName<CurrencyCodeType>(Response.PaymentTransactions[i].NetAmount.currencyID);
end;