Probleme mit eBay Api benutzung

[scp]

Eine UUID wird automatisch erstellt. Wenn du eine neue haben willst, brauchste nur das hier machen:

Delphi-Quellcode:

  eBayItem1.Uuid.NewGuid;

Um die UUID als string zu bekommen, z.B.:

Delphi-Quellcode:

  ShowMessage(eBayItem1.Uuid.ToString);

Da hast du ja schon ein paar Sachen rausgefunden, gut das ich das mit der Currency und der Anmeldung jetzt weis, das mit der Creditcard Sache ist natürlich doof.

[saschab]

@scp:
Ui stimmt hätte ich ja auch selbst drauf kommen können mit der Uuid, war anscheinen schon was Spät gestern :)
Das mit der Anmeldung werde ich nacher nochmal probieren, ansonnsten bekommen die developer Admins von eBay ne Mail von mir :mrgreen:

[saschab]

@SCP:
Hi,
habe es geschafft :-D :-D
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);

[scp]

Cool!!! Es funzt tatsächlich. Nicht schlecht. :-D

[saschab]

@scp: Jep finde ich auch Cool, hast Du vielleicht ne Ahnung wie ich eine Item.Discription dazu bewegen kann eine HTML Seite anzuzeigen (wie Bei einstellung von hand das ich den Quelltext an eBay übergebe? :gruebel:

[scp]

Evtl. über ne Stringlist:

Delphi-Quellcode:

var
  StrList : TStringList;

//...

StrList := TStringList.Create;
try
  StrList.LoadFromFile('C:\irgendeine.htm');
  Item.Description := StrList.Text;
finally
  StrList.Free;
end;

[saschab]

@scp:
Yep, genau so geht's :-D so nü hab ich fast alles zusammen was ich für mein Proggy brauche. Muss mich jetzt mal mit den Categorien befassen (auslesen, setzen u.s.w) hast Du vielleicht schon damit erfahrungen gemacht ?
Ach ja weist Du vielleicht wie das mit den Bildereinstellen geht in der SDK Hilfe steht was von wegen in ein String Array schreiben. Würde gerne ein Bild von meinem Rechner nehmen un zur Auktion stellen nur wie kapier ich noch nicht ganz ? Ne Idee vielleicht ?

[scp]

So, habe mal mein Beispiel korrigiert und erweitert. Wer sich damit ausser uns beiden beschäftigen will, hat somit jetzt ne ganz gute Grundlage, ohne gross rumprobieren zu müssen.

eBay SDK Erweiterung für Delphi

[saschab]

@scp: Hi, hast Du schon was rausbekommen wie man die Categorien von Ebay laden kann oder ein Bild einstellen kann ? Ach ja habe gerade mal ganz kurz Dein neues Sample probiert da ist noch irgendein Fehler Drinne das Läuft nicht bei mir :-(

[scp]

Etwa so:

Delphi-Quellcode:

var
  callSession : IApiSession;
  gcc : IGetCategoriesCall;
  acc : ICategoryCollection;
  i:integer;
begin
  callSession := CoApiSession.Create;
  callSession.Developer := actForm.DevId.Text;
  callSession.Application := actForm.AppId.Text;
  callSession.Certificate := actForm.CertId.Text;
  callSession.RequestUserId := actForm.UserId.Text;
  callSession.RequestPassword := actForm.UserPwd.Text;
  callSession.Url := actForm.ServerUrl.Text;
  ShowMessage('CallSession Created !');

  ApiSession1.ConnectTo(callSession);

  gcc := CoGetCategoriesCall.Create;
  GetCategoriesCall1.ConnectTo(gcc);

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

  try
    acc := GetCategoriesCall1.GetCategories;
    ItemForm.mTxtCategory.Items.Clear;
    for i := 0 to acc.ItemCount-1 do
      ItemForm.mTxtCategory.Items.AddObject(acc.Item[i].CategoryName, TObject(acc.Item[i].CategoryId));
  except
    on E: EOleException do
      Showmessage(e.ClassName + ': ' + E.Message);
    else
      raise;
  end;
  ShowMessage('Done !!!!');

end;

Jetzt muss man nur noch die Baumstruktur der Kategorien wiederherstellen.