Cita:
Empezado por Casimiro Notevi
¿Qué es se_sun?
¿Qué es se_mean_node?
¿Qué es swe_calc_ut?
¿Qué es iflag?
¿Qué es xx?
¿Qué es serr?
¿Qué es lg?
¿Qué es lt?
Y aparte de eso, ¿qué es lo que no funciona?
Y pon todo tu código involucrado.
|
Código Delphi
[-]var
i, iflag : integer;
xx : Array[0..5] of double;
serr : Array[0..255] of Char;
hcusps : array[0..12] of double;
lg, lt : double;
Esta es la funcion
Código Delphi
[-]function swe_calc_ut(tjd : double;
ipl : Integer;
iflag : Longint;
var xx : double;
sErr : PChar
): Longint; stdcall; far; external 'swedll32.dll' name '_swe_calc_ut@24';
devuelve lo siguiente
xx =array of 6 doubles for longitude, latitude, distance, speed in long., speed in lat., and speed in dist.
Necesito que me devuelva xx=0;