Thema: Delphi Bitmap in Thread laden

Einzelnen Beitrag anzeigen

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.426 Beiträge
 
Delphi 2007 Professional
 
#13

Re: Bitmap in Thread laden

  Alt 17. Mär 2009, 09:24
... ok, dann frag ich mal anders, hat wer einen code, oder gibt es einen code, den man in einen thread auslagern kann, der ein jpeg lädt und dieses resized?

Also irgendwie funktioniert gar nix, ich kann in einem thread nicht einmal ein bitmap erzeugen und einfärben ... ?!?!?!

Warum funktioniert soetwas nicht in einem thread?

Delphi-Quellcode:
procedure TLoadImage.DoLoadImage(FileName : string);
var
    LogBrush : TLogBrush;
    bHandle : THandle;
    MemDC : THandle;
begin
    EnterCriticalSection(fCS);
    try

        MemDC := CreateCompatibleDC(0);
        fHBitmap := CreateCompatibleBitmap(MemDC, 1280, 1024);
        SelectObject(MemDC, fHBitmap);

        LogBrush.lbColor := ColorToRGB(clRed);
        LogBrush.lbStyle := BS_SOLID;
        bHandle := CreateBrushIndirect(LogBrush);

        Windows.FillRect(MemDC, Rect(0, 0, 1280, 1024), bHandle);

        DeleteObject(bHandle);
        DeleteObject(memDC);
    finally
        LeaveCriticalSection(fCS);
    end;
end;
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat