🚀 go-pugleaf

On Mon, 23 Jul 2018 00:09:26 -0700 (PDT), mwitkowski2b@gmail.com wrote:

> Mam do wykorzystania bibliotekę DLL, do której mam API, która zawiera np. deklarację funkcji jak poniżej:
> 
> int GetPicture(UCHAR ucInstance, 
>                UCHAR* pucImage, 
>                UINT* puiBufSize, 
> 	       UINT* puiWidth, 
> 	       UINT* puiHeight );
> 				 
> Przy pierwszym wywołaniu mam podać jako drugi parametr pucImage=NULL, trzeci puiBufSize=0.

Prawdopodobnie chodzi tu o wywołanie tej funkcji dwukrotnie, pierwszy raz
po to by uzyskać rozmiar obrazka, co będzie potrzebne do zaalokowania
pamięci przed drugim wywołaniem, które pobierze już ten obrazek.

> Nie jestem pewien czy podanie wartości 0 jest równoznaczne z wartością NULL?
> Próbuję coś takiego, najpierw tworze sobie odpowiedni typ do wskazania tej funkcji oraz zmienną, która będzie jej adres zawierać:
> 
> Type_GetPicture = function(ucInstance: UCHAR;
>                            pucImage: PUCHAR;
>                            puiBufSize: PUINT;
>                            puiWidth: PUINT;
>                            puiHeight: PUINT
>                            ) : Integer; stdcall;
> 
> var
>   GetPicture : Type_GetPicture;
> 
> Ładuję bibliotekę DLL dynamicznie, pobieram adres funkcji z dll do GetPicture, po czym ją wywołuję w następujący sposób:
> 
> var  
>   iSize: Integer;
>   pucImage: UCHAR;
>   puiBufSize: UINT;
>   puiWidth: UINT;
>   puiHeight: UINT;							
>   ...  
>   lInstance:= 1;
>   pucImage:= 0;
>   puiBufSize:=0;
>   puiWidth:= 0;
>   puiHeight:= 0;
> 
>   iSize := ob.GetPicture(lInstance,
>                          @pucImage,
>                          @puiBufSize,
>                          @puiWidth,
>                          @puiHeight);

Spróbuj jakoś tak:

 var  
   iSize: Integer;
   pucImage: PUCHAR;
   puiBufSize: UINT;
   puiWidth: UINT;
   puiHeight: UINT;							
  ...  
   lInstance := 1;
   pucImage := nil;
   puiBufSize :=0;
   puiWidth := 0;
   puiHeight := 0;
 
   //pobranie rozmiaru obrazu
   iSize := ob.GetPicture(lInstance,
                          pucImage,
                          @puiBufSize,
                          @puiWidth,
                          @puiHeight);
   
   //alokacja bufora na obraz
   GetMem(pucImage, iSize); 
   puiBufSize := iSize;

   //pobranie danych obrazu
   iSize := ob.GetPicture(lInstance,
                          pucImage,
                          @puiBufSize,
                          @puiWidth,
                          @puiHeight);
   
  //i teraz w pubImage powinienes miec ten obrazek a w puiWidth i puiHeight
jego wymiary


Jeszcze nie jestem pewien czy stdcall to poprawna konwencja, być może
powinno być cdecl, ale to powinno być w dokumentacji DLLki.

-- 
pozdrawiam
Roman Tyczka