|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(DataFlex) MercadoLibre - Search Orders from a BuyerSearch for orders from a buyer. For more information, see https://developers.mercadolibre.com.ar/es_ar/gestiona-ventas#Como-filtrar
Use ChilkatAx-win32.pkg Procedure Test Handle hoHttp Handle hoJsonToken Boolean iSuccess Variant vSbResponseBody Handle hoSbResponseBody Handle hoJResp Integer iRespStatusCode Variant vDate_closed Handle hoDate_closed Variant vDate_last_updated Handle hoDate_last_updated Variant vDate_created Handle hoDate_created Variant vDate_approved Handle hoDate_approved Variant vDate_last_modified Handle hoDate_last_modified String sSellerPhoneNumber String sSellerPhoneExtension String sSellerPhoneArea_code Boolean iSellerPhoneVerified String sSellerAlternative_phoneNumber String sSellerAlternative_phoneExtension String sSellerAlternative_phoneArea_code String sSellerNickname String sSellerLast_name Integer iSellerId String sSellerFirst_name String sSellerEmail Boolean iFulfilled String sBuying_mode String sTaxesAmount String sTaxesCurrency_id String sOrder_requestChange String sOrder_requestReturn String sExpiration_date String sFeedbackSale String sFeedbackPurchase Integer iShippingId Integer iId String sManufacturing_ending_date Boolean iHidden_for_seller String sLast_updated String sComments String sPack_id Integer iCouponAmount String sCouponId Integer iShipping_cost String sApplication_id String sPickup_id String sStatus_detail String sBuyerBilling_infoDoc_number String sBuyerBilling_infoDoc_type String sBuyerPhoneNumber String sBuyerPhoneExtension String sBuyerPhoneArea_code Boolean iBuyerPhoneVerified String sBuyerAlternative_phoneNumber String sBuyerAlternative_phoneExtension String sBuyerAlternative_phoneArea_code String sBuyerNickname String sBuyerLast_name Integer iBuyerId String sBuyerFirst_name String sBuyerEmail String sTotal_amount String sPaid_amount String sCurrency_id String sStatus Integer j Integer iCount_j String sReason String sStatus_code String sTotal_paid_amount String sOperation_type String sTransaction_amount Integer iCollectorId String sCoupon_id Integer iInstallments String sAuthorization_code Integer iTaxes_amount Integer iCoupon_amount String sInstallment_amount String sActivation_uri Integer iOverpaid_amount Integer iCard_id String sIssuer_id String sPayment_method_id String sPayment_type String sDeferred_period String sAtm_transfer_referenceTransaction_id String sAtm_transfer_referenceCompany_id String sSite_id Integer iPayer_id String sMarketplace_fee Integer iOrder_id String sTransaction_order_id Integer k Integer iCount_k String sStrVal String sItemSeller_custom_field String sItemCondition String sItemCategory_id String sItemVariation_id String sItemSeller_sku String sItemWarranty String sItemId String sItemTitle Integer iQuantity String sDifferential_pricing_id String sSale_fee String sListing_type_id String sBase_currency_id String sUnit_price String sFull_unit_price String sBase_exchange_rate String sManufacturing_days String sId_str String sName String sQuery String sSortId String sSortName Integer iPagingTotal Integer iPagingOffset Integer iPagingLimit String sDisplay Integer i Integer iCount_i String sTemp1 // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End // First get our previously obtained OAuth2 access token. Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken If (Not(IsComObjectCreated(hoJsonToken))) Begin Send CreateComObject of hoJsonToken End Get ComLoadFile Of hoJsonToken "qa_data/tokens/mercadolibre.json" To iSuccess // Implements the following CURL command: // curl -X GET https://api.mercadolibre.com/orders/search?buyer=$BUYER_ID&access_token=$ACCESS_TOKEN // Use the following online tool to generate HTTP code from a CURL command // Convert a cURL Command to HTTP Source Code Get ComStringOf Of hoJsonToken "access_token" To sTemp1 Get ComSetUrlVar Of hoHttp "access_token" sTemp1 To iSuccess // Use an actual buyer ID here.. Get ComSetUrlVar Of hoHttp "buyer_id" "577815702" To iSuccess Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody If (Not(IsComObjectCreated(hoSbResponseBody))) Begin Send CreateComObject of hoSbResponseBody End Get pvComObject of hoSbResponseBody to vSbResponseBody Get ComQuickGetSb Of hoHttp "https://api.mercadolibre.com/orders/search?buyer={$buyer_id}&access_token={$access_token}" vSbResponseBody To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Showln "Response Header:" Get ComLastHeader Of hoHttp To sTemp1 Showln sTemp1 Showln "----" Showln "Response Body:" Get ComGetAsString Of hoSbResponseBody To sTemp1 Showln sTemp1 Showln "Failed." Procedure_Return End Get Create (RefClass(cComChilkatJsonObject)) To hoJResp If (Not(IsComObjectCreated(hoJResp))) Begin Send CreateComObject of hoJResp End Get pvComObject of hoSbResponseBody to vSbResponseBody Get ComLoadSb Of hoJResp vSbResponseBody To iSuccess Set ComEmitCompact Of hoJResp To False Showln "Response Body:" Get ComEmit Of hoJResp To sTemp1 Showln sTemp1 Get ComLastStatus Of hoHttp To iRespStatusCode Showln "Response Status Code = " iRespStatusCode If (iRespStatusCode >= 400) Begin Showln "Response Header:" Get ComLastHeader Of hoHttp To sTemp1 Showln sTemp1 Showln "----" Showln "Response Body:" Get ComGetAsString Of hoSbResponseBody To sTemp1 Showln sTemp1 Showln "Failed." Procedure_Return End // Sample JSON response: // (Sample code for parsing the JSON response is shown below) // { // "query": "2032217210", // "results": [ // { // "seller": { // "phone": { // "number": "11971427863", // "extension": "", // "area_code": null, // "verified": false // }, // "alternative_phone": { // "number": "", // "extension": "", // "area_code": "" // }, // "nickname": "VENDASDKMB", // "last_name": "Cheracomo", // "id": 239432672, // "first_name": "Demétrio", // "email": "dcherac.8m6k0q+2-ogiydgmrsge3tenby@mail.mercadolivre.com" // }, // "payments": [ // { // "reason": "Kit Com 03 Adesivo Spray 3m 75 Cola Silk Sublimação 300g", // "status_code": null, // "total_paid_amount": 129.95, // "operation_type": "regular_payment", // "transaction_amount": 129.95, // "date_approved": "2019-05-22T03:51:07.000-04:00", // "collector": { // "id": 239432672 // }, // "coupon_id": null, // "installments": 1, // "authorization_code": "008877", // "taxes_amount": 0, // "id": 4792155710, // "date_last_modified": "2019-05-22T03:51:07.000-04:00", // "coupon_amount": 0, // "available_actions": [ // "refund" // ], // "shipping_cost": 0, // "installment_amount": 129.95, // "date_created": "2019-05-22T03:51:05.000-04:00", // "activation_uri": null, // "overpaid_amount": 0, // "card_id": 203453778, // "status_detail": "accredited", // "issuer_id": "24", // "payment_method_id": "master", // "payment_type": "credit_card", // "deferred_period": null, // "atm_transfer_reference": { // "transaction_id": "135292", // "company_id": null // }, // "site_id": "MLB", // "payer_id": 89660613, // "marketplace_fee": 14.290000000000001, // "order_id": 2032217210, // "currency_id": "BRL", // "status": "approved", // "transaction_order_id": null // } // ], // "fulfilled": true, // "buying_mode": "buy_equals_pay", // "taxes": { // "amount": null, // "currency_id": null // }, // "order_request": { // "change": null, // "return": null // }, // "expiration_date": "2019-06-19T03:51:07.000-04:00", // "feedback": { // "sale": null, // "purchase": null // }, // "shipping": { // "id": 27968238880 // }, // "date_closed": "2019-05-22T03:51:07.000-04:00", // "id": 2032217210, // "manufacturing_ending_date": null, // "hidden_for_seller": false, // "order_items": [ // { // "item": { // "seller_custom_field": null, // "condition": "new", // "category_id": "MLB33383", // "variation_id": null, // "variation_attributes": [ // ], // "seller_sku": null, // "warranty": "Garantia de 1 ano fabricante", // "id": "MLB1054990648", // "title": "Kit Com 03 Adesivo Spray 3m 75 Cola Silk Sublimação 300g" // }, // "quantity": 1, // "differential_pricing_id": null, // "sale_fee": 14.29, // "listing_type_id": "gold_special", // "base_currency_id": null, // "unit_price": 129.95, // "full_unit_price": 129.95, // "base_exchange_rate": null, // "currency_id": "BRL", // "manufacturing_days": null // } // ], // "date_last_updated": "2020-02-14T02:55:49.811Z", // "last_updated": "2019-05-28T15:16:04.000-04:00", // "comments": null, // "pack_id": null, // "coupon": { // "amount": 0, // "id": null // }, // "shipping_cost": 0, // "date_created": "2019-05-22T03:51:05.000-04:00", // "application_id": "7092", // "pickup_id": null, // "status_detail": null, // "tags": [ // "delivered", // "paid" // ], // "buyer": { // "billing_info": { // "doc_number": "02183212950", // "doc_type": "CPF" // }, // "phone": { // "number": "99962663", // "extension": "", // "area_code": "41", // "verified": false // }, // "alternative_phone": { // "number": "30576339", // "extension": "", // "area_code": "41" // }, // "nickname": "S.VICTORHUGO", // "last_name": "Schemberger", // "id": 89660613, // "first_name": "Victor Hugo", // "email": "vschemb.y14cdz+2-ogiydgmrsge3tenbz@mail.mercadolivre.com" // }, // "total_amount": 129.95, // "paid_amount": 129.95, // "mediations": [ // ], // "currency_id": "BRL", // "status": "paid" // } // ], // "sort": { // "id": "date_asc", // "name": "Date ascending" // }, // "available_sorts": [ // { // "id": "date_desc", // "name": "Date descending" // } // ], // "filters": [ // ], // "paging": { // "total": 1, // "offset": 0, // "limit": 50 // }, // "display": "complete" // } // Sample code for parsing the JSON response... // Use the following online tool to generate parsing code from sample JSON: // Generate Parsing Code from JSON Get Create (RefClass(cComChilkatDtObj)) To hoDate_closed If (Not(IsComObjectCreated(hoDate_closed))) Begin Send CreateComObject of hoDate_closed End Get Create (RefClass(cComChilkatDtObj)) To hoDate_last_updated If (Not(IsComObjectCreated(hoDate_last_updated))) Begin Send CreateComObject of hoDate_last_updated End Get Create (RefClass(cComChilkatDtObj)) To hoDate_created If (Not(IsComObjectCreated(hoDate_created))) Begin Send CreateComObject of hoDate_created End Get Create (RefClass(cComChilkatDtObj)) To hoDate_approved If (Not(IsComObjectCreated(hoDate_approved))) Begin Send CreateComObject of hoDate_approved End Get Create (RefClass(cComChilkatDtObj)) To hoDate_last_modified If (Not(IsComObjectCreated(hoDate_last_modified))) Begin Send CreateComObject of hoDate_last_modified End Get ComStringOf Of hoJResp "query" To sQuery Get ComStringOf Of hoJResp "sort.id" To sSortId Get ComStringOf Of hoJResp "sort.name" To sSortName Get ComIntOf Of hoJResp "paging.total" To iPagingTotal Get ComIntOf Of hoJResp "paging.offset" To iPagingOffset Get ComIntOf Of hoJResp "paging.limit" To iPagingLimit Get ComStringOf Of hoJResp "display" To sDisplay Move 0 To i Get ComSizeOfArray Of hoJResp "results" To iCount_i While (i < iCount_i) Set ComI Of hoJResp To i Get ComStringOf Of hoJResp "results[i].seller.phone.number" To sSellerPhoneNumber Get ComStringOf Of hoJResp "results[i].seller.phone.extension" To sSellerPhoneExtension Get ComStringOf Of hoJResp "results[i].seller.phone.area_code" To sSellerPhoneArea_code Get ComBoolOf Of hoJResp "results[i].seller.phone.verified" To iSellerPhoneVerified Get ComStringOf Of hoJResp "results[i].seller.alternative_phone.number" To sSellerAlternative_phoneNumber Get ComStringOf Of hoJResp "results[i].seller.alternative_phone.extension" To sSellerAlternative_phoneExtension Get ComStringOf Of hoJResp "results[i].seller.alternative_phone.area_code" To sSellerAlternative_phoneArea_code Get ComStringOf Of hoJResp "results[i].seller.nickname" To sSellerNickname Get ComStringOf Of hoJResp "results[i].seller.last_name" To sSellerLast_name Get ComIntOf Of hoJResp "results[i].seller.id" To iSellerId Get ComStringOf Of hoJResp "results[i].seller.first_name" To sSellerFirst_name Get ComStringOf Of hoJResp "results[i].seller.email" To sSellerEmail Get ComBoolOf Of hoJResp "results[i].fulfilled" To iFulfilled Get ComStringOf Of hoJResp "results[i].buying_mode" To sBuying_mode Get ComStringOf Of hoJResp "results[i].taxes.amount" To sTaxesAmount Get ComStringOf Of hoJResp "results[i].taxes.currency_id" To sTaxesCurrency_id Get ComStringOf Of hoJResp "results[i].order_request.change" To sOrder_requestChange Get ComStringOf Of hoJResp "results[i].order_request.return" To sOrder_requestReturn Get ComStringOf Of hoJResp "results[i].expiration_date" To sExpiration_date Get ComStringOf Of hoJResp "results[i].feedback.sale" To sFeedbackSale Get ComStringOf Of hoJResp "results[i].feedback.purchase" To sFeedbackPurchase Get ComIntOf Of hoJResp "results[i].shipping.id" To iShippingId Get pvComObject of hoDate_closed to vDate_closed Get ComDtOf Of hoJResp "results[i].date_closed" False vDate_closed To iSuccess Get ComIntOf Of hoJResp "results[i].id" To iId Get ComStringOf Of hoJResp "results[i].manufacturing_ending_date" To sManufacturing_ending_date Get ComBoolOf Of hoJResp "results[i].hidden_for_seller" To iHidden_for_seller Get pvComObject of hoDate_last_updated to vDate_last_updated Get ComDtOf Of hoJResp "results[i].date_last_updated" False vDate_last_updated To iSuccess Get ComStringOf Of hoJResp "results[i].last_updated" To sLast_updated Get ComStringOf Of hoJResp "results[i].comments" To sComments Get ComStringOf Of hoJResp "results[i].pack_id" To sPack_id Get ComIntOf Of hoJResp "results[i].coupon.amount" To iCouponAmount Get ComStringOf Of hoJResp "results[i].coupon.id" To sCouponId Get ComIntOf Of hoJResp "results[i].shipping_cost" To iShipping_cost Get pvComObject of hoDate_created to vDate_created Get ComDtOf Of hoJResp "results[i].date_created" False vDate_created To iSuccess Get ComStringOf Of hoJResp "results[i].application_id" To sApplication_id Get ComStringOf Of hoJResp "results[i].pickup_id" To sPickup_id Get ComStringOf Of hoJResp "results[i].status_detail" To sStatus_detail Get ComStringOf Of hoJResp "results[i].buyer.billing_info.doc_number" To sBuyerBilling_infoDoc_number Get ComStringOf Of hoJResp "results[i].buyer.billing_info.doc_type" To sBuyerBilling_infoDoc_type Get ComStringOf Of hoJResp "results[i].buyer.phone.number" To sBuyerPhoneNumber Get ComStringOf Of hoJResp "results[i].buyer.phone.extension" To sBuyerPhoneExtension Get ComStringOf Of hoJResp "results[i].buyer.phone.area_code" To sBuyerPhoneArea_code Get ComBoolOf Of hoJResp "results[i].buyer.phone.verified" To iBuyerPhoneVerified Get ComStringOf Of hoJResp "results[i].buyer.alternative_phone.number" To sBuyerAlternative_phoneNumber Get ComStringOf Of hoJResp "results[i].buyer.alternative_phone.extension" To sBuyerAlternative_phoneExtension Get ComStringOf Of hoJResp "results[i].buyer.alternative_phone.area_code" To sBuyerAlternative_phoneArea_code Get ComStringOf Of hoJResp "results[i].buyer.nickname" To sBuyerNickname Get ComStringOf Of hoJResp "results[i].buyer.last_name" To sBuyerLast_name Get ComIntOf Of hoJResp "results[i].buyer.id" To iBuyerId Get ComStringOf Of hoJResp "results[i].buyer.first_name" To sBuyerFirst_name Get ComStringOf Of hoJResp "results[i].buyer.email" To sBuyerEmail Get ComStringOf Of hoJResp "results[i].total_amount" To sTotal_amount Get ComStringOf Of hoJResp "results[i].paid_amount" To sPaid_amount Get ComStringOf Of hoJResp "results[i].currency_id" To sCurrency_id Get ComStringOf Of hoJResp "results[i].status" To sStatus Move 0 To j Get ComSizeOfArray Of hoJResp "results[i].payments" To iCount_j While (j < iCount_j) Set ComJ Of hoJResp To j Get ComStringOf Of hoJResp "results[i].payments[j].reason" To sReason Get ComStringOf Of hoJResp "results[i].payments[j].status_code" To sStatus_code Get ComStringOf Of hoJResp "results[i].payments[j].total_paid_amount" To sTotal_paid_amount Get ComStringOf Of hoJResp "results[i].payments[j].operation_type" To sOperation_type Get ComStringOf Of hoJResp "results[i].payments[j].transaction_amount" To sTransaction_amount Get pvComObject of hoDate_approved to vDate_approved Get ComDtOf Of hoJResp "results[i].payments[j].date_approved" False vDate_approved To iSuccess Get ComIntOf Of hoJResp "results[i].payments[j].collector.id" To iCollectorId Get ComStringOf Of hoJResp "results[i].payments[j].coupon_id" To sCoupon_id Get ComIntOf Of hoJResp "results[i].payments[j].installments" To iInstallments Get ComStringOf Of hoJResp "results[i].payments[j].authorization_code" To sAuthorization_code Get ComIntOf Of hoJResp "results[i].payments[j].taxes_amount" To iTaxes_amount Get ComIntOf Of hoJResp "results[i].payments[j].id" To iId Get pvComObject of hoDate_last_modified to vDate_last_modified Get ComDtOf Of hoJResp "results[i].payments[j].date_last_modified" False vDate_last_modified To iSuccess Get ComIntOf Of hoJResp "results[i].payments[j].coupon_amount" To iCoupon_amount Get ComIntOf Of hoJResp "results[i].payments[j].shipping_cost" To iShipping_cost Get ComStringOf Of hoJResp "results[i].payments[j].installment_amount" To sInstallment_amount Get pvComObject of hoDate_created to vDate_created Get ComDtOf Of hoJResp "results[i].payments[j].date_created" False vDate_created To iSuccess Get ComStringOf Of hoJResp "results[i].payments[j].activation_uri" To sActivation_uri Get ComIntOf Of hoJResp "results[i].payments[j].overpaid_amount" To iOverpaid_amount Get ComIntOf Of hoJResp "results[i].payments[j].card_id" To iCard_id Get ComStringOf Of hoJResp "results[i].payments[j].status_detail" To sStatus_detail Get ComStringOf Of hoJResp "results[i].payments[j].issuer_id" To sIssuer_id Get ComStringOf Of hoJResp "results[i].payments[j].payment_method_id" To sPayment_method_id Get ComStringOf Of hoJResp "results[i].payments[j].payment_type" To sPayment_type Get ComStringOf Of hoJResp "results[i].payments[j].deferred_period" To sDeferred_period Get ComStringOf Of hoJResp "results[i].payments[j].atm_transfer_reference.transaction_id" To sAtm_transfer_referenceTransaction_id Get ComStringOf Of hoJResp "results[i].payments[j].atm_transfer_reference.company_id" To sAtm_transfer_referenceCompany_id Get ComStringOf Of hoJResp "results[i].payments[j].site_id" To sSite_id Get ComIntOf Of hoJResp "results[i].payments[j].payer_id" To iPayer_id Get ComStringOf Of hoJResp "results[i].payments[j].marketplace_fee" To sMarketplace_fee Get ComIntOf Of hoJResp "results[i].payments[j].order_id" To iOrder_id Get ComStringOf Of hoJResp "results[i].payments[j].currency_id" To sCurrency_id Get ComStringOf Of hoJResp "results[i].payments[j].status" To sStatus Get ComStringOf Of hoJResp "results[i].payments[j].transaction_order_id" To sTransaction_order_id Move 0 To k Get ComSizeOfArray Of hoJResp "results[i].payments[j].available_actions" To iCount_k While (k < iCount_k) Set ComK Of hoJResp To k Get ComStringOf Of hoJResp "results[i].payments[j].available_actions[k]" To sStrVal Move (k + 1) To k Loop Move (j + 1) To j Loop Move 0 To j Get ComSizeOfArray Of hoJResp "results[i].order_items" To iCount_j While (j < iCount_j) Set ComJ Of hoJResp To j Get ComStringOf Of hoJResp "results[i].order_items[j].item.seller_custom_field" To sItemSeller_custom_field Get ComStringOf Of hoJResp "results[i].order_items[j].item.condition" To sItemCondition Get ComStringOf Of hoJResp "results[i].order_items[j].item.category_id" To sItemCategory_id Get ComStringOf Of hoJResp "results[i].order_items[j].item.variation_id" To sItemVariation_id Get ComStringOf Of hoJResp "results[i].order_items[j].item.seller_sku" To sItemSeller_sku Get ComStringOf Of hoJResp "results[i].order_items[j].item.warranty" To sItemWarranty Get ComStringOf Of hoJResp "results[i].order_items[j].item.id" To sItemId Get ComStringOf Of hoJResp "results[i].order_items[j].item.title" To sItemTitle Get ComIntOf Of hoJResp "results[i].order_items[j].quantity" To iQuantity Get ComStringOf Of hoJResp "results[i].order_items[j].differential_pricing_id" To sDifferential_pricing_id Get ComStringOf Of hoJResp "results[i].order_items[j].sale_fee" To sSale_fee Get ComStringOf Of hoJResp "results[i].order_items[j].listing_type_id" To sListing_type_id Get ComStringOf Of hoJResp "results[i].order_items[j].base_currency_id" To sBase_currency_id Get ComStringOf Of hoJResp "results[i].order_items[j].unit_price" To sUnit_price Get ComStringOf Of hoJResp "results[i].order_items[j].full_unit_price" To sFull_unit_price Get ComStringOf Of hoJResp "results[i].order_items[j].base_exchange_rate" To sBase_exchange_rate Get ComStringOf Of hoJResp "results[i].order_items[j].currency_id" To sCurrency_id Get ComStringOf Of hoJResp "results[i].order_items[j].manufacturing_days" To sManufacturing_days Move 0 To k Get ComSizeOfArray Of hoJResp "results[i].order_items[j].item.variation_attributes" To iCount_k While (k < iCount_k) Set ComK Of hoJResp To k Move (k + 1) To k Loop Move (j + 1) To j Loop Move 0 To j Get ComSizeOfArray Of hoJResp "results[i].tags" To iCount_j While (j < iCount_j) Set ComJ Of hoJResp To j Get ComStringOf Of hoJResp "results[i].tags[j]" To sStrVal Move (j + 1) To j Loop Move 0 To j Get ComSizeOfArray Of hoJResp "results[i].mediations" To iCount_j While (j < iCount_j) Set ComJ Of hoJResp To j Move (j + 1) To j Loop Move (i + 1) To i Loop Move 0 To i Get ComSizeOfArray Of hoJResp "available_sorts" To iCount_i While (i < iCount_i) Set ComI Of hoJResp To i Get ComStringOf Of hoJResp "available_sorts[i].id" To sId_str Get ComStringOf Of hoJResp "available_sorts[i].name" To sName Move (i + 1) To i Loop Move 0 To i Get ComSizeOfArray Of hoJResp "filters" To iCount_i While (i < iCount_i) Set ComI Of hoJResp To i Move (i + 1) To i Loop End_Procedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.