Ошибка неверный параметр ответа action fcomcon

Поэтому я хочу поставить в очередь некоторые действия, которые будут вызваны.

Немного предыстории: пытаюсь отправлять запросы, используя Webclient, но, по-видимому, он не позволяет использовать очень длинные URL-адреса (до 2000 символов), и обнаружил, что верхняя граница для этого значения в моей системе составляет около 40 элементов (точнее 43). Поэтому мне нужно разбить запросы Webclient на наборы по 40 ~, и я решил сделать это, используя Очередь.

Вот код:

  public void some_method()
        int num = 40; // readonly variable declared at top but put here for clarity
        String hash = "";
        Queue<Action> temp_actions = new Queue<Action>();
        foreach (ItemViewModel item in collection)
        {
            num--;
            hash += "&hash=" + item.Hash; // Add &hash + hash to hash

            if (num == 0)
            {
                // Change status for these 40 items
                temp_actions.Enqueue(() => auth.change_status_multiple(status, hash));

                // Reset variables
                num = 40;
                hash = "";
            }
        }

        // Enqueue the last action for the rest of the items
        // Since "num == 0" doesn't cater for leftovers
        // ie. 50 items and 40 in first set, 10 left (which will be enqueued here)
        temp_actions.Enqueue(() => auth.change_status_multiple(status, hash));



  


                       
  





        // Start the change status process
        temp_actions.Dequeue().Invoke();

        actions = temp_actions;
    }

    public Queue<Action> actions { get; set; }

    // Event handler for when change_status_multiple fires its event for finish
    private void authentication_MultipleStatusChanged(object sender, EventArgs e)
    {
        if (actions.Count > 0) // Check if there are actions to dequeue
            actions.Dequeue().Invoke();
    }

Но когда дело доходит до времени выполнения, хеш будет «». Например, у меня 50 предметов, 40 будут в первом действии, затем 10 во втором, однако строка хеша для первого набора — «». Это почему? Я бы подумал, что после помещения действия в очередь оно сохранит все значения для переменных, которые я предоставил в то время.

Я отлаживал свой код и после постановки в очередь первого набора хеш-код корректен, но когда он перезагружает переменные num и hash, хэш-значение изменяется для первого набора (внутри очереди) на «».

Есть ли что-нибудь вокруг этого?

Благодарю.

Статус: Ошибки при выполнении задачи
===========================================
7/2/2019 1:00:00 AM — Резервное копирование MSSQL базы «ut» …
7/2/2019 1:00:00 AM — SQL Server version 14
7/2/2019 1:00:01 AM — BACKUP DATABASE is terminating abnormally.
A nonrecoverable I/O error occurred on file «C:WindowsTempes_2588.tmp.bak:» 112(Недостаточно места на диске.).
7/2/2019 1:00:01 AM — Ошибка! Резервное копирование базы не выполнено

На диске C: действительно недостаточно свободного места для создания резервной копии базы 1С. Но само резервное копирование настроено на другой диск G:. Тем не менее, временные файлы система пытается создать именно на диске C:.

Как оказалось, данная ошибка исправляется очень просто.

В параметрах программы нужно изменить каталог временных файлов (меню: Сервис — Параметры программы — Параметры агента).

При попытке оплаты данным плагино возникает ошибка «Некоторые параметры счета некорректны Неверный параметр: Signature «

Я написал в поддержку робокассы, вот их ответ:
«Данная ошибка возникает только на стороне магазина. Проверять необходимо скрипт, отвечающий за инициализацию оплаты, а именно, ту часть, что формирует Signature по формуле, состоящей из переменных. Самые распространенные неточности, из-за которых может неверно считаться MD5:

1. Используется некорректный Идентификатор магазина;
2. Используется некорректный Пароль 1 (MerchantPass1);
3. Используются дополнительные пользовательские параметры (shp), которые добавлены в программный код кассы, но не занесены в формулу подсчета или наоборот, в формуле подсчета указаны, в коде их нет.

С уважением, ROBOKASSA. «

Я перепроверил все пароли (пароли соответствуют критериям сложности робокассы), проверил идентификатор магазина, проверил URls — все указано корректно. Пытался переустановить плагин. Ничего не помогает. Лог плагина пустой.

Что можно попробовать еще?

Спасибо!

Среда — Delphi XE2 Enterprise.

Относится к использованию dispInterface в Delphi без classid. Повторная публикация как другой вопрос, поскольку я вышел далеко за рамки предыдущих проблем (благодаря @EricBrown) и теперь имею более конкретную проблему.

У меня есть .NET dll с COM-интерфейсом, который я зарегистрировал на компьютере и импортировал как библиотеку типов в Delphi. Я использую файл tlb.pas, созданный Delphi.

Работая с парой dispInterfaces, которые я реализовал в интерфейсах IDispatch и дочерних классах TAutoIntf, я успешно инициализировал классы и интерфейсы, которые мне нужны для вызова методов в COM-интерфейсе библиотеки .NET. Вот код, иллюстрирующий объявление / реализацию:

// COM Event Sink GUID
DIID_IResponseListener: TGUID = '{ABC29F08-B628-4747-BA9E-469D408E57B9}';

// *********************************************************************//
// DispIntf:  IResponseListener
// Flags:     (4096) Dispatchable
// GUID:      {ABC29F08-B628-4747-BA9E-469D408E57B9}
// *********************************************************************//
  IResponseListener = dispinterface
    ['{ABC29F08-B628-4747-BA9E-469D408E57B9}']
    procedure RequestCompleted(const requestID: WideString; const responseObj: IResponse); dispid 1610744833;
    procedure RequestFailed(const requestID: WideString; const error: WideString); dispid 1610744834;
    procedure TablesUpdates(const responseObj: IResponse); dispid 1610744835;
 end;

...my implementation:
  IFXResponseListener = interface(IDispatch)
['{3204D3F7-5DF2-4470-89D5-D34F4F6F0381}']
    procedure RequestCompleted(const requestID: WideString; const responseObj: IResponse); dispid 1610744833; safecall;
    procedure RequestFailed(const requestID: WideString; const error: WideString); dispid 1610744834; safecall;
    procedure TablesUpdates(const responseObj: IResponse); dispid 1610744835; safecall;
  end;

  TFXResponseListener = class(TAutoIntfObject,IFXResponseListener)
  private
    FDisp: IDispatch;
    FResp: IResponse;
    function GetResponseListIntf: IResponseListener;
  public
    constructor Create;
    destructor Destroy;
  published
    procedure RequestCompleted(const requestID: WideString; const responseObj: IResponse); safecall;
    procedure RequestFailed(const requestID: WideString; const error: WideString); safecall;
    procedure TablesUpdates(const responseObj: IResponse); safecall;
    property ResponseObj: IResponse read FResp;
    property ListenerDispIntf: IResponseListener read GetResponseListIntf;
  end;

...

{ TFXResponseListener }


constructor TFXResponseListener.Create;
var
  TypeLib: ITypeLib;
begin
  OleCheck(LoadRegTypeLib(LIBID_fxcore2_com,fxcore2_comMajorVersion,fxcore2_comMinorVersion,0,TypeLib));
  inherited Create(TypeLib,DIID_IResponseListener);
end;

destructor TFXResponseListener.Destroy;
begin
  inherited;
end;

function TFXResponseListener.GetResponseListIntf: IResponseListener;
begin
  FDisp := Self as IFXResponseListener;
  FDisp._AddRef;
  Result := IResponseListener(FDisp);
end;

procedure TFXResponseListener.RequestCompleted(const requestID: WideString; const responseObj: IResponse);
begin
  showmessage('Completed: ' + requestID);
  FResp := responseObj;
end;

procedure TFXResponseListener.RequestFailed(const requestID: WideString; const error: WideString);
begin
  showmessage('Failed: ' + requestID);
end;

procedure TFXResponseListener.TablesUpdates(const responseObj: IResponse);
begin
  showmessage('TablesUpdates');
end;

Вот где я пытаюсь использовать интерфейс:

FRespList := TFXResponseListener.Create;
  try
    FSess.subscribeResponse(FRespList.ListenerDispIntf);
  except
    // errors out here with 'The parameter is incorrect'
  end;

Отслеживая это в недрах System.Win.ComObj, в строке 1793 он вызывает:

Status := Dispatch.Invoke(DispID, GUID_NULL, 0, InvKind, DispParams, Result, @ExcepInfo, nil);

На данный момент параметр DispID действителен (1610743816), GUID_NULL равен ‘(0, 0, 0, (0, 0, 0, 0, 0, 0, 0, 0))’, InvKind равен ‘1’, DispParams равно ‘($ 2152FE8, nil, 1, 0)’, результат: ‘$ 12FE24’, @ExcepInfo — ‘$ 12FDE0’.

В System.pas, строка 30133, TInterfacedObject.QueryInterface вызывается дважды. При втором запуске он возвращает результат «E_NOINTERFACE», и появляется ужасное сообщение «Параметр неверен».

Я действительно не уверен, что делать дальше, но я надеюсь, что эксперт по COM и / или Delphi может просмотреть это и увидеть что-то неладное.

Мне также интересно, есть ли версия .NET framework или другая проблема. Я использую фреймворк версии 4.5.1; Не знаю, как определить, является ли сборка .NET кошерной с этой версией фреймворка или ей действительно нужна более ранняя версия.

Приветствуются любые соответствующие методы отладки .NET / COM.

Также обратите внимание: я могу продублировать эту проблему с другим классом-потомком dispinterface / IDispatch / TAutoIntfObj и аналогичным вызовом, идентичным ‘T’.

Спасибо.

1 ответ

Лучший ответ

var
  FRespList: TFXResponseListener;

var 
  FRespList: IFXResponseListener;

FRespList := TFXResponseListener.Create;

**procedure** TMyClass.Destroy; // <- changed from **destructor** TMyClass.Destroy;
begin
  inherited Destroy; // <- had to call this first!
  // then...
  while Self.RefCount > 0 do
    IUnknown(Self)._Release;
end;