SOAPクライアントの作り方 (ID：27988)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

例えば、カテゴリに関する情報を取得するなら、categoryIDを指定して
GetCategory手続きを呼び出すと、categoryName, categoryPathなどの引数に
その値が返って来ることになるかな...
直接オークションIDを指定して、その情報を取得する関数はないような...

uses YahooAuctionService;

procedure TForm1.Button1Click(Sender: TObject);
var
  YahooAuction: YahooAuctionServicePortType;
  categoryID: Integer;
  categoryName: WideString;
  categoryPath: WideString;
  parentCategoryPath: WideString;
  IsLeaf: Boolean;
  childCategoryNum: Integer;
  item: childCategory;
  ChildCategoryID: array of Integer;
  ChildCategoryName: array of WideString;
  ChildNumOfAuctions: array of Integer;
  ChildIsLeaf: array of Boolean;
  i: Integer;
begin
  YahooAuction := GetyahooAuctionServicePortType(False{True}, '', nil);
  YahooAuction.GetCategory(categoryID, categoryName, categoryPath, parentCategoryPath, isLeaf, childCategoryNum, item);
  SetLength(ChildCategoryID, ChildNumOfAuctions);
  SetLength(ChildCategoryName, ChildNumOfAuctions);
  SetLength(ChildNumOfAuctions, ChildNumOfAuctions);
  SetLength(ChildIsLeaf, ChildNumOfAuctions);
  for i:=0 to ChildNumOfAuctions-1 do begin
   ChildCategoryID[i] := item.resultElements[i].categoryID;
   ChildCategoryName[i] := item.resultElements[i].categoryName;  
   ChildNumOfAuctions[i] := item.resultElements[i].numOfAuctions;  
   ChildIsLeaf[i] := item.resultElements[i].isLeaf;
  end;  
end;

←解決時は質問者本人がここをチェックしてください。

戻る