Forum: Object-Pascal / Delphi-Language
Delphi
by bluescreen25,
23. Jan 2009
ja das werde ich machen, danke !
Gruß, bluescreen
Forum: Object-Pascal / Delphi-Language
Delphi
by bluescreen25,
22. Jan 2009
was kann ich prüfen ? weiss nicht mehr weiter....
gruß, bluescreen
Forum: Object-Pascal / Delphi-Language
Delphi
by bluescreen25,
22. Jan 2009
trotzdem vielen dank..!
die zugriffsverletung ist bei adresse 00000000000 sowie beim lesen an adresse 00000000000
gruß, bluescreen
Forum: Object-Pascal / Delphi-Language
Delphi
by bluescreen25,
22. Jan 2009
USBRADIO_API bool __stdcall VB_GetEon(float* ary, int* arysize, unsigned int *pi, short * pty, char ps, bool *ta, unsigned int eon)
{
if(eon < 0 || eon > 4)
return false;
RDSData rds_data;
std::map<double, double>::iterator iter;
std::vector<rds_EON_struct>::iterator EONMapIter;
int i;
if (fmRadioDevice.GetRDSData(&rds_data))
Forum: Object-Pascal / Delphi-Language
Delphi
by bluescreen25,
22. Jan 2009
Sieht jetzt so aus:
TFNGetEON = function(var buf:Single;var len,pi,pty:Integer;ps:String;var ta:Bool;eon:Integer):Boolean;stdcall;
function WGetEON1:String;
var
Forum: Object-Pascal / Delphi-Language
Delphi
by bluescreen25,
22. Jan 2009
Public Declare Function VB_GetEon Lib "USBRadio.dll" (ByRef ary As Single, ByRef size As Long, ByRef pi As Long, ByRef pty As Integer, ByVal ps As String, ByRef ta As Boolean, ByVal eon As Long) As Boolean
Public Function WVB_GetEon1() As Single()
Dim aflist1() As Single
Dim arysize As Long
Dim LoopArr As Single
Dim pseontemp As String * 8
Dim ttaeon1 As Boolean
Forum: Object-Pascal / Delphi-Language
Delphi
by bluescreen25,
22. Jan 2009
genau das wars ! supi :cheers:
hiermit habe ich noch ein Prob:
TFNGetEON = function(var buf:Single;var len,pi,pty:Integer;var ps:String;var ta:Boolean;var eon:Integer):Boolean;stdcall;
function WGetEON1:String;
Forum: Object-Pascal / Delphi-Language
Delphi
by bluescreen25,
22. Jan 2009
Das mit der richtigen Übernahme ist richtig, hatte die falsche Zeile aus dem Export kopiert, sorry
USBRADIO_API bool __stdcall VB_GetAFList (float* ary, int* arysize);
ist in meinem Code aber richtig, nur im Posting hier falsch angegeben gewesen.
Problem ist noch nicht gelöst !!
Forum: Object-Pascal / Delphi-Language
Delphi
by bluescreen25,
22. Jan 2009
Kann jemand bei der Übersetzung aushelfen ?
Public Function WVB_GetAFList() As Single()
Dim aflist() As Single
Dim arysize As Long
Dim LoopArr As Single
' Create the array
arysize = 25