Probleme mit eBay Api benutzung

[scp]

Was genau möchtest du z.B. auswerten? Es gibt viele API-Calls, die komplette Listen der Auktionen nach bestimmten Kriterien zurückliefern, dies zählt dann nur als ein API-Call.
Zum Beispiel:

Delphi-Quellcode:

procedure TFormGetSellerEvents.Button1Click(Sender: TObject);
var
  acbase : Variant {IAPICall};

  gse : IGetSellerEventsCall;
  gseEvents : ISellerEventCollection;
  gseEvt : ISellerEvent;

  gseFailed : boolean;
  i : integer;
begin
  Button1.Enabled := false;

  gse := CreateOleObject('eBay.SDK.API.GetSellerEventsCall') as IGetSellerEventsCall {CoGetSellerEventsCall.Create};

  acbase := gse.APICall;
  acbase.ApiCallSession := FGSEmApiSession;

  //gse.ModTimeFrom := StrToDate(Edit1.Text);
  //gse.ModTimeTo   := StrToDate(Edit2.Text);
  gse.EndTimeFrom := StrToDate(Edit1.Text);
  gse.EndTimeTo   := StrToDate(Edit2.Text);
  gseFailed := false;
  try
    gseEvents := gse.GetSellerEvents;
  except
    On E: EOleSysError do
    begin
      gseFailed := true;
      ShowMessage(E.Message);
    end;
    else
      raise;
  end;

  If not gsefailed then
  begin
    Label3.Caption := IntToStr(gseEvents.ItemCount) + ' Events';
    for i := 0 to gseEvents.ItemCount-1 do
      with ListView1.Items.Add do
      begin
        gseEvt := gseEvents.ItemAt(i);
        Caption := gseEvt.ItemId;
        SubItems.Add(gseEvt.Title);
        SubItems.Add(FloatToStrF(gseEvt.CurrentPrice, ffCurrency, 18, 2));
      end;
  end;

  Button1.Enabled := true;
end;