[pokemon99]

Добрый Вечер!

Код:

type
  TTransInfo = packed record
    Size     : Word;    //Size of TTransInfo - заполнить перед вызовом
    Kind     : Word;    //0-оплата 1-скидка 2-бонус 3-потраты гостя
    Summa    : Comp;    {сумма в копейках;
                         для Transaction()
                           положительное число - обычное действие;
                           отрицательное число - возврат
                         для GetCardOpers() и GetRkTrans() - наоборот
                        }
    //информация о чеке - необязательная
    Office   : Word;    //код ресторана
    LogDate  : Longint; //дата чека (0 -> 30/12/1899)
    UnitNum  : Byte;    //номер кассы
    CheckNo  : Longint; //номер чека
  end;
  
  Type
  {процедура обратного вызова для перечисления операций по карте}
  TEnumCardOpers = Procedure( When: TDateTime; const Info: TTransInfo ); stdcall;

{перечисления операций по карте, результаты возвращаются через процедуру Proc}
Function GetCardOpers( Card: Integer; DateFirst, DateLast: TDateTime; Proc: TEnumCardOpers ): BOOL; stdcall; export;

procedure TForm1.Button6Click(Sender: TObject);
var CardOpers: TEnumCardOpers;
XInfo: TTransInfo;
begin
XInfo.Size:=SizeOf(TCardParams);
GetCardOpers(9068,StrToDate('20.10.2010'),StrToDate('20.10.2010'),CardOpers);
//Здесь ошибка
CardOpers(StrToDate('20.10.2010'),XInfo);


ShowMessage(GetErrorText);
ShowMessage(IntToStr(XInfo.CheckNo));
end;

Admin: Не забываем про теги!

Подскажите как получить результат функции GetCardOpers