Передача массива в Delphi

[atagilov]

Доброе время суток! Возникла необходимость передать массив структур из C# в Delphi DLL. Все успешно передается, но плюс к нужным данным передаются дополнительные строки в массиве..

Вызов процедуры в DLL Delphi:

      TypeRowIn = record
                          a : TDateTime;
                          b : TDateTime;

                          v : real;
                          vv : real;
                          vvv : real;
                          vvvv : real;
                        end;

    TypeRowsIn = array of TypeRowIn;

procedure cl_Calc(inRows : TypeRowsIn); stdcall;
var test1 : real;
begin
 test1 := (inRows [0].v + inRows [0].vv+ inRows [0].vvv+ inRows [0].vvvv)/4;
end;

вызов в C#:

[StructLayout(LayoutKind.Sequential, Pack = 1)]
        public struct Row
        {
            public DateTime a;
            public DateTime b;
            
            public double v; 
            public double vv; 
            public double vvv; 
            public double vvvv;
        }
        
        [DllImport(@"Ind.dll", EntryPoint = "cl_Calc", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Unicode)]
        static public extern void Calc(Row[] inRows);

...

static void Main(string[] args)
        {
            int count = 2;
            Row[] Rows = new Row[count];

            Rows [0].a = new DateTime(2012, 01, 29);
            Rows [0].b= new DateTime(2012, 01, 29, 14, 00, 00);
            Rows [0].v= 0.25658;
            Rows [0].vv= 9.55678452;
            Rows [0].vvv = 2.3455658;
            Rows [0].vvvv= 6.243458;

            Rows [1].a = new DateTime(2012, 01, 29);
            Rows [1].b= new DateTime(2012, 01, 29, 15, 00, 00);
            Rows [1].v = 1.25658;
            Rows [1].vv= 5.95758;
            Rows [1].vvv= 2.95688;
            Rows [1].vvvv= 2.85958;

            Calc(Rows);

            Console.ReadLine();
        }

В итоге первые две строки массива передаются верно, но вместе с ними еще передается более 100 000 строк в массиве)) как сделать, чтобы передались только эти две строки? Заранее спасибо!

[arch_rch]

В твоем примере передается не массив, а указатель на этот массив. Для корректной работы необходимо указывать длину массива, например передавая количество строк в качестве аргумента функции Calc.