wie C "VarData.pArray" variant in pascal konvertieren?

[Meta777]

huhu,

wie kann ich folgenden C++ source nach pascal / delphi konvertieren?

Code:

   unsigned char
      *pData = NULL;
   SAFEARRAY
      *psa = NULL;

.....
   psa = varData.parray;
   hr = SafeArrayAccessData(psa, (void **)&pData);
...
..
.

Genauer gesagt geht es mir (wie im Titel erwähnt) um "varData.parray".
meine Versuche habenicht funktioniert:
psa := VarData.pArray;
oder
psa := VarArrayAsPSafeArray(varData.parray);

bin für jeden hinweis dankbar.

Shalom

EDIT:
habe die varialben wie folgend deklariert (weiß nicht ob richtig ist)

Delphi-Quellcode:

pData: Pointer;//unsigned char
psa: PVarArray;//SAFEARRAY;

[himitsu]

vermutlich erstmal ein Variant-Array erstellen
- einfach ein Array dem Variant zuweisen
- oder über VarArrayCreate und seine Freunde

und dann mit VarArrayAsPSafeArray aus diesem Variant ein SaveArray machen

[Meta777]

Zitat von himitsu:

vermutlich erstmal ein Variant-Array erstellen
- einfach ein Array dem Variant zuweisen
- oder über VarArrayCreate und seine Freunde

und dann mit VarArrayAsPSafeArray aus diesem Variant ein SaveArray machen

hi himitsu,

ich hab nur eine veriante von VarArrayCreate()?Und bei dieser hab ich kein passenden parameter - kann also nicht das varDAta.parray übergeben..
Was genau meinst du mit "einfach ein Array dem Variant zuweisen"? wie kann ich dann das varData.parray einer variable vom Type PVarArray zuweisen??

thx

[himitsu]

Wo kommt varData her, bzw. pData oder wird pData mit dem Inhalt vom varData gefüllt?
Ist ja nicht grad viel von dem unverständlichen C-Code.

Willst du das Aray erstllen/befüllen oder auslesen?

[Meta777]

Zitat von himitsu:

Wo kommt varData her, bzw. pData oder wird pData mit dem Inhalt vom varData gefüllt?
Ist ja nicht grad viel von dem unverständlichen C-Code.

Willst du das Aray erstllen/befüllen oder auslesen?

VarData vom Typ Variant ist ein Parameter eines Events. Der Source-Schnipsel ist aus einem C-Beispiel-Schnipsel der Dokumentation zu dem ActiveX-Control. Original Deklaration der Funktion mit dem relevanten Teil:

Code:

HRESULT CSample::OnStartScan(short a_nStatus,
                             short a_nFilmNumber,
                             long a_nBytesRead,
                             long nTotalBytesRead,
                             VARIANT varData)
{
   HRESULT 
      hr = S_OK;
   unsigned char
      *pImageData = NULL;
   short
      result = 0;
   SAFEARRAY
      *psa = NULL;
...
..
.
//////////// D E R   R E L E V A N T E   T E I L ////////////

         psa = varData.parray;
         //                                                    
         // Lock the safearray to access the data it contains 
         //                                                   
         hr = SafeArrayAccessData(psa, (void **)&pImageData);
         if (FAILED(hr)) {
            goto exit;
         }

Mein Problem ist, dass ich in Delphi bisher keine passende Lösung gefunden habe (siehe posting #1)

shalom

[Meta777]

habe jetzt scheinbar eine lösung gefunden, jedenfalls gibt es mit folegendem Code keine exception:

Delphi-Quellcode:

var
  pImageData: Pointer;
  psa: PVarArray;//nicht PSafeArray - war in C vom Typ "SAFEARRAY";
...
begin
  psa := VarArrayAsPSafeArray(varData);
  hr := SafeArrayAccessData(psa, pImageData);
...
..
.

Shalom