IStream und IPicture freigeben

[stz]

Moin Moin,
ich habe mir mit Hilfe vom diesem Thread etwas zusammengebastelt, um JPEGs in einer nonVCL-Anwendung zu laden und anzuzeigen. Das gaze funktioniert auch wunderbar, allerdings habe ich das Gefühl, mir ein gewaltiges Speicherleck gebastelt zu haben, da ich mit GlobalAlloc Speicher anfordere, diesen dann mit CreateStreamOnHGlobal einem Stream zur Verwaltung übergebe mit der Optionen, dass dieser Speicher auch wieder freigegeben wird, wenn der Stream freigegeben wird. Aus diesem Stream erzeuge ich dann ein Picture und nun ist mir nicht klar, ob und wie ich beides wieder freigeben muss. pPicture vom Typ IPicture ist bei mir nur eine lokale Variable, daher finde ich, dass ich am Ende der Procedure irgendwas damit machen muss, bevor ich das Handle nicht mehr habe

Könnt ihr euch das mal ansehen und kommentieren?

Gruß
Malte

Delphi-Quellcode:

function LoadPicture(const AFile: string; var pPicture: IPicture):Boolean;
const
  IID_IPicture : TGUID = '{7BF80980-BF32-101A-8BBB-00AA00300CAB}';
var
  hFile, hMem: THandle;
  dwFileSize, dwBytesRead: DWord;
  pData: Pointer;
  bRead: Boolean;
  hRes: HResult;
  pStream: IStream;
begin
  Result := False;
  bRead := False;
  dwBytesRead := 0;

  //Datei öffnen
  hFile := CreateFile(PChar(AFile), GENERIC_READ, 0, NIL, OPEN_EXISTING, 0, 0);
  if hFile <> INVALID_HANDLE_VALUE then
  begin
    try
      //Dateigröße ermitteln
      dwFileSize := GetFileSize(hFile, nil);
      if dwFileSize <> INVALID_FILE_SIZE then
      begin
        //GlobalMemory reservieren und gleichzeitig mit "Nullen" füllen
        hMem := GlobalAlloc(GMEM_MOVEABLE{ or GMEM_NODISCARD} or GMEM_ZEROINIT, dwFileSize);
        if hMem <> 0 then
        begin
          //Adresse des ersten Bytes des Speicher-Objects abfragen
          pData := GlobalLock(hMem);
          if pData <> nil then
          begin
            try
              //Daten in das Speicher-Object lesen
              bRead := ReadFile(hFile, pData^, dwFileSize, dwBytesRead, nil);
            finally
              //Ich bin mit schreiben fertig, Sperre weg --> Daten bleiben
              GlobalUnlock(hMem);
            end;
          end;

          if (bRead = True) and (dwFileSize = dwBytesRead) then
          begin
            //Aus GobalMemory IStream erzeugen --> freigeben??
            //(** wird der Stream freigegeben wird auch automatisch
            //GlobalMemory freigegeben)
            pStream := nil;
            hRes := CreateStreamOnHGlobal(hMem, True {**}, pStream);
            if (hRes = S_OK) and (pStream <> nil) then
            begin
              //IPicture aus der Bilddatei in IStream erzeugen --> freigeben??
              hRes := OleLoadPicture(pStream, dwFileSize, False, IID_IPicture, pPicture);
              if (hRes = S_OK) and (pPicture <> nil) then
                Result := True;
            end;
          end;
        end;
      end;
    finally
      //Datei wieder zumachen
      CloseHandle(hFile);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  BildDateiname = 'C:\darc.jpg';
var
  DC: HDC;
  hmHeight, hmWidth, nHeight, nWidth: Integer;
  rc: TRect;
  pPicture: IPicture;
begin
  if LoadPicture(BildDateiname, pPicture) then
  begin
    DC := GetDC(Handle);
      if(pPicture.get_Width(hmWidth) = S_OK) and
        (pPicture.get_Height(hmHeight) = S_OK) and
        (Windows.GetClientRect(Handle,rc)) then
      begin
        nWidth  := MulDiv(hmWidth,GetDeviceCaps(DC,LOGPIXELSX),2540);
        nHeight := MulDiv(hmHeight,GetDeviceCaps(DC,LOGPIXELSY),2540);
        pPicture.Render(DC, 0, 0, nWidth, nHeight, 0, hmHeight,
             hmWidth, -hmHeight, rc);
      end;
    ReleaseDC(Handle,DC);
    //pPicture und zugrundeliegendes IStream wieder freigeben:
    //??? 
  end;
end;

PS: Wie man sieht, habe ich das ganze zum Testen auf eine Form gezeichnet, aber ich will es natürlich im Endeffekt in einer richtigen nonVCL-Anwendung haben...