Sign in to follow this  
tgibson

FSUIPC DELPHI

Recommended Posts

Can anyone help me, please? I did some changes in FSUIPC_SDK for Delphi, as the following code and, although I had followed SDK's documentation, the results were not the expected. Can anybody explain me what is wrong? vardwResult : DWORD;LatHi,LatLo,LongHi,LongLo,AltHi,Heading : Integer;rLatHi,rLatLo,rLongHi,rLongLo,rAltHi,rHeading : Real;ResultLatitude,ResultLongitude : Real;begin if FSUIPC_Read($0564, 8, @LatHi, dwResult) and FSUIPC_Read($0560, 8, @LatLo, dwResult) and FSUIPC_Read($056C, 8, @LongHi, dwResult) and FSUIPC_Read($0568, 8, @LongLo, dwResult) then begin rLatHi := (LatHi / (90 * 10001750); rLatLo := ((LatLo / (90 * 10001750) / 4294967296; ResultLatitude:= rLatHi + rLatLo; LabelLat.Caption := FloatToStr(ResultLatitude); rLongHi := LongHi / (360 * 4294967296); rLongLo := LongLo / (360 * 4294967296); ResultLongitude := rLongHi + rLongLo; LabelLong.Caption := FloatToStr(ResultLongitude); end; if FSUIPC_Read($0580, 1, @Heading, dwResult) then begin rHeading := Heading / 65536; LabelHeading.Caption := FloatToStr(rHeading); end; end; Thank you!

Share this post


Link to post
Share on other sites
Help AVSIM continue to serve you!
Please donate today!

I believe you posted this message to the wrong forum. This forum is for tools used to generate AI traffic.Hope this helps,-- Tom GibsonCalifornia Classic Propliners: http://www.calclassic.com/Cal Classic Alco Page: http://www.calclassic.com/alco/Freeflight Design Shop: http://www.freeflightdesign.com/ San Diego Model RR Museum: http://www.sdmodelrailroadm.com/Drop by! ___x_x_(")_x_x___

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this