Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: Pointer & Co

    Delphi
    by guinnes, 12. Mär 2010
  CopyMemory(Addr(MyResultRecord),SfAreaPtr,sizeof(MyResultRecord));
  FintData:= MyResultRecord;
  Result:= True;
  Warum nicht :
  CopyMemory(Addr(FintData),SfAreaPtr,sizeof(MyResultRecord));
  Result:= True;
  
  If UpdateData = False then Result:= False;
  Boolsche Werte nie auf True oder False abfragen : http://www.delphi-treff.de/tutorials/objectpascal/programmierung-mit-boolean-werten/
  Besser :
• Forum: Win32/Win64 API (native code)

  Re: Pointer & Co

    Delphi
    by guinnes, 5. Mär 2010
  Wenn du folgende Deklaration benutzt, kommt was plausibles raus :
  TSF_Raw_MemMap = Packet Record
  Unknown : Array of SmallInt//unbekanntes Tag
  NumTemps : SmallInt //Anzahl der Temperaturen
  NumFans : SmallInt //Anzahl der Lüfter
  NumVolts : SmallInt //Anzahl der Spannungen
  Temps : Array of Integer //Werte der Temperaturen
  Fans : Array of Integer //Drehzahl der...
• Forum: Win32/Win64 API (native code)

  Re: Pointer & Co

    Delphi
    by guinnes, 4. Mär 2010
  fillchar(buffer,1000,0); // Dein Buffer ist gar nicht so groß
  
  RetVal.Temps = mMyArea.NumTemps
  RetVal.Volts = mMyArea.NumVolts
  RetVal.Fans = mMyArea.NumFans
  For x = 0 To 32 Step 2
  RetVal.Temp(x / 2) = mMyArea.Temps(x) / 100
  RetVal.Fan(x / 2) = mMyArea.Fans(x)
  RetVal.Volt(x / 2) = mMyArea.Volts(x) / 100
  Next
• Forum: Win32/Win64 API (native code)

  Re: Pointer & Co

    Delphi
    by guinnes, 4. Mär 2010
  Die Array-Grenzen stimmen noch nicht :oops:
  (5) ist 0..4 bzw 63 ist 0..62 laut http://www.vbarchiv.net/faq/strings_array.php
  Edit : Da sind sich die Leute nicht einig : http://de.wikibooks.org/wiki/Visual_Basic_6:_Arrays
  Nach dem lesen der beiden Seiten : Die Arraygrenzen stimmen doch, die Zahl in der Klammer gibt den höchsten Index an und der Startindex ist normalerweise 0 wenn kein Option...
• Forum: Win32/Win64 API (native code)

  Re: Pointer & Co

    Delphi
    by guinnes, 4. Mär 2010
  Dein Record stimmt doch noch gar nicht :
  Private Type SF_Raw_MemMap
  Unknown(5) As Integer 'unbekanntes Tag
  NumTemps As Integer 'Anzahl der Temperaturen
  NumFans As Integer 'Anzahl der Lüfter
  NumVolts As Integer 'Anzahl der Spannungen
  Temps(63) As Integer 'Werte der Temperaturen
  Fans(63) As Integer 'Drehzahl der Lüfter
  Volts(63) As Integer 'Werte der Spannungen
  End Type