Hallo,
Ja klar!
Bin auch schon so weit:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
SiteID, appID, devID, certID, version, requestURL, user: String;
service: RequesterCredentials;
request: GeteBayOfficialTimeRequestType;
Response: GeteBayOfficialTimeResponseType;
DateTime: String;
begin
siteId := '77'; //Deutsch!
appId := ''; // use your app ID
devId := ''; // use your dev ID
certId := ''; // use your cert ID
user := '' ; //TokenID
version := '405';
service := ebaySvc.RequesterCredentials.Create;
service.eBayAuthToken := user;
service.Credentials := ebaySvc.UserIdPasswordType.Create;
service.Credentials.AppId := appID;
service.Credentials.DevId := devID;
service.Credentials.AuthCert := certID;
//Nun wird der Aufruf gestartet (OffizelleZeit!)
request := ebaySvc.GeteBayOfficialTimeRequestType.Create;
request.Version := version;
response := ebaySvc.eBayAPIInterface('').GeteBayOfficialTime(request); //Hier hängt es noch
datetime := response.Timestamp.NativeToXS; //DateTimeToStr(response.Timestamp.AsDateTime);
ShowMessage('Die offizelle Zeit ist:'+ datetime);
end;
Ich weiß, dass es nicht schön ist, aber ich versuche ja auch nur mal einen response zu bekommen.
Mach ich was falsch? Oder bin ich nur Blind!
Bei eBayAPIInterface('') muss noch was in die Klammer! Aber ich weiß nicht was ich da rein nehmen könnte
