Probleme mit eBay Api benutzung

[saschab]

@SCP:
Hi,
habe es geschafft
also Du musst als erstes unter sandbox.ebay.com einen Testuser anlegen. Danach erzeugst Du in Deinem Delphiprogramm einen ValidateTestUserRegistrationCall, diesen sendest Du mit dem angelegten Usernamen und Passwort ab. Danach kannst Du Items einstellen.
Hier der Quelltext :

Code:

procedure Tfrm_ebay_test_suite.btn_validate_test_userClick(
  Sender: TObject);
var
  callSession : IApiSession;
  vc : IValidateTestUserRegistrationCall;
begin
  callSession := CoApiSession.Create;
  callSession.Developer := ed_devid.Text;
  callSession.Application := ed_appid.Text;
  callSession.Certificate := ed_certid.Text;
  callSession.RequestUserId := ed_ebay_userid.Text;
  callSession.RequestPassword := ed_ebay_pass.Text;
  callSession.Url := ed_ebay_apiurl.Text;
  ShowMessage('CallSession Created !');

  ApiSession1.ConnectTo(callSession);

  vc := CoValidateTestUserRegistrationCall.Create;
  ValidateTestUserRegistrationCall1.ConnectTo(vc);

  ApiCall1.ConnectTo(ValidateTestUserRegistrationCall1.APICall);
  ApiCall1.ApiCallSession := ApiSession1.DefaultInterface;

  try
    ValidateTestUserRegistrationCall1.ValidateTestUserRegistration; 
  except
    on E: EOleException do
      Showmessage(e.ClassName + ': ' + E.Message);
    else
      raise;
  end;
  ShowMessage('Done !!!!');
end;

Danach kannst Du Mit einem AddItemCall Items einstellen.
Ach ja bei Dir im Programm fehlte noch die Akzepierte Bezahlmethode und die UUid:

Code:

  eBayItem1.Uuid.NewGuid;
  eBayItem1.PaymentTerms.Set_VisaMaster(True);