Передача массива C# в 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 строк в массиве)) как сделать, чтобы передались только эти две строки? Заранее спасибо!

[Пепел Феникса]

отдельным параметром надо передавать количество строк в массиве.
Делфи то ничего не знает о массиве из шарпа.

[atagilov]

это конечно я сделаю, изначально было задумано передавать кол-во строк, но это ведь не поможет отсечь ненужные данные..
Мне нужно чтобы я отправил к примеру массив из 5 строк и в Delphi пришел массив из 5 строк, о размере которого я узнал из параметра, к примеру Count, а не массив из 100 000 строк))

[Пепел Феникса]

дело не в том что приходит больше, а в том что вы читаете больше чем надо.

[atagilov]

Ок, спасибо за совет! Эту проблему решим передачей кол-ва переданных строк. А если усложнить задачу и сделать чтобы еще он возвращал в C# массив..

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, inCount : integer; var OutRows : TypeRowsIn); stdcall;
var i : integer;
begin
 for i := 0 to inCount - 1
 do begin
      OutRows[i].a := inRows[i].a;
      OutRows[i].b := inRows[i].b;
      OutRows[i].v := inRows[i].v;
      OutRows[i].vv := inRows[i].vv;
      OutRows[i].vvv := inRows[i].vvv;
      OutRows[i].vvvv := inRows[i].vvvv;
     end;
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, int inCount, ref Row[] OutRows);
 
...
 
static void Main(string[] args)
        {
            int count = 2;
            Row[] Rows = new Row[count];
            Row[] RowsOut = 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, Rows.length, ref RowsOut);
 
            Console.ReadLine();
        }

Возвращает всего 1 строку в RowsOut, первую, переданную в Rows.. Как можно решить данную проблему?